Go Fish/OCaml: Difference between revisions

Content added Content deleted
No edit summary
m (broke line too long)
Line 38: Line 38:
let pip_of_card (pip, _) = (pip)
let pip_of_card (pip, _) = (pip)


let deck =
let deck = List.concat (List.map (fun pip -> List.map (fun suit -> (pip, suit)) suits) pips)
List.concat (List.map (fun pip -> List.map (fun suit -> (pip, suit)) suits) pips)




Retrieved from "https://rosettacode.org/wiki/Go_Fish/OCaml"