「カプレカ数」での,二番目の定義によるものを出力するプログラム。
かなり時間のかかるプログラムであり,5 番目のカプレカ数を出力するまでには 35 秒かかる。
N = 631764
for (i in 0:N) {
str = unlist(strsplit(as.character(i), ""))
big = as.numeric(paste(sort(str, decreasing = TRUE), collapse=""))
small = as.numeric(paste(sort(str), collapse=""))
if (big - small == i) print(i)
}
[1] 0
[1] 495
[1] 6174
[1] 549945
[1] 631764
ユーザ システム 経過
34.915 0.202 34.773
※コメント投稿者のブログIDはブログ作成者のみに通知されます