「安倍が死ねば、日本は幸せになる」という命題があるとき、安倍が死んでないならこの命題は必ず真

「安倍が死ねば、日本は幸せになる」という命題があるとき、安倍が死んでないならこの命題は必ず真at MATH

「安倍が死ねば、日本は幸せになる」という命題があるとき、安倍が死んでないならこの命題は必ず真 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

200:9 0.742 0.023 - -  学生9 1 1 1 1 1 1 0.383 0.958 -  学生10 1 0.998 0.997 1 0.958 1 0.945 0.418 0.989  >

201:１３２人目の素数さん
 18/07/22 11:22:57.29 Ott8rTSz.net
> REDWHITECOLOR(perm[indx,]) 
RED = 5 8 7 WHITE = 3 9 6 1 8 COLOR = 4 0 2 0 5

202:１３２人目の素数さん
 18/07/22 11:43:12.65 Ott8rTSz.net
# ド底辺＋シリツ＝裏口馬鹿 
x=LETTERS[1:10] 
uraguchi <- function(A,B,C,D,E,F,G,H,I,J){ 
doteihen=10^(2:0) 
siritsu=10^(2:0) 
uraguchibaka=10^(3:0) 
sum(doteihen*c(A,B,C))+sum(siritsu*c(D,E,F))-sum(uraguchibaka*c(G,H,I,J)) 
} 
x=unique(x) 
URAGUCHI <- function(x){ 
A=x[1] 
B=x[2] 
C=x[3] 
D=x[4] 
E=x[5] 
F=x[6] 
G=x[7] 
H=x[8] 
I=x[9] 
J=x[10] 
cat(paste('ド底辺 = ',A,B,C, 
' シリツ = ',D,E,F, 
' 裏口馬鹿 = ',G,H,I,J),'\n') 
} 
URAGUCHI(unique(x)) 
library(gtools) 
perm=permutations(n=10,r=10,v=0:9) 
perm=perm[perm[,1]!=0&perm[,4]!=0&perm[,7]!=0,] # A!=0,D!=0,G!=0 
head(perm) ; tail(perm) 
n=nrow(perm) 
re=numeric(n) 
for(i in 1:n){ 
re[i]=uraguchi(perm[i,1],perm[i,2],perm[i,3],perm[i,4],perm[i,5],perm[i,6],perm[i,7],perm[i,8],perm[i,9],perm[i,10]) 
} 
hist(re) 
indx=which(re==0) 
(n.indx=length(indx)) 
for(i in 1:n.indx) URAGUCHI(perm[indx[i],])

次ページ