高校数学の質問スレ（医者・東大卒専用） Part438 (370ﾚｽ)
上下前次1-新

---

346: 11/30(土)14:45 ID:L4mkprla(3/6) AA×


[240|320|480|600|原寸|JPG|べ|ﾚｽ栞|ﾚｽ消]
346: [sage] 2024/11/30(土) 14:45:57.18 ID:L4mkprla ｂ進法、ｎ桁のカプレカ数を求めるように拡張 (* ｂ進法でｎ桁のカプレカ数を返す b <= 36 *) solve[b_,n_]:=( dec2n[x_] :=( r=List@Mod[x,b]; q=Floor[x/b]; While[q > 0,PrependTo[r,Mod[q,b]];q=Floor[q/b]]; r ); DigitsInteger[x_] :=( le=Length@x; Table[(Reverse@x)[[i]]*b^(i-1),{i,1,le}]//Total ); digits=Flatten@{Range[0,9],Alphabet[]}; s=ResourceFunction["OrderlessCombinations"][digits[[Range[1,b]]],{n}]; KaprekarBinQ[x_]:=( d=DigitsInteger@ReverseSort@x - DigitsInteger@Sort@x; lid=dec2n[d]; DigitsInteger@ReverseSort@lid - DigitsInteger@Sort@lid == DigitsInteger@lid && d!=0 ); re=Select[s,KaprekarBinQ]; ans10=Union@(DigitsInteger@ReverseSort@# - DigitsInteger@Sort@# & /@ re); ans2=dec2n /@ ans10; ans3=Table[digits[[i]],{i,ans2+1}]; Le=Length[ans3]; Table[StringJoin @ (ToString /@ ans3[[i]]),{i,1,Le}] ) solve[2,10] solve[16,6] http://rio2016.5ch.net/test/read.cgi/math/1723152147/346
進法桁のカプレカ数を求めるように拡張 進法で桁のカプレカ数を返す

---

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

---

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

---

ぬこの手 ぬこTOP 0.026s