カプレカ数（その2）

「カプレカ数」での，二番目の定義によるものを出力するプログラム。

かなり時間のかかるプログラムであり，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