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))) |