diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-11-14 20:12:35 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-11-14 20:12:35 +0000 |
| commit | d883348df8efee98269b6d61061a55f6a3b57f5b (patch) | |
| tree | 4fc302e4318263d789976435c082f8e69de82e73 /lisp/calc/calc-arith.el | |
| parent | 882108c7b394f51289aa16030d1d73927f5fa5c3 (diff) | |
| download | emacs-d883348df8efee98269b6d61061a55f6a3b57f5b.tar.gz | |
(calcFunc-ldiv): New function.
Diffstat (limited to 'lisp/calc/calc-arith.el')
| -rw-r--r-- | lisp/calc/calc-arith.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el index ba95ee7f713..4d76e1eab5b 100644 --- a/lisp/calc/calc-arith.el +++ b/lisp/calc/calc-arith.el @@ -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))) |