Anonymous user
Ethiopian multiplication: Difference between revisions
m
Remove surrounding newlines
(→{{header|Minimal BASIC}}: Added) |
m (Remove surrounding newlines) |
||
Line 2,210:
=={{header|Emacs Lisp}}==
Emacs Lisp has <code>cl-evenp</code> in cl-lib.el (its Common Lisp library), but for the sake of completeness the desired effect is achieved here via <code>mod</code>.
<lang lisp>(defun even-p (n)
(= (mod n 2) 0))
(defun halve (n)
Line 2,224 ⟶ 2,223:
(setq l (halve l))
(setq r (double r)))
sum))</lang>
=={{header|Erlang}}==
| |||