aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Miller-Rabin-primality-test/Haskell/miller-rabin-primality-test-3.hs Normal file
View file

@ -0,0 +1,15 @@
mrt 2 = True
mrt x = odd x && all (\a -> work s x (expMod a d x) ) [2..(x-2)] where
(s,d) = sd (x-1)
sd n = if odd n then (0,n) else (\(x,y) -> (x+1,y)) (sd (n `div` 2))
work 0 n x = (x == 1) || (x == n-1)
work s n x
|(f == 1) && (x /= 1) && (x /= n-1) = False
|otherwise = work (s-1) n f where f = (x*x) `mod` n
expMod a 0 m = 1
expMod a d m
| even d = expMod ((a * a) `mod` m) (d `div` 2) m
| otherwise = (a * expMod a (d - 1) m) `mod` m