Result

AC

Duration

1141ms

Code [DL]

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

stdin

10100101000000111001100010000000101111101000100000

stdout

00100000000000000000000000000000000000000000000000

stderr

strace