%% syntaxe : [x1 ... xn] (f) spapply
%% comme papply, mais sans ouvrir de dictionnaire local
/spapply {
/f@ncti@n_l@cale exch def
/liste exch def
/sp@i 0 def
[
liste length 2 idiv {
liste sp@i get
liste sp@i 1 add get
f@ncti@n_l@cale
/sp@i sp@i 2 add store
} repeat
counttomark
0 eq
{pop}
{]}
ifelse
currentdict /f@ncti@n_l@cale undef
currentdict /liste undef
currentdict /sp@i undef
} def
|