13 lines
304 B
Plaintext
13 lines
304 B
Plaintext
(define nums '(1 2 3 4 5 6 7 8 9))
|
|
|
|
(defun amount (x y)
|
|
(foldr (lambda (z q) (if (eq x z) (+ q 1) q)) 0 y))
|
|
|
|
(defun valid (x)
|
|
(if (= 9 (length x))
|
|
(foldr (lambda (y z) (if (<= y 1) z nil))
|
|
t
|
|
(map (lambda (y) (amount y x)) nums))
|
|
nil
|
|
))
|