Casio50 » fx-3x50P » Programs 祘Α栋 » Number Thoery 计阶 »

Greatest Common Divisor
程そ计

セΑ―俱计ぇ程そ计

<COMP>
? → A : ? → B : Fix0 :
Lbl 0 : B → C : A ÷ B – . 5 : Rnd : A – B Ans → B :
C → A : B ≠ 0 => Goto 0 : Norm1 : A
47 Bytes

巨よ猭

巨 ㄒ
―ぇ程そ计:
x & y
―ぇ程そ计:
52 & 46
币笆祘Α Prog 1
块戈
x EXE y EXE
52 EXE 46 EXE
陪ボ程そ计
GCD
2

癘拘砰

A GCD
B 0
C GCD
D  
X
Y
M

闽祘Α

  1. Prime Factorization / 借计だ秆
  2. Extended GCD / 耎程そ计