Super-d numbers: Difference between revisions

m
Line 300:
 
findSuperd :: (Show a, Integral a) => a -> [a]
findSuperd p = gofilter (isSuperd p) [1..]
where go [] = []
go (n:ns)
| isSuperd p n = n : go ns
| otherwise = go ns
 
main :: IO ()
Anonymous user