5 lines
60 B
PostScript
5 lines
60 B
PostScript
/gcd {
|
|
{
|
|
{0 gt} {dup rup mod} {pop exit} ifte
|
|
} loop
|
|
}.
|