Haskell, 47 40 bytes
-7 thanks to OMᗺ
f b|(u,v)<-span('/'<)b="/1"++('0'<$u)==v
A port of my Clean answer using Neil's method.
Haskell,
Οurous
- 8.1k
- 1
- 16
- 38