Snowfall by esc120

for(<>){chomp;@L=split//;$L[$_]ne' '&&unshift@{$C[$_]},$L[$_]for 0..$#L}$M=@{(sort{@$b<=>@$a}@C)[0]};for(;$M-->0;){print$C[$_][$M]||' 'for 0..$#L;print"\n"}

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

download

return to the top page