Similarity Expansion by henkma

main=interact$unlines.scanl1(' '%).lines
(p%(c:d))(a:b)=max[a][c|a<'.',p<'.']++(a%d)b
('.'%y)x=x
(p%y)x=x++y

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

download

return to the top page