19 lines
542 B
Text
19 lines
542 B
Text
Floyd ← ⇌⍥(⊂⍚(+⇡∩(+1)⊃⧻(⊢⇌))⊢.):{[1]}-1
|
|
|
|
JoinUsing ← ↘1/◇⊂≡(□◇⊂)↯:⊙(⧻.)□
|
|
PadL ← ⊂/⊂↯:" "
|
|
Lengths ← ⍚∵◇∵(⧻°⋕)°□
|
|
|
|
PrintIt ← (
|
|
# Create table of [last row sizes] [this row sizes] [this row numbers]
|
|
⊢⊞⊂⊢⊢↙¯1.⍉[Lengths.]
|
|
|
|
≡(
|
|
# Calculate last row sizes - this row sizes and use to calculate paddings
|
|
⍉⊟⊃(-:↙:⊙(⧻.)∩°□°⊟↙2)(°⋕°□⊢↘2)
|
|
&pJoinUsing " " ≡(⍚PadL°⊟)
|
|
)
|
|
)
|
|
|
|
PrintIt Floyd 4
|
|
PrintIt Floyd 14
|