mix lines verbose by henkma

main=interact$unlines.scanl1(\x y@(a:b)->max(a:x!b)$y!x).lines
x!y=do(a,b)<-zip(y>>x)y;[a,b]

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page