Result

AC

Duration

1157ms

Code [DL]

g x=[t|t<-[0..32],all(\i->x!!(t+i)>'0')[0,5,12,17]]!!0
f x|i<-g x=([1..i]>>"0")++'1':([i..48]>>"0")
main=interact$f

stdin

10010010000010100101000100100101100000100000100100

stdout

00000000000000100000000000000000000000000000000000

stderr