高校数学の質問スレ(医者・東大卒専用) Part438 (991レス)
上下前次1-新
345: 2024/11/30(土)10:21 ID:L4mkprla(2/6) AAS
(* 16進法でn桁のカプレカ数を求める *)
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,""];
hex[hex@StringJoin@ReverseSort@lid - hex@StringJoin@Sort@lid]==StringJoin@lid && d!=0
)
re=Select[s,KaprekarHexQ];
hex /@ (hex@StringJoin@ReverseSort@# - hex@StringJoin@Sort@# & /@re) // Union
上下前次1-新書関写板覧索設栞歴
あと 646 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ
ぬこの手 ぬこTOP 0.010s