Le but est de calculer tous les carrés jusqu'à l' xaddition et la soustraction.

Règles:

1. Le code doit être une fonction qui prend le nombre total de carrés à générer et renvoie un tableau contenant tous ces carrés.
2. Vous ne pouvez pas utiliser de chaînes, de structures, de multiplication, de division ou de fonctions intégrées pour calculer des carrés.
3. Vous ne pouvez utiliser que des tableaux, des entiers (nombres entiers), l'addition, la soustraction. Aucun autre opérateur autorisé!

C'est une question de code-golf , donc le code le plus court en octets gagne!

APL - 10

{+\1++⍨⍳⍵}

Exemple d'utilisation:

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

démo ngn APL

C, 55 52 octets

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

résume simplement les nombres impairs

• n: nombre de carrés à calculer
• r: tableau de sortie pour stocker les résultats
• j: prend les valeurs successives 1, 3, 5, 7, ...
• i: est incrémenté de jà chaque itération

Éditer

4 caractères peuvent être enregistrés à l'aide de la déclaration implicite int (> C99), mais cela coûte 1 caractère car les forinitialiseurs ne peuvent pas contenir de déclaration dans> C99. Ensuite, le code devient

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

Usage

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

Production

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

GolfScript, 17 caractères

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

Utilisation (voir aussi des exemples en ligne ):

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

Remarque: * est une boucle et non l'opérateur de multiplication.

Windows Batch, 115 octets

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!)

Celui-ci doit être placé dans un fichier de commandes au lieu d'être exécuté à partir de cmd, et il génère la liste sur la console. Il faut le nombre de carrés à créer à partir du premier argument de ligne de commande. Pour la plupart, il utilise &au lieu de sauts de ligne, un est cependant nécessaire et il compte pour deux octets.

Il a besoin d'une extension variable retardée activée, cela peut être fait avec cmd /v:on. En supposant que ce n'est pas le cas, un supplément setlocal enabledelayedexpansion&était nécessaire au début (sans lui, le script fait 83 octets).

Haskell - 30

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

Cela utilise le fait que (n+1)^2=n^2+2n+1

Perl, 27 octets

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

Math:

Script pour appeler la fonction pour imprimer 10 carrés:

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

Résultat:

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

Modifications:

• Fonction anonyme (−2 octets, merci skibrianski )
• popau lieu de shift(−2 octets, merci skibiranski )

JavaScript - 32 caractères

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

Suppose qu'une variable xexiste et crée un tableau ade carrés pour les valeurs 1..x.

ECMAScript 6 - 27 caractères

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

L'appel f(x)remplira le tableau bavec les carrés pour les valeurs 0..x.

Julia - 33

Tout nombre carré peut être écrit par une somme de nombres impairs:

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

mon premier essai en code-golf

ce code est basé sur
a = 2 xn - 1
où n est le nombre de termes et a est le n ème terme des séries suivantes
1, 3, 5, 9, 11, 13, .....
somme des 2 premiers termes = 2 au carré

somme des 3 premiers termes = 3 au carré
et ainsi de suite ...

Assemblage DCPU-16 (90 octets)

J'ai écrit cela en assembleur pour un processeur fictif, car pourquoi pas?

: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

Le nombre devrait être dans le registre X, et les autres registres devraient être 0. Les résultats sont poussés vers la pile, il se cassera une fois qu'il atteindra 65535 en raison de l'architecture 16 bits. Vous voudrez peut-être ajouter un SUB PC, 1à la fin pour le tester. Compilé, le programme devrait être de 20 octets (10 mots).

Haskell

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

Cela invente essentiellement la multiplication, l'utilise elle-même et la mappe sur tous les nombres. f 10= [0,1,4,9,16,25,36,49,64,81]. Aussi 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].

Haskell, 34/23

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

ou, si les importations sont acceptables:

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

Production:

λ> 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) Retour :
[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]]

Renvoie un nouveau tableau (c'est-à-dire qu'il ne remplit pas ou n'en ajoute pas un existant).

appel:

valeur f: 10

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

python - 39

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

Remplacez 5par n'importe quelle valeur. Aucune suggestion?

Bash - 92 85 62 61 59 57

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

Résultat:

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

Edit: j'ai remplacé la boucle interne par l'algorithme de la solution Haskell de @ mniip.

Même méthode que ci-dessus, en APL et J:

APL: F←{+\1+V+V←¯1+⍳⍵}(17 caractères) fonctionne avec la plupart des variantes APL (essayez-le ici )

et encore moins (seulement 14 caractères) avec NGN APL: F←{+\1+V+V←⍳⍵}(voir ici )

J: f=:+/\@(>:@+:@:i.)(18 caractères)

Éditer: meilleure solution en APL: F←{+\¯1+V+V←⍳⍵}(15 caractères)

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

Lorsqu'il est appelé à partir d'une autre méthode de la même classe, retourne le tableau - [1,4,9,16,25,36...], jusqu'au lth élément.

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

Edit: suppression de la boucle interne et utilisation de l'algorithme Haskell de @ mniip à la place.

Edit: vérifié que le sous-programme et le pilote sont valides Fortran II et IV

Chauffeur:

  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

Résultat:

$ 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

Ici, je définis une fonction comme demandé par les règles.

Utilisation sumde nombres impairs:

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

Cela n'utilise que sum(une fonction intégrée qui effectue l'addition) et range(une fonction intégrée qui crée des tableaux en utilisant l'addition). Si vous vous y opposez sum, nous pouvons le faire avec 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 octets

Cela doit avoir l'option "balises courtes" activée, bien sûr (pour raser 3 octets au début).

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

Production:

1 4 9 16 25 36 49 64 81 100 

Quatrième - 48 octets

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

Usage:

7 f

Production:

0 1 4 9 16 25 36 49