beowulf/resources/mexpr/divide.mexpr.lsp

3 lines
77 B
Common Lisp

;; page 26
divide[x; y] = cons[ quotient[x; y]; cons[ remainder[x; y]; NIL]]