99 Bottles of Beer/Shell
99 Bottles of Beer done in any of the Shell-languages.
AutoHotkey
<lang AutoHotkey>; RC: 99 bottles of beer
b = 99 Loop, %b% { s .= b . " bottles of beer on the wall,`n" . b . " bottles of beer.`nTake one down, pass it around,`n" . b-1 . " bottles of beer on the wall.`n`n" b-- } Gui, Add, Edit, w200 h200, %s% Gui, Show, , 99 bottles of beer
Return ; end of auto-execute section
GuiClose:
ExitApp
Return</lang>
Delayed Sing along <lang AutoHotkey>n=99 Gui, Font, s20 cMaroon, Comic Sans MS Gui, Add, Text, w500 vLyrics, %n% bottles of beer on the wall... Gui, Show Loop {
Sleep, 2000 GuiControl,,Lyrics,% n!=1 ? n " bottles of beer.":n " bottle of beer." Sleep, 2000 GuiControl,,Lyrics,% n ? "Take one down, pass it around...":"Go to the store, buy some more..." Sleep, 2000 n := n ? --n:99 GuiControl,,Lyrics,% n!=1 ? n " bottles of beer on the wall.":n " bottle of beer on the wall." Sleep, 2000 GuiControl,,Lyrics,% n!=1 ? n " bottles of beer on the wall...":n " bottle of beer on the wall..."
} GuiClose: ExitApp</lang>
Fast and Short: <lang AutoHotkey>b=99 Loop, %b% { s := b " bottles of beer on the wall, " b " bottles of beer, Take one down, pass it around " b-1 " bottles of beer on the wall" b-- TrayTip,,%s% sleep, 40 }</lang>
With a GUI and slight grammatical variation: <lang AutoHotkey>N=o more Z=99 L:=Z M:=(B:=" bottle")"s" Loop 99 V.=L (W:=(O:=" of beer")" on the wall")",`n"L O ",`nTake one down and pass it around,`n"(L:=(--Z ? Z:"N"N)(Z=1 ? B:M))W ".`n`n" Gui,Add,Edit,w600 h250,% V L W ", n"N M O ".`nGo to the store and buy some more, 99"M W "." Gui,Show Return GuiClose: ExitApp</lang>
AutoIt
<lang AutoIt>local $bottleNo=99 local $lyrics=" "
While $bottleNo<>0 If $bottleNo=1 Then $lyrics&=$bottleNo & " bottles of beer on the wall" & @CRLF $lyrics&=$bottleNo & " bottles of beer" & @CRLF $lyrics&="Take one down, pass it around" & @CRLF Else $lyrics&=$bottleNo & " bottles of beer on the wall" & @CRLF $lyrics&=$bottleNo & " bottles of beer" & @CRLF $lyrics&="Take one down, pass it around" & @CRLF EndIf If $bottleNo=1 Then $lyrics&=$bottleNo-1 & " bottle of beer" & @CRLF Else $lyrics&=$bottleNo-1 & " bottles of beer" & @CRLF EndIf $bottleNo-=1 WEnd MsgBox(1,"99",$lyrics)</lang>
Easier to read output to Console: <lang AutoIt> $bottles = 99 $lyrics1 = " bottles of beer on the wall. " $lyrics2 = " bottles of beer. Take one down and pass it around. "
For $i = $bottles To 1 Step -1 If $i = 1 Then $lyrics1 = " bottle of beer on the wall. " $lyrics2 = " bottle of beer. Take one down and pass it around. " $lyrics3 = " Go to the store and get some more! No bottles of beer on the wall!" ConsoleWrite($bottles & $lyrics1 & $bottles & $lyrics2 & $lyrics3 & @CRLF) Else ConsoleWrite($bottles & $lyrics1 & $bottles & $lyrics2 & $bottles - 1 & $lyrics1 & @CRLF) $bottles -= 1 EndIf Next </lang>
Batch File
<lang dos>@echo off setlocal
- main
for /L %%i in (99,-1,1) do ( call :verse %%i ) echo no bottles of beer on the wall echo no bottles of beer echo go to the store and buy some more echo 99 bottles of beer on the wall echo. set /p q="Keep drinking? " if %q% == y goto main if %q% == Y goto main goto :eof
- verse
call :plural %1 res echo %res% of beer on the wall echo %res% of beer call :oneit %1 res echo take %res% down and pass it round set /a c=%1-1 call :plural %c% res echo %res% of beer on the wall echo. goto :eof
- plural
if %1 gtr 1 goto :gtr if %1 equ 1 goto :equ set %2=no bottles goto :eof
- gtr
set %2=%1 bottles goto :eof
- equ
set %2=1 bottle goto :eof
- oneit
if %1 equ 1 ( set %2=it ) else ( set %2=one ) goto :eof</lang>
friendly interactive shell
<lang fishshell>set i 99
- Assign s to variable $s
set s s while test $i != 'No more'
echo $i bottle$s of beer on the wall, echo $i bottle$s of beer. echo Take one down, pass it around, set i (math $i - 1) if test $i -eq 1 set s "" else if test $i -eq 0 set i 'No more' end echo $i bottle$s of beer on the wall. if test $i != 'No more' echo end
end</lang>
PowerShell
A standard impementation using a For loop
<lang PowerShell>for($n=99; $n -gt 0; $n--) {
"$n bottles of beer on the wall" "$n bottles of beer" "Take one down, pass it around" [string]($n-1) + " bottles of beer on the wall" ""
}</lang>
My standard implementation using for loop
<lang PowerShell>[int]$i = 99; for($i=99; $i -gt 0; $i--) {
write-host $i " bottles of beer on the wall"; write-host $i " bottles of beer"; write-host "Take one down, pass it around" write-host ($i-1) " bottles of beer on the wall" write-host ""
} </lang>
Consolidating the static text and using a Do...while loop
<lang PowerShell>$n=99 do {
"{0} bottles of beer on the wall`n{0} bottles of beer`nTake one down, pass it around`n{1} bottles of beer on the wall`n" -f $n, --$n
} while ($n -gt 0)</lang>
Consolidating the static text and using a Do...until loop
<lang PowerShell>$n=99 do {
"{0} bottles of beer on the wall`n{0} bottles of beer`nTake one down, pass it around`n{1} bottles of beer on the wall`n" -f $n, --$n
} until ($n -eq 0)</lang>
Consolidating the static text even more
<lang PowerShell>$s = "{0} bottles of beer on the wall`n{0} bottles of beer`nTake one down, pass it around`n{1} bottles of beer on the wall`n" $n=99 do { $s -f $n, --$n } while ($n -gt 0)</lang>
Using the Pipeline
<lang Powershell>99..1 | ForEach-Object {
$s=$( if( $_ -ne 1 ) { 's' } else { } ) $s2=$( if( $_ -ne 2 ) { 's' } else { } ) "$_ bottle$s of beer on the wall`n$_ bottle$s of beer`nTake one down`npass it around`n$( $_ - 1 ) bottle$s2 of beer on the wall`n"}</lang>
ProDOS
<lang ProDOS>editvar /newvar /value=a=99
- a
printline -a- bottles of beer on the wall printline -a- bottles of beer printline Take one down, pass it round editvar /newvar /value=a=-a-1 if -a- /hasvalue 1 goto :1 printline -a- bottles of beer on the wall. goto :a
- 1
printline 1 bottle of beer on the wall printline 1 bottle of beer printline take it down, pass it round printline no bottles of beer on the wall. editvar /newvar /value=b /userinput=1 /title=Keep drinking? if -b- /hasvalue yes goto :a else exitprogram</lang>
UNIX Shell
<lang bash>#!/bin/sh
i=99 s=s
while [ $i -gt 0 ]; do
echo "$i bottle$s of beer on the wall" echo "$i bottle$s of beer
Take one down, pass it around"
# POSIX allows for $(( i - 1 )) but some older Unices didn't have that i=`expr $i - 1`
[ $i -eq 1 ] && s= || s=s
echo "$i bottle$s of beer on the wall
" done</lang>
<lang bash>bottles() {
beer=$1 [ $((beer)) -gt 0 ] && echo -n $beer || echo -n "No more" echo -n " bottle" [ $((beer)) -ne 1 ] && echo -n "s" echo -n " of beer"
}
for ((i=99;i>=0;i--)); do
((remaining=i)) echo "$(bottles $remaining) on the wall" echo "$(bottles $remaining)" if [ $((remaining)) -eq 0 ]; then echo "Go to the store and buy some more" ((remaining+=99)) else echo "Take one down, pass it around" ((remaining--)) fi echo "$(bottles $remaining) on the wall" echo
done</lang>
C Shell
See 99 Bottles of Beer/Shell <lang csh>@ i=99 set s=s while ($i > 0) echo "$i bottle$s of beer on the wall" echo "$i bottle$s of beer" echo "Take one down, pass it around" @ i = $i - 1 if ($i == 1) then set s= else set s=s endif echo "$i bottle$s of beer on the wall" echo "" end</lang>
es
es - extensible shell
<lang es>i = 99 s = s while {test $i -gt 0} { echo $i bottle$s of beer on the wall echo $i bottle$s of beer echo Take one down, pass it around i = `{expr $i - 1} if {test $i -eq 1} {s = } {s = s} echo $i bottle$s of beer on the wall echo }</lang>
UnixPipes
<lang bash># Unix Pipes, avoiding all the turing complete sub programs like sed, awk, dc etc. mkdir 99 || exit 1 trap "rm -rf 99" 1 2 3 4 5 6 7 8
(cd 99
mkfifo p.b1 p.b2 p.verse1 p.wall p.take yes "on the wall" > p.wall & yes "Take one down and pass it around, " > p.take & (yes "bottles of beer" | nl -s\ | head -n 99 | tac | head -n 98 ; echo "One bottle of beer"; echo "No more bottles of beer") | tee p.b1 p.b2 | paste -d"\ " - p.wall p.b1 p.take | head -n 99 > p.verse1 & cat p.b2 | tail -99 | paste -d"\ " p.verse1 - p.wall | head -n 99
) rm -rf 99</lang>