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