Re: extended_gcd for INTI

[K.Kodama]

Sorry! I failed again.

From: K.Kodama <address@hidden>
Subject: Re: extended_gcd for INTI
Date: Tue, 30 Jan 2001 11:19:02 +0900
Message-ID: <address@hidden>

>       extended_gcd(i,j:INTI, out f1: INTI, out f2:INTI):INTI is
....
>               loop

        extended_gcd(i,j:INTI, out f1: INTI, out f2:INTI):INTI is
                -- gcd = i*f1 + j*f2
                -- x:SAME:=one; y:SAME:=zero; u:SAME:=zero; v:SAME:=one;
                a,b,q:INTI;
                x:INTI:=#(1); y:INTI:=#(0); u:INTI:=#(0); v:INTI:=#(1);
                if i.is_neg then x:=-x; a:=-i; else a:=i; end;
                if j.is_neg then y:=-y; b:=-j; else b:=j; end;
                loop

-- 
K.Kodama(address@hidden)