Преглед на файлове

Add implementations with filter for prime functions

DricomDragon преди 5 години
родител
ревизия
e8a1d18a2c
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      prime.hs

+ 3 - 0
prime.hs

@@ -1,5 +1,8 @@
 -- Exercice from slide 42/82
 
 dividers n = [k | k <- [2..(n-1)], rem n k == 0]
+dividersf n = filter (\k -> rem n k == 0) [2..(n-1)]
 
 primer n = [i | i <- [2..(n-1)], null (dividers i)]
+primerf n = filter (\i -> null (dividersf i)) [2..(n-1)]
+