For caml in #ocaml

mastermind.ml

open Core_kernel.Std

type colour = Red | Green | Magenta | Yellow | Blue | Black | White | Cyan

let shuffle l =
  List.map ~f:(fun c -> (Random.bits (), c)) l
  |> List.sort ~cmp:compare
  |> List.map ~f:snd

let all = [Red; Green; Magenta; Yellow; Blue; Black; White; Cyan]

let random_four () =
  all
  |> shuffle
  |> (Fn.flip List.take) 4