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