so well

2012-02-01T07:52:06.770+01:00

so well

... nice. F#-Version is pretty elegant too: let ...

2012-01-11T13:28:51.772+01:00

... nice. F#-Version is pretty elegant too:

let theBottleSong =
let strSong = new System.Text.StringBuilder()
let append (s:string) = strSong.Append(s) |> ignore

for i = 99 downto 0 do
if (i = 0) then
append "\n\nNo more bottles of beer on the wall, no more bottles of beer.\nGo to the store and buy some more, 99 bottles of beer on the wall."
else
let x = i - 1
let plural = if (i = 1) then "" else "s"

append (sprintf "\n%d bottle%s of beer on the wall, %d bottle%s" i plural i plural)
append "\nTake one down and pass it around, "

match x with
| 1 -> append "1 bottle "
| 0 -> append " no more bottles "
| _ -> append (sprintf "%d bottles of beer on the wall.\n" x)

strSong.ToString()

printfn "%s\n" theBottleSong

Comments on Sven Efftinge's Blog: I like free beer!

so well

... nice. F#-Version is pretty elegant too: let ...