Advertisement
Guest User

Untitled

a guest
Oct 10th, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module Task2_1 where
  2.  
  3. import GcdLcmPrime
  4.  
  5. -- 2.1)
  6. range :: Double -> Double -> Double -> [Double]
  7. range a b d = [a, a + d .. b-1]
  8.  
  9. --getPrimes n m = return [ a | a <- [m .. ], myPrime a] >>= take n
  10. --getPrimes :: Double -> Double -> [Double]
  11. --getPrimes :: Enum a => Int -> a -> [a]
  12. getPrimes n m = take n [ a | a <- [m .. ], GcdLcmPrime.myPrime a]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement