Revision as of 07:02, 19 March 2010 (view source) 169.232.246.182 (talk) No edit summary ← Older edit		Revision as of 01:17, 30 August 2010 (view source) rosettacode>Blue Prawn m (broke line too long) Newer edit →
Line 38: let pip_of_card (pip, _) = (pip) let deck = ~~let~~ ~~deck =~~ List.concat (List.map (fun pip -> List.map (fun suit -> (pip, suit)) suits) pips)

Go Fish/OCaml (view source)