99 Bottles of Beer: Unterschied zwischen den Versionen
aus Metalab Wiki, dem offenen Zentrum für meta-disziplinäre Magier und technisch-kreative Enthusiasten.
Zur Navigation springenZur Suche springen (99 bottles of beer in Forth, reva) |
(+ SPL) |
||
| Zeile 1: | Zeile 1: | ||
| − | + | = 99 bottles in Forth = | |
99 bottles of beer on the wall, | 99 bottles of beer on the wall, | ||
| Zeile 6: | Zeile 6: | ||
98 bottles of beer on the wall. | 98 bottles of beer on the wall. | ||
... | ... | ||
| − | |||
| 99 Bottles of Beer in Reva Forth | | 99 Bottles of Beer in Reva Forth | ||
| Zeile 20: | Zeile 19: | ||
; | ; | ||
99beer | 99beer | ||
| + | |||
| + | = 99 bottles in [http://www.clifford.at/spl/ SPL] = | ||
| + | |||
| + | for (var i=99; i>=0; i--) { | ||
| + | write("\n${i ? i : "No more"} bottle${i != 1 ? "s" : ""} of beer on the " | ||
| + | "wall, ${i ? i : "no more"} bottle${i != 1 ? "s" : ""} of beer.\n"); | ||
| + | write(i>0 ? "Take one down and pass it around, " : | ||
| + | "Go to the store and buy some more, "); | ||
| + | write("${i ? i>1 ? i-1 : "no more" : 99} bottle${i == 2 ? "" : "s"} " | ||
| + | "of beer on the wall.\n${i ? "" : "\n"}"); | ||
| + | } | ||
Version vom 3. März 2007, 16:52 Uhr
99 bottles in Forth
99 bottles of beer on the wall, 99 bottles of beeeeer . . . , Take one down, pass it around, 98 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 ; : .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
99 bottles in SPL
for (var i=99; i>=0; i--) {
write("\n${i ? i : "No more"} bottle${i != 1 ? "s" : ""} of beer on the "
"wall, ${i ? i : "no more"} bottle${i != 1 ? "s" : ""} of beer.\n");
write(i>0 ? "Take one down and pass it around, " :
"Go to the store and buy some more, ");
write("${i ? i>1 ? i-1 : "no more" : 99} bottle${i == 2 ? "" : "s"} "
"of beer on the wall.\n${i ? "" : "\n"}");
}
