Задачка про математиков
Встречаются два математика, не видевшиеся много лет. Расспрашивают друг друга о житии-бытии, и в ходе разговора происходит следующий диалог:
М1: Дети-то есть?
М2: Да, трое сыновей.
М1: И сколько же им лет?
М2: Ну ты же математик, попробуй сам рассчитать. Если перемножить их возрасты, то получится 36.
М1: Недостаточно информации.
М2: Сумма их возрастов равна номеру вон того троллейбуса.
М1: Опять недостаточно информации.
М2: Младший — рыжий.
М1: Теперь всё понятно!
Назовите возраст детей.

let p = 36
let ages = [ for x in 1..p do 
                for y in x..p do 
                    for z in y..p do 
                        if x * y * z = p then 
                            yield List.sortBy (fun (a, b, c) -> a, b, c) [x, y, z] ]
           |> List.map(fun [x, y, z] -> x, y, z)
           |> Seq.groupBy (fun (x, y, z) -> x + y + z)
           |> Seq.filter(fun (key, values) -> Seq.length values > 1)
           |> Seq.collect(fun (key, values) -> values)
           |> Seq.filter(fun (x, y, z) -> x < y)
printfn "%A" ages

let lights length periods =
    let inv buf p = 
        (p,1)::buf @ 
        [for x in buf do 
            let _lcm = lcm (fst x) p
            if _lcm <= length then yield _lcm ,-2*(snd x)]
    List.fold (fun x -> inv x) [] periods 
  |>List.sumBy(fun x -> (length/(fst x))*(snd x))

let lights length periods =
    let inv buf p = 
        let t = List.map(fun x -> lcm (fst x) p, -2*(snd x)) buf
              |>List.filter(fun x -> fst x <= length)
        (p,1)::buf@t 
    List.fold (fun x -> inv x) [] periods 
  |>List.sumBy(fun x -> (length/(fst x))*(snd x)) 

Furry:
  initialize(name):
    @name = name
  say(msg):
    puts(STDOUT, @name + ": " + msg)  # Можно так...
    STDOUT.puts(@name + ": " + msg)  # А можно так.
  height: abstract
  fur: abstract
Deer is Furry:
  height: 1.80
  fur: "brown"
Lion is Furry:
  height: 1.60
  fur: "wheaten"