6 lines
154 B
Text
6 lines
154 B
Text
(define $comb
|
|
(lambda [$n $xs]
|
|
(match-all xs (list integer)
|
|
[(loop $i [1 ,n] <join _ <cons $a_i ...>> _) a])))
|
|
|
|
(test (comb 3 (between 0 4)))
|