haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update sqrtF2m

Browse Source
This commit is contained in:
Will Song 2020-06-08 10:16:42 -05:00
parent 17336857c5
commit f64efafbad
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Number/F2m.hs
View File

@ -144,7 +144,9 @@ powF2m' fx a b
sqrtF2m :: BinaryPolynomial -- ^Modulus sqrtF2m :: BinaryPolynomial -- ^Modulus
-> Integer -- ^a -> Integer -- ^a
-> Integer -> Integer
sqrtF2m fx a = powF2m fx a (2 ^ (log2 fx - 1)) sqrtF2m fx a = go (log2 fx - 1) a
where go 0 x = x
go n x = go (n - 1) (squareF2m fx x)
-- | Extended GCD algorithm for polynomials. For @a@ and @b@ returns @(g, u, v)@ such that @a * u + b * v == g@. -- | Extended GCD algorithm for polynomials. For @a@ and @b@ returns @(g, u, v)@ such that @a * u + b * v == g@.
-- --