Lab 6: 6a, 6b, 7

[BertLisser]

6a

exerciseSix = do
    print "6a"
    xs <- sequence $ map (\x -> primeTestsF 1 $ carmichael !! 0) [1..100]
    ys <- sequence $ map (\x -> primeMR 1 $ carmichael !! 0) [1..100]
    print $ length $ filter (== True) xs
    print $ length $ filter (== True) ys

{-
*Main> exerciseSix
"6a"
94
6

6a(<-9) The first arguments of primeTestsF and primeMR are not parametrized like in 5.

6b What happens if the first argmument of primeMR is 1.

    y <- sequence $ map (\x -> primeMR 2 $ 2^x - 1) $ take 9 primes
    print $ zip y primes
[(True,2),(True,3),(True,5),(True,7),(False,11),(True,13),(True,17),(True,19),(False,23)]
-}

6b(<-8)

7(<-10)