[過去ﾛｸﾞ] 高校数学の質問スレ Part438 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
740(5): 11/28(木)19:42 ID:8ex6Z36l(1) AAS
整数の各桁の数を並べ替え、最大のものと最小のものとの差を取る。この差が元の整数に等しくなる数をカプレカ数と呼ぶ。
例: 元の数495 最大954 - 最小459 = 495
詳しくは動画ﾘﾝｸ[YouTube]参照
問題
（１）10桁のカプレカー数をひとつ筆算で求めよ。
（２）10桁のカプレカー数を列挙するプログラムを作り実行せよ（言語は問わない）
742: 11/28(木)20:45 ID:QUufNzkA(2/2) AAS
>>740
尿瓶ジジイ医者板では何も反論できずダンマリ決め込んでるみたいだね
745: 11/28(木)21:51 ID:0Zg9Qtmf(1) AAS
>>740
外部ﾘﾝｸ:www20.big.or.jp
747: 11/29(金)06:10 ID:d3rJHsIX(1/5) AAS
>>740
(2)
Rに実装
> apply(re,1,kaprekar)
[1] 9975084201 9753086421 6333176664
コードは兄弟スレに上げた。
751: 11/29(金)07:34 ID:sK7XQmfy(1) AAS
>>740
(2)を作っているうちに(1)の答として
9876543210 - 123456789を発見
752(2): 11/29(金)13:44 ID:d3rJHsIX(4/5) AAS
>>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];
省10
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.031s