
8 Apr
2009
8 Apr
'09
8:36 a.m.
What about : sffi :: (Integral a,Num a) => Integer -> Maybe a sffi n = go n (fromInteger n) where go a b | toInteger b == a = Just b | otherwise = Nothing