7 lines
154 B
Text
7 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)))
|