高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
429: １３２人目の素数さん [sage] 2024/12/19(木)20:13 ID:LCH85f+S(1/3)
(*
８本の注射液があり、赤,青,黄,緑,白,黒,紫,茶のラベルが貼られている。
いずれも十分な量があり、そのうち１本が致死的な毒薬であることがわかっている。
３匹のネズミに注射液を混合して注射してどれが毒薬かを特定したい。
複数の注射液を混合しても毒性は変わらないとする。
各々のネズミに注射できるのは１回だけである。
赤 青 黄 黒 の混合液
赤 白 黒 茶 の混合液
青 緑 白 黒 の混合液
を３匹に１つずつ注射すれば特定できる。
ネズミを区別しないとして、このような組み合わせは何通りあるか。
*)
s4=Subsets[Range[8],{4}];
grp=Subsets[s4,{3}];
Short[grp]
rat=Subsets[Range[3],3]
f[x_]:=(
z1=Length@Complement[Range[8],Flatten@x];
z28=Table[
dead = Intersection@@x[[rat[[i]]]];
alive= Flatten@x[[Complement[Range[3],rat[[i]]]]];
Length@Complement[dead,alive],{i,2,8}];
AllTrue[Flatten@{z1,z28},#==1&]
)
ans=Select[grp,f];
Length[ans]
Short[ans]
430: １３２人目の素数さん [sage] 2024/12/19(木)20:14 ID:LCH85f+S(2/3)
RをWolframに移植してカウント、数値は合致した。
理工系卒ならWolframくらい使えて普通じゃないの？
Fランシリツは違うのか？それとも私文卒かよ？
431(4): １３２人目の素数さん [sage] 2024/12/19(木)20:17 ID:LCH85f+S(3/3)
>>428
俺は医科歯科卒だよ。二期校時代に理Iは蹴って医科歯科入学。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.887s*