# [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.