Result

AC

Duration

1156ms

Code [DL]

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

stdin

10101000000000000000100111010000100100110111110011

stdout

00000000000000000000000000010000000000000000000000

stderr

strace