Номер Kaprekar цього числа п-значний до , що, коли перший п або п-1 цифра до ^ 2 додаються до другого п цифри N ^ 2, то результат Н.

Приклади:

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

Послідовність Капрекара починається з 1.

Напишіть програму, яка обчислює та виводить перші n чисел Kaprekar, з n знаходяться в діапазоні, але не обмежуючись діапазоном, від 1 до 100. Кожне число Kaprekar повинно бути розділене пробілом і більше нічого.

Більше номерів Kaprekar можна знайти тут, щоб перевірити вашу програму, але цей ресурс НЕ МОЖЕ бути використаний ні в якому разі для обчислення - іншими словами, жодне жорстке кодування, читання з цього джерела або використання його в будь-якому іншому експлуатуванні спосіб - всі номери повинні бути згенеровані вашою програмою.

Найкоротший код виграє.

Perl - 63 байти

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

Порахувавши шебанг як один байт. Введення взято з 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

С, 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дурні ...
• Дякую Джошу за додаткові 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

Я використав кілька приємних пітонних нарізок, щоб поголити кілька символів.

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 Kaprekar число виконується тут шляхом додавання коефіцієнта і решти цілого ділення 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#туди, але щось подібне необхідно, якщо друга половина розколу починається з а 0. Виконуючи арифметику, Баш розглядає такі числа як восьмеричні, якщо явно не вказано основу.

$ ./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 є куди покласти вхід