|
|
Back to UserFriendly Strip Comments Index
|
100 function calls on the stack,100 function calls (n/t) | by williamashbless | 2005-02-11 12:58:55 |
| ssh $UNIVERSITYMACHINE... |
by LionsPhil |
2005-02-11 14:12:04 |
prb102@servalan prb102 $ cat `which scheme`
#!/usr/bin/perl -w
# Scheme!
# -- Pope Boolean "LAMBDA" Lion, 5 Chaos YOLD 3170 (Mungday - write Perl!)
# On of these days, I'll port it to Scheme and make it an mzscheme script... >=)
print "(Looking for a scheme interpreter? Try 'drscheme' or 'mzscheme'.)\n\nSING ALONG NOW! Ohhh...\n";
$plural = "s";
for($bottles = 99; $bottles > 1;)
{
print "$bottles packet$plural of brackets on the stack, ";
`sleep 2`;
print "$bottles packet$plural of brackets.\n";
`sleep 1.5`;
print "Pop one off and parse it around, ";
`sleep 2.125`;
$bottles--;
$plural = ($bottles>1 ? "s" : "");
print "$bottles packet$plural of brackets on the stack.\n\n";
`sleep 2.25`;
}
print "1 packet of brackets on the stack, ";
`sleep 2`;
print "1 packet of brackets.\n";
`sleep 1.5`;
print "Pop one off and parse it around, ";
`sleep 2.125`;
print "no more packets of brackets on the stack.\n\n";
|
|
[ Reply ] |
|
|
[Todays Cartoon Discussion]
[News Index]
|
|
