Contents

module Proverb

let subjects = ["nail"; "shoe"; "horse"; "rider"; "message"; "battle"; "kingdom"]

let line number = 
    match number with
    | 7 -> "And all for the want of a horseshoe nail."
    | _ -> sprintf "For want of a %s the %s was lost." (List.item (number - 1) subjects) (List.item number subjects) 

let proverb = 
    [1..7]
    |> List.map line
    |> List.reduce (fun x y -> x + "\n" + y)

Version data entries

280 entries across 280 versions & 1 rubygems

Version	Path
trackler-2.2.1.62	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.61	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.60	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.59	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.58	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.57	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.56	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.55	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.54	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.53	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.52	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.51	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.50	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.49	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.48	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.47	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.46	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.45	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.44	tracks/fsharp/exercises/proverb/Example.fs
trackler-2.2.1.43	tracks/fsharp/exercises/proverb/Example.fs