Contents

open Core

let bottles = function
    | 0 -> "no more bottles"
    | 1 -> "1 bottle"
    | n -> Int.to_string n ^ " bottles"

let line1 n =
    let b = bottles n in
    sprintf "%s of beer on the wall, %s of beer.\n" b b

let line2 n =
    sprintf "Take %s down and pass it around, %s of beer on the wall.\n"
            (if n > 0 then "one" else "it") (bottles n)

let verse = function
    | 0 -> String.capitalize (line1 0) ^
           "Go to the store and buy some more, 99 bottles of beer on the wall.\n"
    | n -> line1 n ^ line2 (n-1)

let lyrics ~from:from ~until:until =
    List.map (List.range ~stride:(-1) ~stop:`inclusive from until)
             ~f:(fun n -> verse n)
    |> String.concat ~sep:"\n"

Version data entries

151 entries across 151 versions & 1 rubygems

Version	Path
trackler-2.2.1.30	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.29	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.28	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.27	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.26	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.25	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.24	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.23	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.22	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.21	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.20	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.19	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.18	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.17	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.16	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.15	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.14	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.13	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.12	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.11	tracks/ocaml/exercises/beer-song/example.ml