c01::String->String
c01 []=[]
c01 (x:xs)
| x=='?' = []
|otherwise =x:c01 xs

c02::String->[String]
c02 []=[]
c02 x=[_c01]
where
_c01=c01 x

main = do
print (c02 "213?46464?698")

言語感覚を掴むために文字列を?区切りの配列化とかやってんだけど
なんか上手くいかない。。後ろの方なんかどうにかスマートに取れんかな？