Anonymous user
Biorhythms: Difference between revisions
→{{header|Common Lisp}}: simplify
(→{{header|Common Lisp}}: also print age in days) |
(→{{header|Common Lisp}}: simplify) |
||
Line 120:
(defun print-bio (y1 m1 d1 y2 m2 d2)
(
(format t "Age in days: ~D ~%" diff)
(print-cycle diff
(
(print-cycle diff
{{output}}
<pre>* (print-bio 1972 7 11 1943 3 9)
|