99 Bottles of Beer
aus Metalab Wiki, dem offenen Zentrum für meta-disziplinäre Magier und technisch-kreative Enthusiasten.
Version vom 3. März 2007, 16:25 Uhr von Phantasus (Diskussion | Beiträge) (Die Seite wurde neu angelegt: | 99 Bottles of Beer in Reva Forth | by Phantasus : .bottle ( n -- n) dup 1 >if ." bottles of" space ;then ." bottle of" space ; : .wall ( n -- n ) dup 0 >if dup . .bo...)
Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.
| 99 Bottles of Beer in Reva Forth | by Phantasus
- .bottle ( n -- n) dup 1 >if ." bottles of" space ;then ." bottle of" space ;
- .wall ( n -- n ) dup 0 >if dup . .bottle ." beer on the wall," cr ;then
." No more bottles of beer on the wall." cr
- .beer ( n -- n ) dup . .bottle ." beeeeer . . . ," cr ;
- .take ( n -- n-1 ) ." Take one down, and pass it around," cr 1- ;
- 99beer ( -- ) 99 100 1 do .wall .beer .take .wall cr loop
." Time to buy more beer!" cr
99beer
