Dominoes

Challenge Overview

Make a chain of dominoes.

Visit the dominoes exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

View Community Solutions

The following are the top 3 community solutions by stars:

Solution 1 by @ErikSchierboom (⭐ 8) — View on Exercism
Solution 2 by @mixedveges (⭐ 0) — View on Exercism
Solution 3 by @timyhac (⭐ 0) — View on Exercism

Source: Exercism fsharp/dominoes

💡 View Solution

module Dominoes

let private rotations (xs: 'T list) =
    Seq.init xs.Length (fun shift -> List.permute (fun i -> (i + shift) % xs.Length) xs)

let private tryChain (x, y) list =
    match list with
    | (x', y') :: xs when y = x' -> (x, y') :: xs |> Some
    | (x', y') :: xs when y = y' -> (x, x') :: xs |> Some
    | _ -> None