#######################################
## P Programmazione.

# Restituisce T se nessuno degli
# argomenti e' NA.
P.def = function (...)
{a=list(...); !any(is.na(a))}

# x e i valori con cui x viene confrontato
# devono essere numerici.
P.quale = function (x,...)
{a=list(...); i=1; n=length(a)
while (i<n)
{if (x==a[[i]]) return(a[[i+1]])
i=i+2}
if (i==n) return(a[[n]])}