# [Haskell], 47 bytes <!-- language-all: lang-hs --> f b=let(u,v)=span('/'/=)b in"/1"++['0'|_<-u]==v [Try it online!][TIO-jk0cwj9j] [Haskell]: https://www.haskell.org/ [TIO-jk0cwj9j]: https://tio.run/##BcFBCoAgEADAryx7UbFQ6dq@JCIUlCQTSe3U323mtPXyKY0RwFHyjffpFVSLzZwppkg4iBmVQSk3ptl3rHPfid5x25iBoDwxN@A8AC7KaBRi/A "Haskell – Try It Online" A port of my Clean answer using Neil's method.