This commit is contained in:
2025-10-14 12:46:26 +02:00
parent b067031e22
commit ebf47cb9bf

View File

@ -5,7 +5,8 @@
(defun valid (x)
(if (= 9 (length x))
(foldr (lambda (y z) (if (<= y 1) z nil))
(foldr
(lambda (y z) (if (<= y 1) z nil))
t
(map (lambda (y) (amount y x)) nums))
nil))