9 lines
108 B
PostScript
9 lines
108 B
PostScript
|
/avg {
|
||
|
|
dup length
|
||
|
|
{0 gt} {
|
||
|
|
exch 0 {add} fold exch div
|
||
|
|
} {
|
||
|
|
exch pop
|
||
|
|
} ifte
|
||
|
|
}.
|