5 lines
74 B
PostScript
5 lines
74 B
PostScript
/gcd {
|
|
dup 0 ne {
|
|
dup 3 1 roll mod gcd
|
|
} { pop } ifelse
|
|
} def
|