Greedy algorithm for Egyptian fractions: Difference between revisions

Content added Content deleted
Line 37: Line 37:


=={{header|Common Lisp}}==
=={{header|Common Lisp}}==
<lang common lisp>(defun egyption-fractions (x y &optional acc)
<lang lisp>(defun egyption-fractions (x y &optional acc)
(let* ((a (/ x y)))
(let* ((a (/ x y)))
(cond
(cond
Retrieved from "https://rosettacode.org/wiki/Greedy_algorithm_for_Egyptian_fractions"