>function map kaprekarp (n) ...
$  m=n*n;
$  p=10;
$  repeat
$    i=floor(m/p);
$    j=mod(m,p);
$    if j==0 then return 0; endif;
$    if i+j==n then return 1; endif;
$    p=p*10;
$    until p>m;
$  end;
$  return 0;
$endfunction
>nonzeros(kaprekarp(1:100000))
 [ 1  9  45  55  99  297  703  999  2223  2728  4879  5292  7272  7777
 9999  17344  22222  38962  77778  82656  95121  99999 ]