1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

 

#light

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

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

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

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

CreateSong()

rb.Text <- strSong.ToString()

[<STAThread>]
do Application.Run(f)