高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

479(1): １３２人目の素数さん [sage] 2024/12/29(日)07:54 ID:/ygSVCno(1)
rm(list=ls())
library(RcppAlgos)
pm12=permuteGeneral(0:1,12,repetition = TRUE)
colnames(pm12)=LETTERS[1:12]
f12=\(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];K=x[11];L=x[12]
all(
(A==1 & A==1) | (A==0 & A==0), # A 「私は正直者である」
(B==1 & A==0) | (B==1 & A==1), # B 「Aは嘘つきである」
(C==1 & B==0) | (C==1 & B==1), # C 「Bは嘘つきである」
(D==1 & C==0) | (D==1 & C==1), # D 「Cは嘘つきである」

(E==1 & A==1) | E==0, # E 「Aは正直者である」
(F==1 & B==1) | F==0, # F 「Bは正直者である」
(G==1 & C==1) | G==0, # G 「Cは正直者である」
(H==1 & D==1) | H==0, # H 「Dは正直者である」

I==1 | (I==0 & E==1), # I 「Eは嘘つきである」
J==1 | (J==0 & F==1), # J 「Fは嘘つきである」
K==1 | (K==0 & G==1), # K 「Gは嘘つきである」
L==1 | (L==0 & H==1)) # L 「Hは嘘つきである」
}

re=pm12[apply(pm12,1,f12),]
colnames(re)[colSums(re)==nrow(re)]

---

480: １３２人目の素数さん [sage] 2024/12/29(日)11:24 ID:8wG+CYHS(1)
バク頭脳のFimoseくんには解決できない問題
>479のバグを指摘せよ。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.035s