Threase

Plays Threes with ease.

make install
make repl

λ let g = Game {board = Board {vectors = [Vector {tiles = [Just (Tile {number = 2}),Nothing,Just (Tile {number = 1}),Just (Tile {number = 2})]},Vector {tiles = [Nothing,Nothing,Just (Tile {number = 2}),Just (Tile {number = 1})]},Vector {tiles = [Nothing,Just (Tile {number = 2}),Just (Tile {number = 3}),Just (Tile {number = 3})]},Vector {tiles = [Nothing,Nothing,Nothing,Just (Tile {number = 3})]}]}, next = Tile {number = 1}}
λ putStr (render g)
Score: 9
Next: 1
2   -   1   2
-   -   2   1
-   2   3   3
-   -   -   3
Moves: ← ↓ → ↑
Quality: 26