7 lines
142 B
Text
7 lines
142 B
Text
operator (m comb n)
|
|
[by 0..~$n] -> #
|
|
when <[](..~$m)> do [$..., by $(last)~..~$n] -> #
|
|
otherwise $!
|
|
end comb
|
|
|
|
(3 comb 5) -> !OUT::write
|