Contents

module BeerSong

let private verse n = 
    match n with
    | 0 -> 
        [ "No more bottles of beer on the wall, no more bottles of beer.";
          "Go to the store and buy some more, 99 bottles of beer on the wall." ]
    | 1 -> 
        [ "1 bottle of beer on the wall, 1 bottle of beer.";
          "Take it down and pass it around, no more bottles of beer on the wall." ]
    | 2 -> 
        [ "2 bottles of beer on the wall, 2 bottles of beer.";
          "Take one down and pass it around, 1 bottle of beer on the wall." ]
    | _ -> 
        [ sprintf "%d bottles of beer on the wall, %d bottles of beer." n n;
          sprintf "Take one down and pass it around, %d bottles of beer on the wall."  (n-1) ]

let recite startBottles takeDown = 
    [startBottles .. -1 .. (startBottles - takeDown + 1)] 
    |> List.map verse
    |> List.reduce (fun x y -> x @ "" :: y)

Version data entries

116 entries across 116 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.179	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.178	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.177	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.176	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.175	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.174	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.173	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.172	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.171	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.170	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.169	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.167	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.166	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.165	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.164	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.163	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.162	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.161	tracks/fsharp/exercises/beer-song/Example.fs
trackler-2.2.1.160	tracks/fsharp/exercises/beer-song/Example.fs