ryan/aoc-2022-ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update Grid.%() operator to return option

Browse Source
This commit is contained in:
ryan 2023-11-01 12:09:53 -07:00
parent 80f29ae00e
commit c5c9b584c0
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/grid.ml
View File

@ -36,7 +36,7 @@ let set_e grid point item =
else failwith "point out of bounds!" else failwith "point out of bounds!"
;; ;;
let ( .%() ) = at_e let ( .%() ) = at
let ( .%()<- ) = set_e let ( .%()<- ) = set_e
let find (grid : 'a t) pred = let find (grid : 'a t) pred =
@ -88,7 +88,7 @@ let draw grid printer =
let str = ref [] in let str = ref [] in
iter grid (fun point -> iter grid (fun point ->
let item = grid.%(point) in let item = grid.%(point) in
let char = printer item in let char = printer @@ Option.get_exn_or "iter is broken" item in
str := !str @ [ char ]; str := !str @ [ char ];
if point.x = grid.width - 1 then str := !str @ [ '\n' ]); if point.x = grid.width - 1 then str := !str @ [ '\n' ]);
String.of_list !str String.of_list !str

2
src/grid.mli
View File

@ -3,7 +3,7 @@ type 'a t [@@deriving show]
val at : 'a t -> Vec2.t -> 'a option val at : 'a t -> Vec2.t -> 'a option
val at_e : 'a t -> Vec2.t -> 'a val at_e : 'a t -> Vec2.t -> 'a
val set_e : 'a t -> Vec2.t -> 'a -> unit val set_e : 'a t -> Vec2.t -> 'a -> unit
val ( .%() ) : 'a t -> Vec2.t -> 'a val ( .%() ) : 'a t -> Vec2.t -> 'a option
val ( .%()<- ) : 'a t -> Vec2.t -> 'a -> unit val ( .%()<- ) : 'a t -> Vec2.t -> 'a -> unit
val init : width:int -> height:int -> (Vec2.t -> 'a) -> 'a t val init : width:int -> height:int -> (Vec2.t -> 'a) -> 'a t
val of_lines : (char -> 'a) -> string list -> 'a t val of_lines : (char -> 'a) -> string list -> 'a t