2048: Difference between revisions
Content added Content deleted
(→{{header|OCaml}}: show output) |
(→{{header|OCaml}}: fix turn_cw with List.init) |
||
Line 5,960: | Line 5,960: | ||
let y = List.length grid in |
let y = List.length grid in |
||
let x = List.length (List.nth grid 0) in |
let x = List.length (List.nth grid 0) in |
||
List.init x (fun i -> |
|||
let arr = |
|||
List.init y (fun j -> |
|||
List.nth (List.nth grid (y-j-1)) (i) |
|||
List.nth (List.nth grid (y-j-1)) (i) |
|||
) |
|||
) |
) |
||
) |
|||
List.map Array.to_list (Array.to_list arr) |
|||