C:\Users\Steve\Documents\arc3.1>racket -f as.scm
Use (quit) to quit, (tl) to return here after an interrupt.
arc> ;; Get rid of rows-tried entries for column col
(def remove-column-number-from-rows-tried (column-# rows-tried)
(with columns-rows -1 list1 (rev rows-tried) list2 '()
(for i 1 (len rows-tried)
(= columns-rows (pop list1))
(if (~is (car columns-rows) column-#)
(push columns-rows list2)))
(rev list2)))
Error: "Can't take cdr of columns-rows"
arc>