(in-package :common-lisp-user)

(defpackage "POLYOMINOS"
  (:use "COMMON-LISP")
  (:export "RUN"))
#|
"PIECE-WIDTH" "PIECE-HEIGHT" "DEFPOLYOMINO" "ROTATE"
           "TEST-POLYOMINO" "PLACE-POLYOMINO" "REMOVE-POLYOMINO"
           "PRINT-BOARD"
|#

(defun run-test ()
  (compile-file "utils")
  (load "utils")
  (compile-file "board")
  (load "board")
  (compile-file "polyominos")
  (load "polyominos")
  (compile-file "data")
  (load "data")
  (compile-file "actions")
  (load "actions")
  (compile-file "solver")
  (load "solver")

  (polyominos:run))

(time (run-test))

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