99 Bottles of Beer: Unterschied zwischen den Versionen
Keine Bearbeitungszusammenfassung |
99 bottles of beer in Forth, reva |
||
| Zeile 10: | Zeile 10: | ||
| 99 Bottles of Beer in Reva Forth | | 99 Bottles of Beer in Reva Forth | ||
| by Phantasus | | by Phantasus | ||
: .bottle ( n -- n) dup 1 >if ." bottles of" space ;then ." bottle of" space ; | : .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 | : .wall ( n -- n ) dup 0 >if dup . .bottle ." beer on the wall," cr ;then | ||