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 | 106ff4734eacd89baee8d9f03ab5fdd63c30a147 (patch) | |
| tree | dad27e1457699874f78607df445174f956a5f0c8 /lisp/calc/calc-arith.el | |
| parent | d65f3e9dc68cc593940ca6f829cf86b487873a9b (diff) | |
| download | emacs-106ff4734eacd89baee8d9f03ab5fdd63c30a147.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))) |