f=foldl(\a b->2*a+read[b])0 g s=scanr(\_->(`div`2))(f(take 8 s)*f(drop 9 s))[1..7]>>=show.(`mod`2) main=interact$g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page