Fix mod-inv
parent
8e985d6c6f
commit
d86d83fdbb
|
@ -72,3 +72,5 @@ IN: temporary
|
|||
|
||||
[ 3 ] [ 5 7 mod-inv ] unit-test
|
||||
[ 78572682077 ] [ 234829342 342389423843 mod-inv ] unit-test
|
||||
|
||||
[ 2 10 mod-inv ] unit-test-fails
|
||||
|
|
|
@ -50,7 +50,7 @@ M: integer (^)
|
|||
tuck gcd 1 = [
|
||||
dup 0 < [ + ] [ nip ] if
|
||||
] [
|
||||
[ "Non-trivial divisor found" throw ] unless
|
||||
"Non-trivial divisor found" throw
|
||||
] if ; foldable
|
||||
|
||||
: ^mod ( x y n -- z )
|
||||
|
|
Loading…
Reference in New Issue