29 May
2009
29 May
'09
6:38 p.m.
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