Anonymous user
99 Bottles of Beer/Lisp: Difference between revisions
moving code from main task-page to sub-page
(new subpage) |
(moving code from main task-page to sub-page) |
||
Line 9:
See [[99 Bottles of Beer/Lisp]]
-->
=={{header|PicoLisp}}==
<lang PicoLisp>(de bottles (N)
(case N
(0 "No more beer")
(1 "One bottle of beer")
(T (cons N " bottles of beer")) ) )
(for (N 99 (gt0 N))
(prinl (bottles N) " on the wall,")
(prinl (bottles N) ".")
(prinl "Take one down, pass it around,")
(prinl (bottles (dec 'N)) " on the wall.")
(prinl) )</lang>
|