%% syntaxe : [A1 ... An] (f) papply3d --> [f(A1) ... f(An)]
/papply3d {
3 dict begin
/fonction exch def
/liste exch def
/i 0 def
[
liste length 3 idiv {
liste i get
liste i 1 add get
liste i 2 add get
fonction
/i i 3 add store
} repeat
counttomark
0 eq
{pop}
{]}
ifelse
end
} def
|