%% cherche si un elt donne appartient au tableau donne
%% rque : utilise 3 variables locales
%% syntaxe : elt array in --> index boolean
/in {
3 dict begin
/liste exch def
/elt exch def
/i 0 def
false %% la reponse a priori
liste length {
liste i get elt eq {
pop %% en enleve la reponse
i true %% pour mettre la bonne
exit
} if
/i i 1 add store
} repeat
end
} def
%% cherche si un elt donne appartient au tableau donne
%% syntaxe : elt array in --> boolean
/In {
3 dict begin
/liste exch def
/elt exch def
/i 0 def
false %% la reponse a priori
liste length {
liste i get elt eq {
pop %% en enleve la reponse
true %% pour mettre la bonne
exit
} if
/i i 1 add store
} repeat
end
} def
|