typo + readme update

This commit is contained in:
2026-01-06 15:49:48 +01:00
parent 02549f3445
commit 5dfcc79927
2 changed files with 6 additions and 3 deletions

View File

@@ -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

View File

@@ -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