Classic 99 bottles of beer by (NOT golfed so as NOT2B a spoiler. .in more.SHOULD B,)

NB. NOT golfed so as NOT to be a spoiler.
NB. "." in "more." SHOULD be ",".
Drink99_2=: noun define
% bottle% of beer on the wall, % bottle% of beer.
Take one down and pass it around, % bottle% of beer on the wall.

)
RestoreIns=: _1 drop noun define
, no more bottles of beer on the wall.

No more bottles of beer on the wall, no more bottles of beer.
Go to the store and buy some more
)
Drink1=: }. ; 1 2 0 3{ RestoreIns; <;.1 ',', Drink99_2
numWWoS=: (": ; 1&< # 's'"_)
NumWWoSs=: , (numWWoS"0) 99 99, (3# |. 1+ i. 98), 99
uncorrect=: ('.' _35} ])
stdout uncorrect ; NumWWoSs ,. <;._1 ; 98 1# Drink99_2; Drink1

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page