8 lines
142 B
Text
8 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
|