typo + readme update
This commit is contained in:
@@ -13,6 +13,9 @@ file: `fermat-prime-test.hs`
|
|||||||
### Miller Rabin's prime test
|
### Miller Rabin's prime test
|
||||||
file: `miller-rabin-prime-test.hs`
|
file: `miller-rabin-prime-test.hs`
|
||||||
|
|
||||||
|
### Solovey Strassen's prime test
|
||||||
|
file: `SoloveyStrassen.hs`
|
||||||
|
|
||||||
## factorization algorithms
|
## factorization algorithms
|
||||||
|
|
||||||
### Fermat's factorization
|
### Fermat's factorization
|
||||||
|
|||||||
@@ -1,11 +1,11 @@
|
|||||||
module SolaveyStrassen (solaveyStrassen) where
|
module SoloveyStrassen (soloveyStrassen) where
|
||||||
|
|
||||||
import ModularArithmeticUtils (modExp, jacobi)
|
import ModularArithmeticUtils (modExp, jacobi)
|
||||||
import System.Random (randomRIO)
|
import System.Random (randomRIO)
|
||||||
|
|
||||||
|
|
||||||
solaveyStrassen :: Integer -> Integer -> IO Bool
|
soloveyStrassen :: Integer -> Integer -> IO Bool
|
||||||
solaveyStrassen n k
|
soloveyStrassen n k
|
||||||
| n < 2 = return False
|
| n < 2 = return False
|
||||||
| n == 2 = return True
|
| n == 2 = return True
|
||||||
| even n = return False
|
| even n = return False
|
||||||
Reference in New Issue
Block a user