On Friday 29 May 2009 08:34:36 you wrote:
> myfloat = try (do{ symbol "-"; n <- float; return (negate n) }) <|>
> try float <|>
> do { i<-integer; return(fromIntegral i) }
Thank you, this is an easy and nice solution. I've made it a bit prettier
optically:
myFloat = try (symbol "-" >> float >>= return . negate)
<|> try float
<|> (integer >>= return . fromIntegral)
Best regards,
Bartek
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
