Fractran: Difference between revisions
→{{header|Common Lisp}}: Fix termination problem.
m (→{{header|REXX}}: increased the number of numeric digits when using larger number of terms.) |
(→{{header|Common Lisp}}: Fix termination problem.) |
||
Line 190:
<lang lisp>(defun fractran (n frac-list)
(lambda ()
(prog1
n
(integerp (* n frac)))▼
(when n
frac-list)))▼
▲ (integerp (* n frac)))
▲ frac-list)))
(when f (setf n (* f n))))))))
;; test
| |||