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