IQ Test by Icewing

g=getLine
m@main=((g>>=).(f.).(.words).zipWith(++).words=<<g)>>m
f(x:y)=putStrLn$show([z|(z,w)<-zip[1..]y,w==x]!!0)++' ':x

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

download

return to the top page