[過去ﾛｸﾞ] 高校数学の質問スレ Part438 (1002ﾚｽ)

高校数学の質問スレ Part438 http://rio2016.5ch.net/test/read.cgi/math/1723179542/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

752: １３２人目の素数さん [sage] 2024/11/29(金) 13:44:22.45 ID:d3rJHsIX >>740 医系（裏口シリツは除く）ならR言語、理工系ならWolfram言語が使えるのが普通だろうから、 RのソルバーをWolframに移植 (* n 桁のカプレカ数を求める*) n=10 DigitsInteger[x_] :=( le=Length@x; Total[x Table[10^pow,{pow,Reverse@Range[0,le-1]}]] ) list=Range[0,9]; cm=ResourceFunction["OrderlessCombinations"][list,{n}]; KaprekarQ[li_] :=( max=DigitsInteger@ReverseSort@li; min=DigitsInteger@Sort@li; d=max-min; lid=IntegerDigits@d; (d == DigitsInteger@ReverseSort@lid - DigitsInteger@Sort@lid) && max!=min ) re=Select[cm,KaprekarQ]; DigitsInteger@ReverseSort@# - DigitsInteger@Sort@# & /@ re // Union http://rio2016.5ch.net/test/read.cgi/math/1723179542/752

---

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

---

あと 250 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.010s