16 lines
391 B
Text
16 lines
391 B
Text
>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 ]
|