13 lines
409 B
Plaintext
13 lines
409 B
Plaintext
procedure main(A)
|
|
prune := integer(\A[1]) | 10 # Boundary between leaf and stem
|
|
every put(data := [], integer(!&input))
|
|
writes(right(oldStem := 0,5)," |")
|
|
every item := !sort(data) do {
|
|
leaf := item % prune
|
|
stem := item / prune
|
|
while (oldStem < stem) do writes("\n",right(oldStem +:= 1, 5)," |")
|
|
writes(" ",right(leaf,*prune-1,"0"))
|
|
}
|
|
write()
|
|
end
|