99 Bottles of Beer: Unterschied zwischen den Versionen

@@ Zeile 1: / Zeile 1: @@
-| 99 Bottles of Beer in Reva Forth
+Das gute alte 99 bottles in Forth
-| by Phantasus
-: .bottle ( n -- n) dup 1 >if ." bottles of" space ;then ." bottle of" space ;
+bottles of beer on the wall,
-: .wall ( n -- n ) dup 0 >if dup . .bottle ." beer on the wall," cr ;then
+bottles of  beeeeer . . . ,
+Take one down, pass it around,
+bottles of beer on the wall.
+...
+ | 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 ;
+ : .beer ( n -- n ) dup . .bottle ." beeeeer . . . ," cr ;
-: .take ( n -- n-1 ) ." Take one down, and pass it around," cr 1- ;
+ : .take ( n -- n-1 ) ." Take one down, and pass it around," cr 1- ;
-: 99beer ( -- ) 99 100 1 do .wall .beer .take .wall cr loop
+ : 99beer ( -- ) 99 100 1 do .wall .beer .take .wall cr loop
-  ." Time to buy more beer!" cr
+   ." Time to buy more beer!" cr
-;
+ ;
 beer