目標は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反復ごとに増分される

編集

暗黙のint宣言（> C99）を使用して4文字を保存できますが、forイニシャライザーが> C99に宣言を含めることができないため、1文字のコストがかかります。その後、コードは

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から実行するのではなく、バッチファイルに配置する必要があり、コンソールにリストを出力します。最初のコマンドライン引数から作成する正方形の数を取ります。ほとんどの場合、&改行の代わりに使用されますが、まだ1つ必要であり、2バイトとしてカウントされます。

遅延変数の展開を有効にする必要があります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バイト、skibrianskiに感謝）
• pop代わりにshift（-2バイト、skibiranskiに感謝）

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

C ++ 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;}  

コードゴルフでの私の最初の試み

このコードに基づいている
= 2 XN - 1
ここで、N用語数であり、であり、Nシリーズ以下で番目の用語 1、3、5、9、11、13、··· 第2の用語= 2の和二乗

最初の3つの項の合計= 3の2乗
など...

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であると予想されます。結果はスタックにプッシュされ、16ビットアーキテクチャにより65535に達すると壊れます。SUB PC, 1最後にaを追加してテストすることもできます。コンパイルすると、プログラムは20バイト（10ワード）になります。

ハスケル

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 81100）

パイソン-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

編集：内側のループを@mniipのHaskellソリューションのアルゴリズムに置き換えました。

上記と同じ方法、APLおよびJ：

APL：F←{+\1+V+V←¯1+⍳⍵}（17文字）ほとんどのAPLバリアントで動作します（ここで試してください）

NGN APLではさらに少ない（14文字のみ）：（こちらを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要素までを返します。

Fortran 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

編集：内側のループを削除し、代わりに@mniipのHaskellアルゴリズムを使用しました。

編集：サブルーチンとドライバーが有効な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 

Forth-48バイト

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

使用法：

7 f

出力：

0 1 4 9 16 25 36 49