高校数学の質問スレ(医者・東大卒専用) Part438 (899レス)
高校数学の質問スレ(医者・東大卒専用) Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
764: 132人目の素数さん [sage] 2025/03/25(火) 12:08:08.95 ID:JvJVqzfB 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 ans44=re44[apply(re44,1,\(x) sum(c(1000,100,10,1)*x[1:4]) <= sum(c(1000,100,10,1)*x[5:8])),] ; ans44 ans7=rbind(ans7,ans44) } matrix(c("赤","黒","白","青")[ans7],ncol=8) |> noquote() re7=nrow(ans7) ; re7 pa[8,] # 3 3 4 c6=unique(comboGeneral(v,6)) ; c6 ans8=NULL for(i in 1:nrow(c6)){ c33=c6[i,] ; c33 c3=unique(comboGeneral(c33,3)) ; c3 re33=cbind(c3,t(apply(c3,1, \(x) fn_rest(c33,x)))) ; re33 ans33=re33[apply(re33,1,\(x) sum(c(100,10,1)*x[1:3]) <= sum(c(100,10,1)*x[4:6])),] ; ans33 ans8=rbind(ans8,ans33) } matrix(c("赤","黒","白","青")[ans8],ncol=6) |> noquote() re8=nrow(ans8) ; re8 (res=c(re1,re2,re3,re4,re5,re6,re7,re8)) sum(res) http://rio2016.5ch.net/test/read.cgi/math/1723152147/764
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 135 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.010s