3 ms·
;Here is my version in Common Lisp ;Supply your own flatten function ;or borrow one from let-over-lambda or something ;http://letoverlambda.com/lol.lisp
by deltasquared 15y ago
;Here is my version in Common Lisp
;Supply your own flatten function
;or borrow one from let-over-lambda or something
;http://letoverlambda.com/lol.lisp
(defun long-div (dividend divisor depth)
(cond
((> depth 0)
(flatten (list
(truncate (/ dividend divisor))
(long-div (* 10 (mod dividend divisor))
divisor (- depth 1)))))
(t ())))