3 lines
81 B
Text
3 lines
81 B
Text
|
require'stats'
|
||
|
|
partitions=: ([,] {L:0 (i.@#@, -. [)&;)/"1@>@,@{@({@comb&.> +/\.)
|