Esta pregunta se ha estado extendiendo como un virus en mi oficina. Hay una gran variedad de enfoques:

Imprima lo siguiente:

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

Las respuestas se puntúan en caracteres con menos caracteres siendo mejores.

J, 29 26 24 23 22 21 caracteres

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

Gracias a FUZxxl por el "+truco (no creo que lo haya usado u"vantes, je).

Explicación

                  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 se permiten espacios que separan los números (como en la entrada de Mathematica), se puede acortar a 28 26:

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

Explicación:

• (Programa largo :)
• ⍳9: una lista de los números del 1 al 9
• 1↓⎕D: ⎕Des la cadena '0123456789', 1↓elimina el primer elemento
• ⍴∘(1↓⎕D)¨⍳9: para cada elemento N de ⍳9, tome los primeros N elementos de 1↓⎕D. Esto proporciona una lista: ["1", "12", "123", ... "123456789"] como cadenas

• ⌽¨: invierte cada elemento de esta lista. ["1", "21", "321" ...]

• (Programa corto :)

• ⍳¨⍳9: la lista de 1 a N, para N [1..9]. Esto proporciona una lista [[1], [1,2], [1,2,3] ... [1,2,3,4,5,6,7,8,9]] como números.
• ⌽∘⍕∘: el reverso de la representación de cadena de cada una de estas listas. ["1", "2 1" ...]
• (Lo mismo de ahora en adelante :)
• A←⌽↑: crea una matriz a partir de la lista de listas, rellena a la derecha con espacios y luego invierte eso. Esto le da al cuadrante superior del diamante. Se almacena en A.
• A←A,0 1↑⌽A: A, con el reverso de A menos su primera columna unida a la derecha. Esto le da a la mitad superior del rectángulo. Esto se almacena en A nuevamente.
• A⍪1↓⊖A: ⊖Aes un espejo vertical (dando la mitad inferior), 1↓elimina la fila superior de la mitad inferior y A⍪es la mitad superior encima 1↓⊖A.

Clojure, 191 179 bytes

#(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 bytes cambiando el exterior doseqa a loop, lo que me permitió deshacerme del atom(yay).

Un doble "for-loop". El bucle externo ( loop) recorre cada fila, mientras que el bucle interno ( doseq) recorre cada número de la fila, que está en el rango (concat (range 1 n) (range n 0 -1)), donde nes el número más alto de la fila.

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

Debido a un error en la lógica en mi primer intento (insertando accidentalmente los espacios de prefijo entre cada número), logré obtener esto:

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

Ni siquiera es correcto ignorar el error obvio, pero se veía genial.

Mathematica 83 49 43 54 51

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

Con 3 bytes guardados gracias a Kelly Lowder.

Análisis

La parte principal del código Sum[DiamondMatrix[k, 17], {k, 0, 8}]se puede verificar en WolframAlpha .

A continuación se muestra la lógica subyacente del enfoque, a menor escala.

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}

Pitón 2, 72 69 67 61

No inteligente:

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

C, 79 caracteres

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

Pitón 2, 60 59

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

Abusa de backticks y repunits.

GolfScript, 33 31 30 caracteres

Otra solución de GolfScript

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

Gracias a @PeterTaylor por otro char.

Versiones anteriores:

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

( correr en línea )

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

Mi primera entrada en 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 esto se puede acortar más, por favor comente :)

PHP, 92 90 caracteres

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

Calcula e imprime la distancia de Manhattan de la posición desde el centro. Imprime un espacio si es menor que 1.

Un usuario anónimo sugirió la siguiente mejora (84 caracteres):

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

Carbón (no competidor), 13 bytes

No compite porque el lenguaje es (mucho) más nuevo que la pregunta.

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

Pruébalo en línea!

¿Cómo?

Dibuja nueve diamantes sucesivamente más pequeños, concéntricos, uno encima del otro:

Ｆ⁹«   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

Lisp común, 113 caracteres

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

Primero noté que los elementos del diamante podrían expresarse así:

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

etc.

xcalcula recursivamente la base (1, 11, 111, etc.), que se eleva al cuadrado y luego se imprime centrada por format. Para hacer que los números suban al término más alto y vuelvan a bajar, solía (- 8 (abs (- n 8)))evitar un segundo ciclo

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 opciones): 92 84 45 bytes

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

Gracias a Strigoides por la sugerencia de usar 1 ^ 2,11 ^ 2,111 ^ 2 ...

Afeitado algunos personajes por:

• La eliminación $w.
• Anidado la definición de $xen lugar de su primer uso.
• Tomó algunas pistas de la solución de Rynant :
  • Combinó las matrices de enteros en +lugar de las ,cuales permiten la eliminación del paréntesis alrededor de las matrices y una capa de anidamiento en los bucles.
  • Se usa 9-$_para calcular la longitud de los espacios necesarios, en lugar de métodos matemáticos y de objetos más complicados. Esto también eliminó la necesidad de $y.

Explicación:

1..8+9..1o 1..9+8..1genera una matriz de enteros que asciende de 1 a 9 y luego desciende de nuevo a 1.

|%{... }canaliza la matriz entera en un ForEach-Objectbucle a través del alias incorporado %.

' '*(9-$_)+ resta el entero actual de 9, luego crea una cadena de tantos espacios al comienzo de la salida para esta línea.

[int64]($x='1'*$_)*$xse define $xcomo una cadena de 1s siempre que el entero actual sea grande. Luego se convierte a int64 (requerido para generar correctamente 111111111 ² sin usar la notación E) y al cuadrado.

Vim, 62 39 38 pulsaciones de teclas

¡Gracias a @DJMcMayhem por guardar una tonelada de bytes!

Mi primera respuesta de Vim, ¡tan emocionante!

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

Traté de escribir los números a través de una grabación, pero es mucho más largo.

Pruébalo en línea!

Explicación:

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

EDITAR:

Usé en Hlugar de ggy guardé 1 byte

APL (Dyalog Classic) , 20 19 bytes

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

Pruébalo en línea!

⎕d son los dígitos '0123456789'

1↓soltar el primero ( '0')

,⍨\ exploración de catenado intercambiada, es decir, los prefijos invertidos '1' '21' '321' ... '987654321'

↑ mezclar en una matriz acolchada con espacios:

1
21
321
...
987654321

⌽ invertir la matriz horizontalmente

(... )⍣2haz esto dos veces:

⍉⊢⍪1↓⊖la transposición ( ⍉) de la matriz misma ( ⊢) concatenada verticalmente ( ⍪) con la matriz invertida verticalmente ( ⊖) sin su primera fila ( 1↓)

R, 71 caracteres

Por los récords:

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

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

Antiguo método:

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

CJam, 31 27 bytes

CJam es mucho más nuevo que este desafío, por lo que esta respuesta no es elegible para ser aceptada. Sin embargo, este fue un pequeño desafío ordenado el sábado por la noche. ;)

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

Pruébalo aquí.

La idea es formar primero el cuadrante superior izquierdo. Así es como funciona:

Primero, forma la cadena " 123456789", usando 8S*9,:)+. Esta cadena tiene 17 caracteres de longitud. Ahora repetimos la cadena 9 veces, y luego la dividimos en subcadenas de longitud 9 con 9/. La falta de coincidencia entre 9 y 17 compensará cada dos filas un carácter a la izquierda. Imprimiendo cada subcadena en su propia línea obtenemos:

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

Entonces, si simplemente dejamos caer cualquier otra fila (que convenientemente funciona haciendo 2%), obtenemos un cuadrante como lo desee:

        1
       12
      123
     1234
    12345
   123456
  1234567
 12345678
123456789

Finalmente, duplicamos esto dos veces, transponiendo la cuadrícula en el medio para asegurarnos de que las dos operaciones de duplicación sigan diferentes ejes. El espejo en sí mismo es solo

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

Por último, solo unimos todas las líneas con líneas nuevas, con N*.

GolfScript, 36 caracteres

Suponiendo que esto se entiende como un desafío de código de golf , aquí hay una solución básica de GolfScript:

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

Ruby, 76 caracteres

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

Mejoras bienvenidas. :)

Befunge-93 , 155 caracteres

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-#$:_^

Pruébalo en línea!

Definitivamente podría jugar más golf, pero es mi primer programa Funge y ya me duele la cabeza. Aunque me divertí mucho

JavaScript, 170 bytes

Mi primer código de golf :)

Golfed

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>");

Sin golf

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 caracteres

Se agregó 1 carácter para el -pcambio.

Utiliza repunidades al cuadrado para generar la secuencia.

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

Perl, 43 + 1

agregando +1 para lo -Ecual se requiere parasay

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

editar: acortado un poco

Python, 65

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

versión antigua:

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

Scala - 86 caracteres

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

Javascript, 137

Con recursividad:

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,""))

Primera vez en CG :)

O 118

Si puedo encontrar una implementación JS que se ejecute 111111111**2con mayor precisión.
(Aquí: 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)