Цель состоит в том, чтобы вычислить все квадраты до xсложения и вычитания.

Правила:

1. Код должен быть функцией, которая берет общее число квадратов для генерации и возвращает массив, содержащий все эти квадраты.
2. Вы не можете использовать строки, структуры, умножение, деление или встроенные функции для вычисления квадратов.
3. Вы можете использовать только массивы, целые числа (целые числа), сложение, вычитание. Другие операторы не допускаются!

Это вопрос кода-гольфа , поэтому выигрывает самый короткий код в байтах!

APL - 10

{+\1++⍨⍳⍵}

Пример использования:

{+\1++⍨⍳⍵}10
1 4 9 16 25 36 49 64 81 100

демо-версия ngn APL

C 55 52 байта

int s(int n,int*r){for(int i=0,j=-1;n--;*r++=i+=j+=2);}

просто суммы нечетных чисел

• n: количество квадратов для вычисления
• r: выходной массив для хранения результатов
• j: принимает последовательные значения 1, 3, 5, 7, ...
• i: увеличивается jна каждую итерацию

редактировать

4 символа могут быть сохранены с помощью неявного объявления int (> C99), но это стоит 1 символ, потому что forинициализаторы не могут содержать объявление в> C99. Тогда код становится

s(int n,int*r){int i=0,j=-1;for(;n--;*r++=i+=j+=2);}

использование

void main() {
    int r[20];
    s(20, r);
    for (int i = 0; i < 20 ; ++i) printf("%d\n", r[i]);
}  

Выход

1
4
9
16
25
36
49
(...)
361
400

GolfScript, 17 символов

{[,{.+(1$+}*]}:F;

Использование (см. Также примеры онлайн ):

10 F     # => [0 1 4 9 16 25 36 49 64 81]

Примечание: * это цикл, а не оператор умножения.

Пакет Windows, 115 байт

setlocal enabledelayedexpansion&for /l %%i in (1 1 %1)do (set a=&for /l %%j in (1 1 %%i)do set /a a+=%%i
echo.!a!)

Это должно быть помещено в командный файл вместо запуска из cmd, и оно выводит список на консоль. Требуется количество квадратов для создания из первого аргумента командной строки. По большей части он использует &вместо новых строк, однако один все еще необходим, и он считается как два байта.

Необходимо включить отложенное расширение переменной, это можно сделать с помощью cmd /v:on. Предполагая, что это не так, setlocal enabledelayedexpansion&в начале потребовалось дополнительное (без него скрипт будет 83 байта).

Хаскелл - 30

f n=scanl1(\x y->x+y+y-1)[1..n]

Это использует тот факт, что (n+1)^2=n^2+2n+1

Perl, 27 байт

sub{map{$a+=$_+$_-1}1..pop}

Математика:

Скрипт для вызова функции для печати 10 квадратов:

#!/usr/bin/env perl
$square = sub{map{$a+=$_+$_-1}1..pop};
use Data::Dumper;
@result = &$square(10);
print Dumper \@result;

Результат:

$VAR1 = [
          1,
          4,
          9,
          16,
          25,
          36,
          49,
          64,
          81,
          100
        ];

Редактирование:

• Анонимная функция (-2 байта, спасибо скибрянски )
• popвместо shift(-2 байта, спасибо скибирански )

JavaScript - 32 символа

for(a=[k=i=0];i<x;)a[i]=k+=i+++i

Предполагается, что переменная xсуществует, и создает массив aквадратов для значений 1..x.

ECMAScript 6 - 27 символов

b=[f=i=>b[i]=i&&i+--i+f(i)]

Вызов f(x)заполнит массив bквадратами для значений 0..x.

Юлия - 33

Любое квадратное число может быть записано суммированием нечетных чисел:

julia> f(x,s=0)=[s+=i for i=1:2:(x+x-1)];f(5)
5-element Array{Int64,1}:
  1
  4
  9
 16
 25

С ++ 99 81 78 80 78

int* f(int x){int a[x],i=1;a[0]=1;while(i<x)a[i++]=a[--i]+(++i)+i+1;return a;}  

моя первая попытка в код-гольфе

этот код основан на
a = 2 xn - 1,
где n - количество терминов, а a - n- й термин в следующих сериях
1, 3, 5, 9, 11, 13, .....
сумма первых 2 терминов = 2 квадрат

сумма первых 3 слагаемых = 3 в квадрате
и так далее ...

Сборка DCPU-16 (90 байт)

Я написал это в сборке для вымышленного процессора, потому что почему бы и нет?

:l
ADD I,1
SET B,0
SET J,0
:m
ADD J,1
ADD B,I
IFL J,I
SET PC,m
SET PUSH,B
IFL I,X
SET PC,l

Ожидается, что число будет в регистре X, а другие регистры должны быть равны 0. Результаты помещаются в стек, и он сломается, как только достигнет 65535 из-за 16-битной архитектуры. Вы можете добавить SUB PC, 1в конец, чтобы проверить это. Скомпилированная программа должна составлять 20 байт (10 слов).

Haskell

f x=take x [iterate (+y) 0 !! y | y<- [0..]]

Это в основном изобретает умножение, использует его сам и отображает все числа. f 10= [0,1,4,9,16,25,36,49,64,81]. Также f 91= [0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,400,441,484,529,576,625,676,729,784,841,900,961,1024,1089,1156,1225,1296,1369,1444,1521,1600,1681,1764,1849,1936,2025,2116,2209,2304,2401,2500,2601,2704,2809,2916,3025,3136,3249,3364,3481,3600,3721,3844,3969,4096,4225,4356,4489,4624,4761,4900,5041,5184,5329,5476,5625,5776,5929,6084,6241,6400,6561,6724,6889,7056,7225,7396,7569,7744,7921,8100].

Хаскелл, 34/23

n#m=m+n:(n+2)#(m+n)
f n=take n$1#0

или, если импорт в порядке:

f n=scanl1(+)[1,3..n+n]

Выход:

λ> f 8
[1,4,9,16,25,36,49,64]

Javascript 47

function f(n,a){return a[n]=n?f(n-1,a)+n+n-1:0}

r=[];f(12,r);console.log(r) возвращает:
[0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144]

Smalltalk, 52

f:=[:n||s|(s:=1)to:n collect:[:i|x:=s.s:=s+i+i+1.x]]

Возвращает новый массив (т.е. не заполняет или не добавляет к существующему).

вызов:

значение f: 10

-> # (1 4 9 16 25 36 49 64 81 100)

питон - 39

a=0
for i in range(5):a+=i+i+1;print(a)

Заменить 5на любое значение. Какие-либо предложения?

Баш - 92 85 62 61 59 57

declare -i k=1;for((i=0;i++<$1;k+=i+i+1));do echo $k;done

Результат:

$ ./squares.sh 10
1
4
9
16
25
36
49
64
81
100

Изменить: я заменил внутренний цикл с алгоритмом из решения Haskell @ mniip.

Тот же метод, что и выше, в APL и J:

APL: F←{+\1+V+V←¯1+⍳⍵}(17 символов) работает с большинством вариантов APL (попробуйте здесь )

и даже меньше (всего 14 символов) с APL NGN: F←{+\1+V+V←⍳⍵}(см. здесь )

J: f=:+/\@(>:@+:@:i.)(18 символов)

редактировать: лучшее решение в APL: F←{+\¯1+V+V←⍳⍵}(15 символов)

C # (82)

int[] s(int n){int i,p=0;var r=new int[n];while(i<n){p+=i+i+1;r[i++]=p;}return r;}

C # - 93

int[]s(int l){int[]w=new int[l];while(l>=0){int i=0;while(i<l){w[l-1]+=l;i++;}l--;}return w;}

При вызове из другого метода того же класса вернет массив - [1,4,9,16,25,36...]до lэлемента th.

Фортран II | IV | 66 | 77, 134 122 109 105

  SUBROUTINES(N,M)
  INTEGERM(N)
  K=0
  DO1I=1,N
  K=K+I+I-1
1 M(I)=K
  END

Редактировать: удалить внутренний цикл и использовать алгоритм Haskell @ mniip вместо.

Изменить: Проверено, что подпрограмма и драйвер действительны Fortran II и IV

Водитель:

  INTEGER M(100)
  READ(5,3)N
  IF(N)5,5,1
1 IF(N-100)2,2,5
2 CALLS(N,M)
  WRITE(6,4)(M(I),I=1,N)
3 FORMAT(I3)
4 FORMAT(10I6)
  STOP  
5 STOP1
  END

Результат:

$ echo 20 | ./a.out
   1     4     9    16    25    36    49    64    81   100
 121   144   169   196   225   256   289   324   361   400

Python - 51

Здесь я определяю функцию в соответствии с правилами.

Использование sumнечетных чисел:

f=lambda n:[sum(range(1,i+i+3,2))for i in range(n)]

Это только использует sum(встроенный, который выполняет сложение) и range(встроенный, который создает массивы, используя сложение). Если вы возражаете sum, мы можем сделать это с reduce:

def g(n):v=[];reduce(lambda x,y:v.append(x) or x+y,range(1,i+i+3,2));return v

PHP, 92 байта

Конечно, для этого нужно включить опцию «короткие метки» (чтобы сбрить 3 байта в начале).

<? $x=100;$a=1;$r=0;while($r<=$x){if($r){echo"$r ";}for($i=0,$r=0;$i<$a;$i++){$r+=$a;}$a++;}

Выход:

1 4 9 16 25 36 49 64 81 100 

Далее - 48 байт

: f 1+ 0 do i 0 i 0 do over + loop . drop loop ;

Использование:

7 f

Выход:

0 1 4 9 16 25 36 49