Kaprekar numbers

Post by **Mr. Kibernetik** » Thu Sep 07, 2017 6:48 pm

This program calculates Kaprekar numbers:

kap,n = getkap(10000)
> i, 1..n
  #.output(kap[i])
<

getkap(x)=
  > k, 1..x
    n = #.lower(#.log10(k^2))+1
    > i, 1..n
      r = k^2%10^i
      << r>k
      >> r=0
      l = #.lower(k^2/10^i)
      ? r+l=k, kap[#.size(kap,1)+1] = k
    <
  <
  <= kap,#.size(kap,1)
.

Output:

Code: Select all