Plaster
New
List
Login
text
default
anonymous
2021.03.08 16:32:45
SCREAMER-USER> (defun a-bit () (either 0 1)) A-BIT SCREAMER-USER> (defun n-bits (n) (if (zerop n) '() (cons (a-bit) (n-bits (1- n))))) N-BITS SCREAMER-USER> (one-value (n-bits 4)) (0 0 0 0) SCREAMER-USER> (all-values (n-bits 4)) ((0 0 0 0) (0 0 0 1) (0 0 1 0) (0 0 1 1) (0 1 0 0) (0 1 0 1) (0 1 1 0) (0 1 1 1) (1 0 0 0) (1 0 0 1) (1 0 1 0) (1 0 1 1) (1 1 0 0) (1 1 0 1) (1 1 1 0) (1 1 1 1)) SCREAMER-USER> (all-values (let ((bits (n-bits 4))) (assert! (oddp (count 1 bits))) bits)) ((0 0 0 1) (0 0 1 0) (0 1 0 0) (0 1 1 1) (1 0 0 0) (1 0 1 1) (1 1 0 1) (1 1 1 0))
Raw
Annotate
Repaste
Edit