底辺私立医大を卒業した医者って頭悪いよね？ Part5at HOSP底辺私立医大を卒業した医者って頭悪いよね？ Part5 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト650:sum(perm[,1]*perm[,3]==perm[,2]) [1] 4 > sum(abs(perm[,1]-perm[,3])==perm[,2]) [1] 48 651:卵の名無しさん 18/07/05 23:08:47.74 bn3tqJqU.net 問題 Ａは４けたの整数で、それぞれの位は同じ数字からなり、Ｂは４けたの整数で、それぞれの位は２種類の数字からなっています。 ＡとＢの積を計算したら「44448888」になりました。 ＡとＢを求めなさい。 652:卵の名無しさん 18/07/05 23:26:18.62 bn3tqJqU.net >>621 > AB=44448888 > bb=AB/A[!AB%%A] > b=bb[999<b&b<10000] > b [1] 6668 5001 目視で6668を選ぶのはプログラムで解いたことにならないな。 653:卵の名無しさん 18/07/05 23:35:23.48 bn3tqJqU.net >>622 dec2char <- function(num, digit=0){ # decimal to 0,1 vector if(num <= 0 && digit <= 0){ return(NULL) }else{ return(append(Recall(num%/%10,digit-1), num%%10)) } } b1=t(Vectorize(dec2char)(b)) b2=apply(b1,1,function(x)length(unique(x))) (B=b[which(b2==2)]) (A=AB/B) > (B=b[which(b2==2)]) [1] 6668 > (A=AB/B) [1] 6666 検算してみる > 6666*6668 [1] 44448888 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch