(gcd) ( b a x y -- a d )
Vocabulary
math.functions.private
Definition
USING:
kernel
math
;
IN:
math.functions.private
:
(gcd)
( b a x y -- a d )
over
zero?
[
2nip
]
[
swap
[
/mod
[
over
*
swapd
-
]
dip
]
keep
(gcd)
]
if
;