42 lines
598 B
Text
42 lines
598 B
Text
|
# example|99Bottles
|
||
|
|
|
||
|
|
Display the text for the *99 Bottles of Beer* song.
|
||
|
|
|
||
|
|
Declare module constant (prevents reloading when using `import`):
|
||
|
|
|
||
|
|
````
|
||
|
|
:example|99Bottles ;
|
||
|
|
````
|
||
|
|
|
||
|
|
````
|
||
|
|
[ dup putn sp 'bottles puts ]
|
||
|
|
[ '1_bottle puts ]
|
||
|
|
[ 'no_more_bottles puts ]
|
||
|
|
'bottles d:create
|
||
|
|
, , ,
|
||
|
|
|
||
|
|
:.bottles
|
||
|
|
dup #2 n:min bottles + fetch call ;
|
||
|
|
|
||
|
|
:.beer
|
||
|
|
.bottles '_of_beer putsf ;
|
||
|
|
|
||
|
|
:.wall
|
||
|
|
.beer '_on_the_wall putsf ;
|
||
|
|
|
||
|
|
:.take
|
||
|
|
'Take_one_down,_pass_it_around putsf ;
|
||
|
|
|
||
|
|
:.verse
|
||
|
|
.wall nl .beer nl
|
||
|
|
n:dec .take nl .wall nl ;
|
||
|
|
|
||
|
|
:?dup
|
||
|
|
dup 0; ;
|
||
|
|
|
||
|
|
:verses
|
||
|
|
[ nl .verse dup n:-zero? ] while drop ;
|
||
|
|
|
||
|
|
#99 verses
|
||
|
|
````
|