(define $eight-queen (match-all {1 2 3 4 5 6 7 8} (multiset integer) [>>>>>>>> a])) ;(test eight-queen) (define $n-queen (lambda [$n] (match-all (between 1 n) (multiset integer) [ )> a]))) (test (n-queen 4)) (test (n-queen 5)) (test (n-queen 6)) (test (n-queen 7)) (test (n-queen 8)) (test (n-queen 9)) (test (n-queen 10)) (test (n-queen 11))