Greedy algorithm for Egyptian fractions: Difference between revisions

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