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.90	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.89	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.88	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.87	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.86	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.85	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.84	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.83	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.82	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.81	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.80	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.79	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.78	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.77	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.76	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.75	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.74	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.73	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.72	tracks/ocaml/exercises/beer-song/example.ml
trackler-2.2.1.71	tracks/ocaml/exercises/beer-song/example.ml