底辺私立医大を卒業した医者って頭悪いよね？ Part6

底辺私立医大を卒業した医者って頭悪いよね？ Part6at HOSP

底辺私立医大を卒業した医者って頭悪いよね？ Part6 - 暇つぶし2ch949:!=(5+1)5!=5*5!+5! =5*5!+(4+1)*4! =5*5!+4*4!+4! =5*5!+4*4!+(3+1)*3! =5*5!+4*4!+3*3!+3! =5*5!+4*4!+3*3!+(2+1)*2! =5*5!+4*4!+3*3!+2*2!+2! =5*5!+4*4!+3*3!+2*2!+1*1!+1 Ｂ，Ｃ，Ｄ，Ｅ，Ｆが０～９の数字（同じ数字であってもよい）で６！＊Ｂ＋５！＊Ｃ＋４！＊Ｄ＋３！＊Ｅ＋２！＊Ｆ＋１！＊Ｇ＝５５５５が成立するときＢ＋Ｃ＋Ｄ＋Ｅ＋Ｆ＋Ｇの最小となるＢ～Ｇの組み合わせを求めよ。 n=5555 f <- function(B,C,D,E,F,G) sum(factorial(6:1)*c(B,C,D,E,F,G))-n max=n%/%factorial(6) gr=expand.grid(0:max,0:6,0:5,0:4,0:3,0:2) ret=mapply(f, gr[,1],gr[,2],gr[,3],gr[,4],gr[,5],gr[,6]) bg=apply(gr[which(ret==0),],1,sum) (min.sum=bg[which.min(bg)]) gr[names(min.sum),] n%/%factorial(6) n%%factorial(6)%/%factorial(5) n%%factorial(6)%%factorial(5)%/%factorial(4) n%%factorial(6)%%factorial(5)%%factorial(4)%/%factorial(3) n%%factorial(6)%%factorial(5)%%factorial(4)%%factorial(3)%/%factorial(2) n%%factorial(6)%%factorial(5)%%factorial(4)%%factorial(3)%%factorial(2)%/%factorial(1)

次ページ

続きを表示

1を表示