Divide the rectangle by murky-satyr

|a i|a:=Array new:1056. #(18 15 7 8 14 4 10 1 9)with:'abcdefghi'do:[:v :c|i:=a indexOf: nil.0to: v*v- 1 do:[:j|a at: j\\v+i+(j//v*33)put:' ',c asString,(j\\v+i\\33=0and:['
'])]].a do:[:c|c display]!

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page