Cette question se répand comme un virus dans mon bureau. Il existe une grande variété d'approches:

Imprimer ce qui suit:

        1
       121
      12321
     1234321
    123454321
   12345654321
  1234567654321
 123456787654321
12345678987654321
 123456787654321
  1234567654321
   12345654321
    123454321
     1234321
      12321
       121
        1

Les réponses sont marquées en caractères avec moins de caractères étant meilleurs.

J, 29 26 24 23 22 21 caractères

,.(0&<#":)"+9-+/~|i:8

Merci à FUZxxl pour le "+truc (je ne pense pas l'avoir déjà utilisée u"vauparavant, hé).

Explication

                  i:8  "steps" vector: _8 _7 _6 ... _1 0 1 ... 7 8
                 |     magnitude
              +/~      outer product using +
            9-         inverts the diamond so that 9 is in the center
  (      )"+           for each digit:
      #                  copy
   0&<                   if positive then 1 else 0
       ":                copies of the string representation of the digit
                         (in other words: filter out the strictly positive
                          digits, implicitly padding with spaces)
,.                     ravel each item of the result of the above
                       (necessary because the result after `#` turns each
                        scalar digit into a vector string)

APL ( 33 31)

A⍪1↓⊖A←A,0 1↓⌽A←⌽↑⌽¨⍴∘(1↓⎕D)¨⍳9

Si des espaces séparant les nombres sont autorisés (comme dans l'entrée Mathematica), vous pouvez le réduire à 28 26:

A⍪1↓⊖A←A,0 1↓⌽A←⌽↑⌽∘⍕∘⍳¨⍳9

Explication:

• (Programme long :)
• ⍳9: une liste des nombres 1 à 9
• 1↓⎕D: ⎕Dest la chaîne '0123456789', 1↓supprime le premier élément
• ⍴∘(1↓⎕D)¨⍳9: pour chaque élément N de ⍳9, prenons les N premiers éléments de 1↓⎕D. Cela donne une liste: ["1", "12", "123", ... "123456789"] sous forme de chaînes

• ⌽¨: inverser chaque élément de cette liste. ["1", "21", "321" ...]

• (Programme court :)

• ⍳¨⍳9: la liste de 1 à N, pour N [1..9]. Cela donne une liste [[1], [1,2], [1,2,3] ... [1,2,3,4,5,6,7,8,9]] sous forme de nombres.
• ⌽∘⍕∘: l'inverse de la représentation sous forme de chaîne de chacune de ces listes. ["1", "2 1" ...]
• (La même chose à partir de maintenant :)
• A←⌽↑: crée une matrice à partir de la liste de listes, en ajoutant des espaces à droite, puis en inversant le sens. Cela donne le quadrant supérieur du diamant. Il est stocké dans A.
• A←A,0 1↑⌽A: A, avec l'inverse de A moins sa première colonne attachée à droite. Cela donne la moitié supérieure du rectangle. Ceci est ensuite stocké dans A à nouveau.
• A⍪1↓⊖A: ⊖Aest un miroir vertical (donnant la moitié inférieure), 1↓supprime la rangée supérieure de la moitié inférieure et A⍪correspond à la moitié supérieure 1↓⊖A.

Clojure, 191 179 octets

#(loop[[r & s](range 18)h 1](print(apply str(repeat(if(< r 8)(- 8 r)(- r 8))\ )))(doseq[m(concat(range 1 h)(range h 0 -1))](print m))(println)(if s(recur s((if(< r 8)inc dec)h))))

-12 octets en changeant l'extérieur doseqen a loop, ce qui m'a permis de me débarrasser de atom(yay).

Un double "pour-boucle". La boucle externe ( loop) parcourt chaque ligne, tandis que la boucle interne ( doseq) parcourt chaque numéro de la ligne, qui se trouve dans la plage (concat (range 1 n) (range n 0 -1)), où nest le nombre le plus élevé de la ligne.

(defn diamond []
  (let [spaces #(apply str (repeat % " "))] ; Shortcut function that produces % many spaces
    (loop [[row-n & r-rows] (range 18) ; Deconstruct the row number from the range
           high-n 1] ; Keep track of the highest number that should appear in the row
      (let [top? (< row-n 8) ; Are we on the top of the diamond?
            f (if top? inc dec) ; Decided if we should increment or decrement
            n-spaces (if top? (- 8 row-n) (- row-n 8))] ; Calculate how many prefix-spaces to print
        (print (spaces n-spaces)) ; Print prefix-spaces
        (doseq [m (concat (range 1 high-n) (range high-n 0 -1))] ; Loop over the row of numbers
          (print m)) ; Print the number
        (println)

        (if r-rows
          (recur r-rows (f high-n)))))))

En raison d'un bug dans la logique de ma première tentative (insertion accidentelle des espaces de préfixe entre chaque numéro), j'ai réussi à obtenir ceci:

1
1       2       1
1      2      3      2      1
1     2     3     4     3     2     1
1    2    3    4    5    4    3    2    1
1   2   3   4   5   6   5   4   3   2   1
1  2  3  4  5  6  7  6  5  4  3  2  1
1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
12345678987654321
1 2 3 4 5 6 7 8 9 10 9 8 7 6 5 4 3 2 1
1  2  3  4  5  6  7  8  9  8  7  6  5  4  3  2  1
1   2   3   4   5   6   7   8   7   6   5   4   3   2   1
1    2    3    4    5    6    7    6    5    4    3    2    1
1     2     3     4     5     6     5     4     3     2     1
1      2      3      4      5      4      3      2      1
1       2       3       4       3       2       1
1        2        3        2        1
1         2         1

Même pas correct en ignorant le bogue évident, mais ça avait l'air cool.

Mathematica 83 49 43 54 51

Print@@#&/@(Sum[k~DiamondMatrix~17,{k,0,8}]/.0->" ")

Avec 3 octets sauvés grâce à Kelly Lowder.

Une analyse

La partie principale du code Sum[DiamondMatrix[k, 17], {k, 0, 8}], peut être vérifiée sur WolframAlpha .

Ce qui suit montre la logique sous-jacente de l’approche, à une plus petite échelle.

a = 0~DiamondMatrix~5;
b = 1~DiamondMatrix~5;
c = 2~DiamondMatrix~5;
d = a + b + c;
e = d /. 0 -> "";
Grid /@ {a, b, c, d, e}

Python 2, 72 69 67 61

Pas intelligent:

s=str(111111111**2)
for i in map(int,s):print'%8s'%s[:i-1]+s[-i:]

C, 79 caractères

v;main(i){for(;i<307;putchar(i++%18?v>8?32:57-v:10))v=abs(i%18-9)+abs(i/18-8);}

Python 2, 60 59

for n in`111111111**2`:print`int('1'*int(n))**2`.center(17)

Abuse des backticks et repunits.

GolfScript, 33 31 30 caractères

Une autre solution GolfScript

17,{8-abs." "*10@-,1>.-1%1>n}%

Merci à PeterTaylor pour un autre personnage.

Les versions de Previos:

17,{8-abs" "*9,{)+}/9<.-1%1>+}%n*

( courir en ligne )

17,{8-abs" "*9,{)+}/9<.-1%1>n}%

Mathematica 55 50 45 41 38

(10^{9-Abs@Range[-8,8]}-1)^2/81//Grid

Grid[(10^Array[{9}-Abs[#-9]&,17]-1)^2/81]

Javascript, 114

Ma première entrée sur Codegolf!

for(l=n=1;l<18;n-=2*(++l>9)-1,console.log(s+z)){for(x=n,s="";x<9;x++)z=s+=" ";for(x=v=1;x<2*n;v-=2*(++x>n)-1)s+=v}

Si cela peut être raccourci davantage, veuillez commenter :)

PHP, 92 90 caractères

<?for($a=-8;$a<9;$a++){for($b=-8;$b<9;){$c=abs($a)+abs($b++);echo$c>8?" ":9-$c;}echo"\n";}

Calcule et affiche la distance de Manhattan entre la position et le centre. Imprime un espace s'il est inférieur à 1.

Un utilisateur anonyme a suggéré l'amélioration suivante (84 caractères):

<?for($a=-8;$a<9;$a++,print~õ)for($b=-8;$b<9;print$c>8?~ß:9-$c)$c=abs($a)+abs($b++);

Fusain (non-concurrent), 13 octets

Pas de compétition parce que la langue est (beaucoup) plus récente que la question.

Ｆ⁹«ＧX⁻⁹ιＩ⁺ι¹→

Essayez-le en ligne!

Comment?

Dessine neuf diamants concentriques successivement plus petits, successivement plus petits:

Ｆ⁹«   Loop ι from 0 to 8:
ＧX     Draw a (filled) polygon with four equilateral diagonal sides
⁻⁹ι      of length 9-ι
Ｉ⁺ι¹    using str(ι+1) as the character
→       Move right one space before drawing the next one

Common Lisp, 113 caractères

(defun x(n)(if(= n 0)1(+(expt 10 n)(x(1- n)))))(dotimes(n 17)(format t"~17:@<~d~>~%"(expt(x(- 8(abs(- n 8))))2)))

J'ai d'abord remarqué que les éléments du diamant pouvaient être exprimés comme suit:

  1   =   1 ^ 2
 121  =  11 ^ 2
12321 = 111 ^ 2

etc.

xcalcule récursivement la base (1, 11, 111, etc.), qui est au carré, puis imprimée au centre de format. Pour que les nombres montent au plus haut terme et redescendent, j’avais l’habitude (- 8 (abs (- n 8)))d’éviter une deuxième boucle.

JavaScript, 81

for(i=9;--i+9;console.log(s))for(j=9;j;s=j--^9?k>0?k+s+k:" "+s:k+"")k=i<0?j+i:j-i

PowerShell (2 options): 92 84 45 octets

1..8+9..1|%{' '*(9-$_)+[int64]($x='1'*$_)*$x}
1..9+8..1|%{' '*(9-$_)+[int64]($x='1'*$_)*$x}

Merci à Strigoides pour la suggestion d’utiliser 1 ^ 2,11 ^ 2 111 ^ 2 ...

Rasé des personnages par:

• Éliminer $w.
• Imbriqué la définition de $xà la place de sa première utilisation.
• A pris quelques indices de la solution de Rynant :
  • La combinaison des tableaux de nombres entiers avec +au lieu de ,permet l’élimination des parenthèses entourant les tableaux et une couche d’emboîtement dans les boucles.
  • Utilisé 9-$_pour calculer la longueur des espaces nécessaires, au lieu de méthodes mathématiques et d'objet plus compliquées. Cela a également éliminé le besoin de $y.

Explication:

1..8+9..1ou 1..9+8..1génère un tableau d’entiers allant de 1 à 9 puis descendant à 1.

|%{... }dirige le tableau d'entiers dans une ForEach-Objectboucle via l'alias intégré %.

' '*(9-$_)+ soustrait le nombre entier actuel de 9, puis crée une chaîne de ce nombre d'espaces au début de la sortie pour cette ligne.

[int64]($x='1'*$_)*$xdéfinit $xcomme une chaîne de 1s tant que le nombre entier actuel est grand. Ensuite, il est converti en int64 (requis pour générer correctement la sortie 111111111 ² sans utiliser la notation E) et au carré.

Vim, 62 39 38 frappes

Merci à @DJMcMayhem pour avoir économisé une tonne d'octets!

Ma première réponse Vim, tellement excitante!

i12345678987654321<ESC>qqYP9|xxI <ESC>YGpHq7@q

J'ai essayé d'écrire les nombres via un enregistrement, mais c'est beaucoup plus long

Essayez-le en ligne!

Explication:

i123 ... 321<ESC>                   Write this in insert mode and enter normal mode
qq                                  Start recording into register q
  YP                                Yank this entire line and Paste above
    9|                              Go to the 9th column
      xx                            Delete character under cursor twice
        I <ESC>                     Go to the beginning of the line and insert a space and enter normal mode
               Y                    Yank this entire line
                G                   Go to the last line
                 p                  Paste in the line below
                  H                 Go to the first line
                   q                End recording
                    7@q             Repeat this 7 times

MODIFIER:

J'ai utilisé Hau lieu de gget enregistré 1 octet

APL (Dyalog Classic) , 20 19 octets

(⍉⊢⍪1↓⊖)⍣2⌽↑,⍨\1↓⎕d

Essayez-le en ligne!

⎕d sont les chiffres '0123456789'

1↓déposer le premier ( '0')

,⍨\ swap catenate scan, c’est-à-dire les préfixes inversés '1' '21' '321' ... '987654321'

↑ mélanger dans une matrice garnie d'espaces:

1
21
321
...
987654321

⌽ inverser la matrice horizontalement

(... )⍣2faites ceci deux fois:

⍉⊢⍪1↓⊖la transposition ( ⍉) de la matrice elle-même ( ⊢) concaténée verticalement ( ⍪) avec la matrice inversée verticalement ( ⊖) sans sa première ligne ( 1↓)

R, 71 caractères

Pour les records:

s=c(1:9,8:1);for(i in s)cat(rep(" ",9-i),s[0:i],s[(i-1):0],"\n",sep="")

k ( 64 50 caractères)

-1'(::;1_|:)@\:((|!9)#'" "),'$i*i:"J"$(1+!9)#'"1";

Ancienne méthode:

-1',/(::;1_|:)@\:((|!9)#\:" "),',/'+(::;1_'|:')@\:i#\:,/$i:1+!9;

CJam, 31 27 octets

CJam est beaucoup plus récent que ce défi, donc cette réponse ne peut pas être acceptée. C'était un petit défi du samedi soir, cependant. ;)

8S*9,:)+9*9/2%{_W%1>+z}2*N*

Testez-le ici.

L'idée est de former le quadrant supérieur gauche en premier. Voici comment cela fonctionne:

Commencez par former la chaîne " 123456789"en utilisant 8S*9,:)+. Cette chaîne est composée de 17 caractères. Maintenant, nous répétons la chaîne 9 fois, puis nous la coupons en sous-chaînes de longueur 9 avec 9/. La non-concordance entre 9 et 17 décale tous les deux rangées un caractère à gauche. En imprimant chaque sous-chaîne sur sa propre ligne, on obtient:

        1
23456789 
       12
3456789  
      123
456789   
     1234
56789    
    12345
6789     
   123456
789      
  1234567
89       
 12345678
9        
123456789

Donc, si nous supprimons simplement une ligne sur deux (ce qui fonctionne bien en faisant 2%), nous obtenons le quadrant souhaité:

        1
       12
      123
     1234
    12345
   123456
  1234567
 12345678
123456789

Enfin, nous reflétons cela deux fois, en transposant la grille entre les deux pour garantir que les deux opérations de mise en miroir suivent des axes différents. Le reflet lui-même est juste

_      "Duplicate all rows.";
 W%    "Reverse their order.";
   1>  "Discard the first row (the centre row).";
     + "Add the other rows.";

Enfin, nous rejoignons toutes les lignes avec des nouvelles lignes, avec N*.

GolfScript, 36 caractères

En supposant qu'il s'agisse d'un défi code-golf , voici une solution de base de GolfScript:

9,.);\-1%+:a{a{1$+7-.0>\" "if}%\;n}%

Ruby, 76 caractères

def f(a)a+a.reverse[1..-1]end;puts f [*1..9].map{|i|f([*1..i]*'').center 17}

Les améliorations sont les bienvenues. :)

Befunge-93 , 155 caractères

9:v:<,+55<v5*88<v-\9:$_68v
> v>     ^>3p2vpv  -1<!  *
, 1^  2p45*3+9<4:    ,:  +
g -^_75g94+4pg7^!    +^ ,<
1 : ^ `0    :-1$_:68*^$
^1_$:55+\-0\>:#$1-#$:_^

Essayez-le en ligne!

Cela pourrait certainement être plus joué au golf, mais c’est mon premier programme Funge et ma tête me fait déjà mal. Eu beaucoup de plaisir, cependant

JavaScript, 170 octets

Mon premier code golf :)

Golfé

a="";function b(c){a+=" ".repeat(10-c);for(i=1;i<c;i++)a+=i;for(i=2;i<c;i++)a+=c-i;a+="\n";}for(i=2;i<11;i++)b(i);for(i=9;i>1;i--)b(i);document.write("<pre>"+a+"</pre>");

Ungolfed

var str = "";
function row(line) {
    str += " ".repeat(10 - line);
    for (var i = 1; i < line; i++) {
        str += i;
    }
    for (var i = 2; i < line; i++) {
        str += line - i;
    }
    str += "\n";
}
for (var line = 2; line < 11; line++) {
    row(line);
}
for (var line = 9; line > 1; line--) {
    row(line);
}
document.write("<pre>" + str + "</pre>");

Perl 56 54 caractères

Ajout de 1 caractère pour le -pcommutateur.

Utilise les repunits au carré pour générer la séquence.

s//12345678987654321/;s|(.)|$/.$"x(9-$1).(1x$1)**2|eg

Perl, 43 + 1

ajouter +1 pour -Elequel est requis poursay

say$"x(9-$_).(1x$_)**2for 1..9,reverse 1..8

edit: raccourci un peu

Python, 65 ans

for i in map(int,str(int('1'*9)**2)):print' '*(9-i),int('1'*i)**2

Groovy 77 75

i=(-8..9);i.each{a->i.each{c=a.abs()+it.abs();print c>8?' ':9-c};println""}

ancienne version:

(-8..9).each{a->(-8..9).each{c=a.abs()+it.abs();print c>8?' ':9-c};println""}

Scala - 86 caractères

val a="543210/.-./012345";for(i<-a){for(j<-a;k=99-i-j)print(if(k<1)" "else k);println}

Javascript, 137

Avec récursion:

function p(l,n,s){for(i=l;i;s+=" ",i--);for(i=1;i<=n;s+=i++);for(i-=2;i>0;s+=i--);return(s+="\n")+(l?p(l-1,n+1,"")+s:"")}alert(p(8,1,""))

Première fois sur CG :)

Ou 118

Si je peux trouver une implémentation JS qui s’exécute 111111111**2avec une plus grande précision.
(Ici: 12345678987654320).

a="1",o="\n";for(i=0;i<9;i++,o+="         ".substr(i)+a*a+"\n",a+="1");for(i=8;i;i--)o+=o.split("\n")[i]+"\n";alert(o)