Mercurial > emacs
comparison lisp/calc/calc.el @ 81719:38726b7738d9
(math-add-bignum): Replace number by constant.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Fri, 06 Jul 2007 03:56:12 +0000 |
parents | d5640ed7c397 |
children | c88370efde0d |
comparison
equal
deleted
inserted
replaced
81718:85dcb1dc6a9c | 81719:38726b7738d9 |
---|---|
2778 (if (< (setq sum (+ (car aa) (car b))) | 2778 (if (< (setq sum (+ (car aa) (car b))) |
2779 (1- math-bignum-digit-size)) | 2779 (1- math-bignum-digit-size)) |
2780 (progn | 2780 (progn |
2781 (setcar aa (1+ sum)) | 2781 (setcar aa (1+ sum)) |
2782 (setq carry nil)) | 2782 (setq carry nil)) |
2783 (setcar aa (+ sum -999))) | 2783 (setcar aa (- sum (1- math-bignum-digit-size)))) |
2784 (if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size) | 2784 (if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size) |
2785 (setcar aa sum) | 2785 (setcar aa sum) |
2786 (setcar aa (- sum math-bignum-digit-size)) | 2786 (setcar aa (- sum math-bignum-digit-size)) |
2787 (setq carry t))) | 2787 (setq carry t))) |
2788 (setq aa (cdr aa) | 2788 (setq aa (cdr aa) |
2789 b (cdr b))) | 2789 b (cdr b))) |
2790 (if carry | 2790 (if carry |
2791 (if b | 2791 (if b |
2792 (nconc a (math-add-bignum b '(1))) | 2792 (nconc a (math-add-bignum b '(1))) |
2793 (while (eq (car aa) 999) | 2793 (while (eq (car aa) (1- math-bignum-digit-size)) |
2794 (setcar aa 0) | 2794 (setcar aa 0) |
2795 (setq aa (cdr aa))) | 2795 (setq aa (cdr aa))) |
2796 (if aa | 2796 (if aa |
2797 (progn | 2797 (progn |
2798 (setcar aa (1+ (car aa))) | 2798 (setcar aa (1+ (car aa))) |