20/09/21 14:27:45.34 lAYOWlOk.net
"
「マウント猿ならば、レイプという語を好んで使うなら犯罪予備軍である」から
「レイプという語を好んで使うならば、マウント猿ならば犯罪予備軍である」が、導けるか？
"
真偽表を作ってプログラムに判定させる
'%=>%' = function(P,Q) !(P & !Q)
M=c(T,F)
R=c(T,F)
C=c(T,F)
gr=expand.grid(M,R,C)
colnames(gr)=c('M','R','C')
gr
f4 <- function(M,R,C) (M %=>% (R %=>% C)) %=>% (R %=>% (M %=>% C))
mapply(f4,gr[,1],gr[,2],gr[,3])