Bead Sort by yvl

gets a=gets
1while sub! /(\w)(.{#{~/$/}})\|/m,'|\2\1'
puts$_,a

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

download

return top