Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- allTestCases
- = [ TestCase "isPrime" isPrime
- isPrimeTestCases
- , TestCase "nextPrime" nextPrime
- nextPrimeTestCases
- , TestCase "modPow" (uncurry3 modPow)
- modPowTestCases
- , TestCase "isCarmichael" isCarmichael
- isCarmichaelTestCases
- , TestCase "nextSmithNumber" nextSmithNumber
- nextSmithNumberTestCases
- ]
- runTests = mapM_ goTest allTestCases
- main = runTests
Add Comment
Please, Sign In to add comment