Mercurial > emacs
changeset 66862:5827a5ed37b9
(calcFunc-ldiv): New function.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 14 Nov 2005 20:12:35 +0000 |
| parents | 71657ea2ba01 |
| children | 78e895e87663 |
| files | lisp/calc/calc-arith.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-arith.el Mon Nov 14 18:28:49 2005 +0000 +++ b/lisp/calc/calc-arith.el Mon Nov 14 20:12:35 2005 +0000 @@ -1854,6 +1854,10 @@ (math-mul-zero b a)))) (list '/ a b))) +;;; Division from the left. +(defun calcFunc-ldiv (a b) + (math-mul (math-pow a -1) b)) + (defun calcFunc-mod (a b) (math-normalize (list '% a b)))