steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

And another clone in (pgcd)

cvs
Doug Coleman 2005-10-16 22:00:56 +00:00
parent 2e715a33c2
commit a77f8c7bf1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/crypto/polynomial.factor
View File

@ -96,7 +96,7 @@ IN: math
p/mod-setup [ [ (p/mod) ] times ] { } make reverse nip swap 2ptrim pextend ; p/mod-setup [ [ (p/mod) ] times ] { } make reverse nip swap 2ptrim pextend ;
: (pgcd) ( b a y x -- a d ) : (pgcd) ( b a y x -- a d )
dup { 0 } p= [ dup { 0 } clone p= [
drop nip drop nip
] [ ] [
tuck p/mod >r pick p* swap >r swapd p- r> r> (pgcd) tuck p/mod >r pick p* swap >r swapd p- r> r> (pgcd)