甲卡布列克数为n位数字ķ的是，当第一Ñ或n-1个位k的^ 2被添加到第二Ñ的N ^ 2位数，则结果为N.

例子：

9^2 = 81.  8+1 = 9.
45^2 = 2025.  20+25 = 45.
297^2 = 88,209. 88+209 = 297

Kaprekar序列从1开始。

编写一个程序，计算并输出前n个 Kaprekar数，其中n在1到100的范围内，但不限于此。每个Kaprekar数必须用空格分隔，不能有其他空格。

您可以在此处找到更多的Kaprekar编号来检查您的程序，但是不得以任何方式使用此资源来帮助进行计算-换句话说，请勿进行硬编码，从此源读取或在任何其他漏洞利用程序中使用它方式-所有数字都必须由您的程序生成。

最短的代码获胜。

Perl-63字节

#!perl -l
map{1while$l=length++$_,$_**2=~/.{$l}$/,$`+$&^$_;print}($_)x<>

将shebang计为一个字节。输入来自stdin。

对于n≤50，这具有可接受的运行时，之后它会变慢。

用法示例：

$ echo 20 | perl kaprekar.pl
1
9
45
55
99
297
703
999
2223
2728
4950
5050
7272
7777
9999
17344
22222
77778
82656
95121

C，109 106

long long i=1;x=10,n;main(){scanf("%d",&n);for(;n;x*=x<=++i?10:1)(i-i*i/x-i*i%x)||printf("%lld ",i,n--);}

• 有n多达17这将是确定删除long long，
• 超出的printf参数被滥用：）
• 为什么在三元运算符中不能使用空语句？这两个1很傻...
• 感谢Josh附加的3个字符...

数学144 154

k@m_:=((x=m^2)-(w=FromDigits[Take[IntegerDigits@x,y=-IntegerLength@m]]))*10^y+w==m;
g@n_:=(s={};i=0;While[Length@s<n,If[k@i,s=Append[s,i]];i++];s)   

测试

g[14]

0
1
9
45
55
99
297
703
999
2223
2728
4950
5050
7272

Javascript 96

for(i=0,n=prompt(s='');n;i++){t=''+i*i;if(t.substr(0,l=t.length/2)==i-t.substr(‌​l))n--,s+=i+' '}s

输出：

0 1 9 45 55 99 297 703 999 2223 2728 4950 5050 7272 7777 9999 17344 22222 77778 82656 95121 99999 142857 148149 181819 187110 208495 318682 329967 351352 356643 390313 461539 466830 499500 500500 533170 538461 609687 643357 648648 670033 681318 791505 812890 818181 851851 857143 961038 994708 999999 

蟒蛇-98

我使用了一些不错的python切片功能来剃掉一些字符。

i=n=0
while n<20:
 i+=1;s=str(i**2);l=-len(str(i))
 if int("0"+s[:l])+int(s[l:])==i:print(i);n+=1

C＃-255个字符。

int x=100;decimal k=0;while(x>0){k++;decimal d=k*k;string s=d.ToString("n").Replace(",","").Split('.')[0];int g=k.ToString().Length;int h=s.Length;if(k==d||(h!=g&&long.Parse(s.Substring(h-g))+long.Parse(s.Substring(0,h-g))==k)){Console.Write(k+" ");x--;}}

x是您希望代码查找的Kaprekar数字的数量。经过测试的范围是1到100，但应该支持更多的功能。100个号码需要花两个半小时才能返回，尽管前50个只花了大约1秒的时间-之后情况逐渐放慢。

输出：

1 9 45 55 99 297 703 999 2223 2728 4950 5050 7272 7777 9999 17344 22222 77778 
82656 95121 99999 142857 148149 181819 187110 208495 318682 329967 351352 356643 
390313 461539 466830 499500 500500 533170 538461 609687 643357 648648 670033 
681318 791505 812890 818181 851851 857143 961038 994708 999999 4444444 4927941 
5072059 5555556 9372385 9999999 11111112 13641364 16590564 19273023 19773073 
24752475 25252525 30884184 36363636 38883889 44363341 44525548 49995000 50005000 
55474452 55636659 61116111 63636364 69115816 74747475 75247525 80226927 80726977 
83409436 86358636 88888888 91838088 94520547 99999999 234567901 332999667 
432432432 567567568 667000333 765432099 999999999 1111111111 1776299581 2020202020 
3846956652 3888938889 4090859091 4132841328 4756047561

列出的代码如下：

        int x = 100;
        decimal k = 0; 
        while (x > 0) 
        {
            k++;
            decimal d = k * k;
            string s = d.ToString("n").Replace(",", "").Split('.')[0];
            int g = k.ToString().Length; 
            int h = s.Length; 

            if (k == d || (h != g && long.Parse(s.Substring(h - g)) + long.Parse(s.Substring(0, h - g)) == k) )
            { 
                Console.Write(k + " "); x--; 
            } 
        }

我想知道这是否可以进一步缩短。

C，90 76 75字节

long long d,r=1;k(n){for(;++d/r?r*=10:--n;d-d*d/r-d*d%r||printf("%d ",d));}

Python 2.7、144（包括换行符）

def c(c):
 l="1";i=2;u=1
 while u<c:
  r=str(i**2);w=len(r)
  if w>1:
   if i==int(r[:w/2])+int(r[w/2:]):
    l+=" "+str(i);u+=1
  i+=1
 print l

c = 10的输出：

1 9 45 55 99 297 703 999 2223 2728

u = 20的输出：

1 9 45 55 99 297 703 999 2223 2728 4950 5050 7272 7777 9999 17344 22222 77778 82656 95121

R，99个字符

k=n=0;N=scan();while(n<N){k=k+1;j=k^2;i=10^ceiling(nchar(j)/2);if(k==j%/%i+j%%i){cat(k," ");n=n+1}}

与i被的数字数量的一半k^2舍入，阉羊k的评价是通过将商和的整数除法的余数在这里进行的卡布列克数k^2由10^i（商为的数字的左半向下舍入和其余的右半部分四舍五入）。

bash + sed，75个字符

Bash仅执行整数运算，并将数字表示为十进制字符串；这些属性有助于打高尔夫球。此外，在进行算术运算时，未声明/未分配的变量也被假定为值为0。

for((;s=++i*i,l=${#s}/2,1;));{
((${s:0:l}+10#${s:l}-i))||echo $i
}|sed $1q

我很讨厌把放进10#去，但是如果拆分的后半部分以a开头，则需要这样的操作0。在进行算术运算时，除非明确说明了基数，否则bash会将这些数字视为八进制。

$ ./kaprekar.sh 10
1个
9
45
55
99
297
703
999
2223
2728
$ 

Python 3.3-117个字符

n=int(input())
p=1
while n>0:
    v=str(p**2)
    l=len(v)
    if p==int(v[l//2:])+int('0'+v[:l//2]):
        print(p)
        n-=1
    p+=1

每个缩进级别和每个换行符（最后一个换行符除外）均计为1个字符。我认为这对于Python代码是公平的。该脚本希望用户输入要计算的Kaprekar数字的数量。

J 64

有点丑陋，但仍然如此。它检查所有不超过一百万的数字然后取走n，因此仅适用于n <= 50。

n{.}.I.(]=+/&;&:(10&#.&.>)&(<.@-:@#({.;}.)])&(10&#.inv@*:))i.1e6

n 在哪里输入