(in-package #:mazes)

; (ql:quickload :mazes)
(defvar g (make-grid 5 5))

(defvar sw (make-sidewinder g))

(defvar c00 (get-cell g 0 0))

(defvar dists (distances c00))
;(defvar d (make-distance c00 g))

;(defvar dcells (distance-cells d))

;(defvar dc (calculate-distance d))

(defun hash-keys (hash-table)
  (loop for key being the hash-keys of hash-table collect key))