Rosetta Code

Biorhythms: Difference between revisions

Page Discussion

Biorhythms (view source)

Revision as of 22:27, 19 April 2022

109 bytes removed ,  2 years ago
→‎{{header|Common Lisp}}: simplify
(→‎{{header|Common Lisp}}: also print age in days)
Line 120:
 
(defun print-bio (y1 m1 d1 y2 m2 d2)
(proglet ((diff len(diffday y1 m1 d1 y2 m2 nmd2)))
(setq len 23 nm "physical" diff (diffday y1 m1 d1 y2 m2 d2))
(format t "Age in days: ~D ~%" diff)
(print-cycle diff len23 nm"physical")
(setqprint-cycle lendiff 28 nm "emotional")
(print-cycle diff len33 nm"intellectual")))</lang>
(setq len 33 nm "intellectual")
(print-cycle diff len nm)
))</lang>
{{output}}
<pre>* (print-bio 1972 7 11 1943 3 9)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/302326"