V <- 1:0
for(P in V) for(Q in V) for(R in V) print(c( P,Q,R, P|Q&R,(P|Q)&R,P|(Q&R) ))
#
# Alternativa, più sofisticata, in cui uso 'cat' per concatenare le uscite e
# 'sep' per separle col tabulatore, '\t', e scrivo TRUE, FALSE invece di 1, 0:
V <- c(TRUE, FALSE)
{ cat('P','Q','R', '->', 'P|Q&R','(P|Q)&R','P|(Q&R)', '\n', sep='\t' );
for(P in V) for(Q in V) for(R in V) cat(P,Q,R, '->', P|Q&R,(P|Q)&R,P|(Q&R),'\n',sep='\t' ) }