高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

342: １３２人目の素数さん [sage] 2024/11/29(金) 06:08:12.87 ID:d3rJHsIX # 10桁のカプレカー数を列挙するプログラムを作り実行せよ n=10 library(RcppAlgos) is.kaprekar=\(m){ IntegerDigits=\(n) as.integer(unlist(strsplit(as.character(n),''))) le=length(m) mu=10^((le-1):0) min=sum(sort(m)*mu) max=sum(sort(m,decreasing = TRUE)*mu) n=sum(m*mu) d=max-min sum(sort(IntegerDigits(d))*mu)==min & min!=max } cm=comboGeneral(0:9,n,repetition = TRUE) re=cm[apply(cm,1,is.kaprekar),] kaprekar=\(m){ le=length(m) mu=10^((le-1):0) min=sum(sort(m)*mu) max=sum(sort(m,decreasing = TRUE)*mu) n=sum(m*mu) max-min } apply(re,1,kaprekar) http://rio2016.5ch.net/test/read.cgi/math/1723152147/342

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.036s