高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

763: 03/25(火)12:07 ID:JvJVqzfB(1/6) AAS
"
赤玉4個、黒玉3個、白玉2個、青玉1個を空箱なしで3つの箱にいれる。
箱を区別しないとき、入れ方は何通りあるか？
"
rm(list=ls())
# vector から remove　を除いた残りを返す
fn_rest <- function(vector,remove) Reduce(function(x, y) x[-match(y, x)], remove, init = vector)
省40

---

764: 03/25(火)12:08 ID:JvJVqzfB(2/6) AAS
pa[7,] # 2 4 4
c8=unique(comboGeneral(v,8)) ; c8
ans7=NULL
for(i in 1:nrow(c8)){
c44=c8[i,] ; c44
c4=unique(comboGeneral(c44,4)) ; c4
re44=cbind(c4,t(apply(c4,1, \(x) fn_rest(c44,x)))) ; re44
省19

---

765: 03/25(火)18:57 ID:JvJVqzfB(3/6) AAS
# 総列挙(３箱のうち２箱を表示）

ans1 # 1 1 8
m1=matrix(c("赤","黒","白","青")[ans1],ncol=2)
li1=cbind(m1[,1],'|',m1[,2]) |> noquote() ; li1

ans2 # 1 2 7
m2=matrix(c("赤","黒","白","青")[ans2],ncol=3)
li2=cbind(m2[,1],'|',m2[,2:3]) |> noquote() ; li2
省18

---

766: 03/25(火)19:45 ID:JvJVqzfB(4/6) AAS
分け方の最初の30通りを列挙
[1,] 赤 | 赤 | 赤 赤 黒 黒 黒 白 白 青
[2,] 赤 | 黒 | 赤 赤 赤 黒 黒 白 白 青
[3,] 赤 | 白 | 赤 赤 赤 黒 黒 黒 白 青
[4,] 赤 | 青 | 赤 赤 赤 黒 黒 黒 白 白
[5,] 黒 | 黒 | 赤 赤 赤 赤 黒 白 白 青
[6,] 黒 | 白 | 赤 赤 赤 赤 黒 黒 白 青
省24

---

767: 03/25(火)19:45 ID:JvJVqzfB(5/6) AAS
分け方の最後の30通りを列挙
[1,] 赤 黒 黒 | 赤 黒 青 | 赤 赤 白 白
[2,] 赤 赤 黒 | 黒 白 白 | 赤 赤 黒 青
[3,] 赤 赤 白 | 黒 黒 白 | 赤 赤 黒 青
[4,] 赤 黒 黒 | 赤 白 白 | 赤 赤 黒 青
[5,] 赤 黒 白 | 赤 黒 白 | 赤 赤 黒 青
[6,] 赤 赤 黒 | 黒 白 青 | 赤 赤 黒 白
省24

---

768: 03/25(火)20:20 ID:JvJVqzfB(6/6) AAS
mat1=t(apply(ans1,1, \(x) c(x,fn_rest(v,x))))
M1=matrix(c("赤","黒","白","青")[mat1],ncol=10) |> noquote()
L1=cbind(M1[,1],'|',M1[,2],'|',M1[,3:10]) |> noquote() ; L1

mat2=t(apply(ans2,1, \(x) c(x,fn_rest(v,x))))
M2=matrix(c("赤","黒","白","青")[mat2],ncol=10) |> noquote()
L2=cbind(M2[,1],'|',M2[,2:3],'|',M2[,4:10]) |> noquote() ; L2

mat3=t(apply(ans3,1, \(x) c(x,fn_rest(v,x))))
省21

---

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

---

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

---

ぬこの手 ぬこTOP 0.033s