高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

344: 2024/11/30(土)07:28 ID:L4mkprla(1/6) AAS
hex[x_]:=ResourceFunction["HexConvert"][x];

start="100";
end="fff";
d=hex /@ Range[hex[start],hex[end]];
s=StringSplit[#,""]& /@ d;
KaprekarHexQ[x_] := hex[hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x] == StringJoin@x;
StringJoin /@ Select[s,KaprekarHexQ]

---

345: 2024/11/30(土)10:21 ID:L4mkprla(2/6) AAS
(* 16進法でｎ桁のカプレカ数を求める *)
n=6
hex[x_]:=ResourceFunction["HexConvert"][x];
s=ResourceFunction["OrderlessCombinations"][hex /@ Range[0,15],{n}];
KaprekarHexQ[x_] := (
d=hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x;
lid=StringSplit[hex@d,""];
省4

---

346: 2024/11/30(土)14:45 ID:L4mkprla(3/6) AAS
ｂ進法、ｎ桁のカプレカ数を求めるように拡張

(* ｂ進法でｎ桁のカプレカ数を返す 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]];
省22

---

348: 2024/11/30(土)17:54 ID:L4mkprla(4/6) AAS
(*
問題　5桁の疑似ヴァンパイア数を列挙せよ。
*)
f14[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=#[[1]]*(1000 #[[2]]+100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
省11

---

349: 2024/11/30(土)17:55 ID:L4mkprla(5/6) AAS
{{5, 2051, 10255}, {5, 2105, 10525}, {9, 1251, 11259}, {8, 1481, 11848},

> {6, 2001, 12006}, {6, 2010, 12060}, {3, 4128, 12384}, {5, 2501, 12505},

> {5, 2510, 12550}, {5, 2519, 12595}, {6, 2100, 12600}, {6, 2127, 12762},

> {3, 4281, 12843}, {5, 2591, 12955}, {3, 4515, 13545}, {3, 5001, 15003},

> {3, 5010, 15030}, {6, 2541, 15246}, {3, 5100, 15300}, {3, 5145, 15435},
省5

---

350(1): 2024/11/30(土)17:55 ID:L4mkprla(6/6) AAS
f23[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=(10 #[[1]]+#[[2]])(100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
i=Position[prd,n];
ans={};
If[i!={},
省21

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.033s