(in-package :polyominos)

(defpolyomino cF #\F ( ((1 1 1 nil) ())
                       ((-1 nil nil nil) (nil 1 1 1))
                       ((1 nil 1 nil) ())
                       ((-1 nil -1 -1) ())))
(defpolyomino cJ #\J ( (() (1 1 1 nil))
                       (() (-1 nil -1 nil))
                       (() (1 nil 1 nil))
                       ((1 1 nil 1) (nil nil -1 -1)) ))
(defpolyomino cL #\L ( ((-1 -1 -1 nil) ())
                       ((1 nil 1 nil) ())
                       ((-1 nil -1 nil) ())
                       ((1 nil nil 1) (nil -1 -1 -1)) ))
(defpolyomino cN #\N ( (() () (-1 -1 -1 nil))
                       ((1 1 nil nil) (nil -1 nil -1) (nil nil 1 1))
                       ((-1 nil -1 -1) () ()) ))
(defpolyomino cQ #\Q ( ((1 1 1 nil) () ())
                       ((-1 nil nil -1) (nil 1 nil 1) (nil -1 -1 nil))
                       (() () (1 nil 1 1)) ))
(defpolyomino cS #\S ( ((-1 -1 -1 nil) ())
                       ((1 nil nil 1) (nil -1 -1 nil))
                       (() (1 nil 1 nil))
                       (() (-1 nil -1 -1)) ))
(defpolyomino cT #\T ( (() (-1 -1 -1 nil))
                       ((-1 -1 nil -1) (nil nil 1 nil))
                       (() (-1 nil -1 nil))
                       (() (1 nil 1 1)) ))
(defpolyomino cW #\W ( ((1 1 1 nil) () ())
                       ((-1 nil nil -1) (nil 1 1 nil) ())
                       (() (-1 nil nil -1) (nil 1 1 1)) ))
(defpolyomino cZ #\Z ( ((1 1 nil 1) (nil -1 nil -1) (nil 1 1 nil) ())
                       (() () (-1 nil nil -1) (nil 1 1 1)) ))

(defpolyomino lj #\j ( (() (-1 -1 -1 nil))
                       (() (1 nil 1 nil))
                       ((1 1 nil 1) (nil nil -1 -1)) ))
(defpolyomino ll #\l ( ((1 1 1 nil) ())
                       ((-1 nil -1 nil) ())
                       ((1 nil nil 1) (nil -1 -1 -1)) ))
(defpolyomino ls #\s ( ((-1 -1 -1 nil) ())
                       ((1 nil nil 1) (nil -1 -1 nil))
                       (() (1 nil 1 1)) ))
(defpolyomino lt #\t ( (() (-1 -1 -1 nil))
                       ((-1 -1 nil -1) (nil nil 1 nil))
                       (() (-1 nil -1 -1)) ))
(defpolyomino three #\3 ( ((1 1 1 nil) ())
                          ((-1 nil nil 1) (nil 1 1 1)) ))

;; $Id: //info.ravenbrook.com/user/ndl/lisp/contest/entries/anthony-juckel/solution2/data.lisp#1 $