|
=={{header|Common Lisp}}==
<lang lisp>(let
((gifts '( "A partridge in a pear tree." "Two turtle doves , and" ▼ ((names (loop for n from 1 to 12 collecting (format nil "~:r" n)))
"Three French hens," "Four calling birds,"
▲ (gifts '( "A partridge in a pear tree." "Two turtle doves and"
"ThreeFive Frenchgold hensrings," "FourSix callinggeese birdsa-laying,"
"FiveSeven goldswans ringsa-swimming," "SixEight geesemaids a-layingmilking,"
"SevenNine swansladies a-swimmingdancing," "EightTen maidslords a-milkingleaping,"
"NineEleven ladiespipers dancingpiping," "TenTwelve lordsdrummers a-leapingdrumming," )))
"Eleven pipers piping," "Twelve drummers drumming," )))
(loop for day infrom names1 for i fromto 012 doing
(format t "On the ~a:r day of Christmas, my true love sent to me:~%" day)
(loop for gift from (string1-downcase day)) downto 0 doing
(loop for g from i downto 0 doing (format t "~a~%" (nth ggift gifts)))
(format t "~%")))
</lang>
|