8 lines
257 B
Text
8 lines
257 B
Text
|
stem =: <.@(%&10)
|
||
|
|
leaf =: 10&|
|
||
|
|
stemleaf =: (stem@{. ; leaf)/.~ stem
|
||
|
|
expandStems =: <./ ([ + i.@>:@-~) >./
|
||
|
|
expandLeaves=: (expandStems e. ])@[ #inv ]
|
||
|
|
|
||
|
|
showStemLeaf=: (":@,.@expandStems@[ ; ":&>@expandLeaves)&>/@(>@{. ; <@{:)@|:@stemleaf@/:~
|