Execute SNUSP/OCaml: Difference between revisions

m
(added ocaml)
 
Line 28:
let lurd (x,y) = (-y,-x)
 
let next_pos ~pos:(x,y) ~dir:(dx,dy) = (x+dx, y+dy)
(* Printf.printf " (%d,%d)%!" (x+1) (y+1); *)
(x+dx, y+dy)
 
let incr (l,v,r) = (l,v+1,r)