Puzzlescript
type dir =
| Up
| Down
| Left
| Right
val every : dir list
val horizontal : dir list
val vertical : dir list
type thing = {
glyph : char;
color : Playground.color;
layer : int;
art : string list;
}
val thing : ?art:string list -> char -> Playground.color -> layer:int -> thing
type rule
val rule : ?dirs:dir list -> ?late:bool -> string -> rule
type win
val all_on : char -> char -> win
val some_on : char -> char -> win
val no_on : char -> char -> win
val none_left : char -> win
type t
val make : things:thing list -> player:char -> ?legend:(char * string) list -> rules:rule list -> wins:win list -> ?background:Playground.color -> string list list -> t
type state
val play : t -> (state Playground.game, Playground.msg) Playground.app
type board
val board : t -> int -> board
val turn : t -> dir option -> board -> board
val won : t -> board -> bool
val at : board -> int -> int -> char list
val to_strings : t -> board -> string list