Terinspirasi oleh output yang disadap dalam jawaban Clojure @Carcigenicate untuk tantangan Print this diamond .

Cetak teks persis ini:

1        2        3        4        5        6        7        8        9        0
1       2       3       4       5       6       7       8       9       0
1      2      3      4      5      6      7      8      9      0
1     2     3     4     5     6     7     8     9     0
1    2    3    4    5    6    7    8    9    0
1   2   3   4   5   6   7   8   9   0
1  2  3  4  5  6  7  8  9  0
1 2 3 4 5 6 7 8 9 0
1234567890
1 2 3 4 5 6 7 8 9 0
1  2  3  4  5  6  7  8  9  0
1   2   3   4   5   6   7   8   9   0
1    2    3    4    5    6    7    8    9    0
1     2     3     4     5     6     7     8     9     0
1      2      3      4      5      6      7      8      9      0
1       2       3       4       5       6       7       8       9       0
1        2        3        4        5        6        7        8        9        0

(Dari tengah ke luar di kedua arah, setiap digit dipisahkan oleh satu spasi lebih banyak dari garis sebelumnya.)

Aturan tantangan:

• Tidak akan ada input ( atau input kosong yang tidak digunakan ).
• Ruang tambahan adalah opsional.
• Satu baris baru yang tertinggal adalah opsional.
• Spasi terdepan atau baris baru tidak diperbolehkan.
• Mengembalikan array-string tidak diizinkan. Anda harus menampilkan teks, atau memiliki fungsi yang mengembalikan string tunggal dengan hasil yang benar.

Aturan umum:

• Ini adalah kode-golf , jadi jawaban tersingkat dalam byte menang.
  Jangan biarkan bahasa kode-golf mencegah Anda memposting jawaban dengan bahasa non-codegolf. Cobalah untuk memberikan jawaban sesingkat mungkin untuk bahasa pemrograman 'apa saja'.
• Aturan standar berlaku untuk jawaban Anda, jadi Anda diperbolehkan menggunakan STDIN / STDOUT, fungsi / metode dengan parameter yang tepat dan tipe pengembalian, program lengkap. Panggilanmu.
• Celah default tidak diperbolehkan.
• Jika memungkinkan, silakan tambahkan tautan dengan tes untuk kode Anda.
• Juga, silakan tambahkan penjelasan jika perlu.

SOGL V0.12 , 12 byte

9{SUē↕∑}¹№╬«

Coba Di Sini! Penjelasan:

9{     }      9 times do
  SU            push "1234567890"
    ē           push e, predefined with the input, which defaults to 0, and then increase it
     ↕          get that many spaces
      ∑         join the string of digits with those spaces
        ¹     collect the results in an array
         №    reverse the array vertically
          ή  palindromize vertically with 1 overlap

Python 2 , 59 57 56 55 byte

i=8;exec"print(' '*abs(i)).join('1234567890');i-=1;"*17

Cobalah online!

@Leaky Nun banyak membantu golf ini, @Praind Menyarankan metode untuk menghemat 1 byte, yang sebelumnya saya pikirkan, tetapi lupa mengedit, @CotyJohnathanSaxman menyarankan untuk mengubah loop.

Penjelasan

• i=8- Menetapkan nilai 8ke variabel yang disebut i.

• exec"..."*17- Jalankan blok kode itu ( ...) 17 kali.

• print(...) - Keluarkan hasilnya.

• ' '*abs(i)- Buat String dengan spasi berulang |i|kali.

• .join('1234567890')- Interleave string yang dibuat di atas dengan 1234567890, sehingga |i|spasi dimasukkan di antara digit.

• i-=1- Decrement i, dan dengan mengeksekusinya sebanyak 17 kali, mencapai -8, yang menciptakan pola berulang dengan bantuan abs().

Vim, 35 byte:

i1234567890<esc>qqYP:s/\d/& /g
YGp{q7@q

Penjelasan:

i1234567890<esc>    " insert '1234567890'
qq                  " Record the following into register 'q'
  Y                 "   Yank a line
   P                "   Paste it above us
    :s/\d/& /g      "   Put a space after each number
Y                   "   Yank this line
 G                  "   Move the end of the buffer
  p                 "   Paste the line
   {                "   Move the beginning of the buffer
    q               " Stop recording
     7@q            " Call macro 'q' 7 times

05AB1E ,  14  13 byte

17F9ÝÀN8αð×ý,

Cobalah online!

Penjelasan

17F            # for N in [0 ... 16] do
   9Ý          # push [0 ... 9]
     À         # rotate left
      N8α      # compute the absolute difference between N and 8
         ð×    # push that many spaces
           ý   # merge the list of digits with the space string as separator
            ,  # print

C64 ASM, 358 byte (102 byte dikompilasi dengan basicstub)

Ini adalah yang terdekat yang bisa saya dapatkan karena keterbatasan yang jelas:

jsr $E544
lda #9
sta $FD
nl1: jsr dl
jsr il
dec $FD
bne nl1
inc $FD
nl2: ldy $FD
cpy #9
bne nt1
bl: jmp bl
nt1: iny
sty $FD
jsr dl
jsr il
jmp nl2
dl: clc
ldx #$31
ldy #0
lp: txa
sm: sta $0400, y
inx
cpx #$31
bne c1
rts
c1: cpx #$3A
bne nt2
ldx #$30
clc
nt2: tya
adc $FD
cmp #40
bcc c2
rts
c2: tay
jmp lp
il: lda sm+1
adc #39
bcc nc
inc sm+2
nc: sta sm+1
rts

(Mungkin bisa sedikit dioptimalkan)

TSQL, 220 148 byte

Peningkatan diposting oleh ZLK:

DECLARE @ VARCHAR(MAX)=''SELECT TOP 17@+=REPLACE('1@2@3@4@5@6@7@8@9@0','@',SPACE(ABS(9-RANK()OVER(ORDER BY object_id))))+'
'FROM sys.objects PRINT @

Keluaran:

1        2        3        4        5        6        7        8        9        0
1       2       3       4       5       6       7       8       9       0
1      2      3      4      5      6      7      8      9      0
1     2     3     4     5     6     7     8     9     0
1    2    3    4    5    6    7    8    9    0
1   2   3   4   5   6   7   8   9   0
1  2  3  4  5  6  7  8  9  0
1 2 3 4 5 6 7 8 9 0
1234567890
1 2 3 4 5 6 7 8 9 0
1  2  3  4  5  6  7  8  9  0
1   2   3   4   5   6   7   8   9   0
1    2    3    4    5    6    7    8    9    0
1     2     3     4     5     6     7     8     9     0
1      2      3      4      5      6      7      8      9      0
1       2       3       4       5       6       7       8       9       0
1        2        3        4        5        6        7        8        9        0

APL (Dyalog) , 22 byte

↑∊¨(1+|¯9+⍳17)↑¨¨⊂1⌽⎕D

Cobalah online!

⎕D D igits dari nol menjadi sembilan

1⌽ putar satu langkah ke kanan (menempatkan nol di ujung)

⊂ melampirkan (untuk diperlakukan sebagai unit)

(... )↑¨¨ untuk masing - masing angka ini, ambil banyak karakter dari masing - masing huruf:

 ⍳17 satu sampai tujuh belas

 ¯9+ kurangi sembilan

 | temukan nilai absolut

 1+ tambahkan satu

∊¨ minta (ratakan) masing-masing

↑ ubah satu lapisan kedalaman ke tingkat peringkat (matrify)

Haskell , 58 55 byte

unlines["1234567890">>=(:(' '<$[1..abs n]))|n<-[-8..8]]

Cobalah online!

Ini pada dasarnya adalah solusi @nimi :)

Java 11 (JDK) , 98 byte

o->{for(int i=-9;++i<9;)System.out.println("".join(" ".repeat(i<0?-i:i),"1234567890".split("")));}

Cobalah online!

• -14 byte dengan beralih ke JDK 11, yang sekarang memiliki asli String::repeat.

Jawaban sebelumnya ( Java (OpenJDK 8) ), 113 112 byte

o->{for(int i=-9;++i<9;)System.out.printf("".join("%1$"+(i<0?-i:i>0?i:"")+"s","1234567890".split(""))+"%n","");}

Cobalah online!

Penjelasan

Saya pada dasarnya membangun String17 kali berikut ( Nadalah variabel, bukan nilai aktual):

"1%1$Ns2%1$Ns3%1$Ns4%1$Ns5%1$Ns6%1$Ns7%1$Ns8%1$Ns9%1$Ns0%n"

Itu semua digit yang diharapkan, bergabung dengan di %1$Nsmana Njumlah spasi antara setiap digit.

%1$Nspada dasarnya berarti "mengambil argumen pertama dan pad sampai panjang setidaknya N". Juga, %1$0stidak didukung sehingga %1$sdibuat kasus khusus 0.

Akhirnya, saya memformat-mencetak string itu menggunakan argumen tunggal:, ""sehingga formatter menggunakan kembali string kosong yang sama, menambahkannya dengan spasi sesuai kebutuhan.

Menghemat

• Terima kasih 1 byte untuk Kevin Cruijssen

Japt -R , 19 18 16 14 13 byte

Aõ%A
£qYçÃÔÅê

Uji atau coba secara online

Penjelasan

A             :10
 õ           :Range [1,10]
  %A         :Modulo each by 10
\n           :Assign to variable U
£            :Map each element at 0-based index Y
 q           :  Join U with
  Yç         :   Space repeated Y times
    Ã        :End map
     Ô       :Reverse
      Å      :Slice off first element
       ê     :Mirror
             :Implicitly join with newlines and output

JavaScript (ES2017), 83 73 72 68 byte

Terima kasih Shaggy untuk menghemat 10 byte. Terima kasih Craig untuk menghemat 1 byte. Terima kasih busur untuk menyimpan 4 byte.

for(i=-9,a="";i++<8;)a+=[...`1234567890
`].join("".padEnd(i<0?-i:i))

for(i=-9,a="";i++<8;)a+=[...`1234567890
`].join("".padEnd(i<0?-i:i))

console.log(a);

.as-console-wrapper { max-height: 100% !important; top: 0; }
.as-console-row:after { display: none !important; }

Brachylog , 30 29 28 byte

Ị↺{∧≜;Ṣj₍g;?↔zcc}ᶠ⁹↔;XcP↔Pẉᵐ

Cobalah online!

Disimpan satu byte berkat Leaky Nun .

Penjelasan

Ị↺                               The string "1234567890"
  {               }ᶠ⁹            Find the first 9 outputs of:
   ∧≜                              Take an integer
       ;Ṣj₍                        Juxtapose " " that number of times
           g;?↔z                   Zip that string of spaces with "1234567890"
                cc                 Concatenate twice into one string
                    ↔            Reverse the resuling list
                     ;XcP↔P      Palindromize the list (concatenate X to it into the list P,
                                   P reversed is still P)
                           ẉᵐ    Map writeln

Arang , 18 byte

Ｆ⁹⪫⁺…Ｉ¹:⟦0¶⟧× ι‖Ｂ↑

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

Ｆ⁹      Repeat 9 times (i = loop variable)
  ⪫       Join
   ⁺       Concatentate
    …Ｉ¹:    All the characters from str(1) below ":" (i.e. to "9") as a list
    ⟦0¶⟧    A list whose element is the string "0\n"
   × ι     With i spaces
‖Ｂ↑     Reflect everything upwards but without duplicating the top line

Catatan: Cast(1)mengambil jumlah byte yang sama karena "1"akan membutuhkan pemisah sebelumnya ":"(yang mana terjadi deverbosifier gagal untuk memasukkan).

R , 108 byte

for(i in abs(-8:8))cat(paste0(el(strsplit("1234567890","")),paste(rep(" ",i),collapse=""),collapse=""),"\n")

Hanya menempel dan meruntuhkan senarnya.

Cobalah online!

Sunting: terima kasih atas Challenger5 karena menunjukkan masalah. Perbaiki sekarang.

Sunting 2: menyimpan satu byte berkat bouncyball.

Python 3 , 58 57 54 byte

i=8
while i+9:print(*'1234567890',sep=' '*abs(i));i-=1

Cobalah online!

(terima kasih kepada @flornquake untuk tiga byte terakhir; Saya benar-benar lupa menggunakan sepuntuk menyimpan vs. .join)

Pyth , 14 13 byte

1 byte berkat Mnemonic.

V17j*da8NeMST

Cobalah online!

Java 8, 235 234 206 163 byte

interface A{static void main(String[]a){for(int i=-8;i<9;i++){String s="";for(int j=1,k;j<10;j++){s+=j;for(k=0;k<(i>0?i:-i);k++)s+=" ";}System.out.println(s+0);}}}

Pembaruan : -28 byte berkat Leaky Nun!
Perbarui 2 : -43 bytes berkat Leaky Nun lagi!

Tidak Disatukan:

interface A {
    static void main(String[] a) {
        for (int i = -8; i < 9; i++) {
            String s = "";
            for (int j = 1, k; j < 10; j++) {
                s += j;
                for (k = 0; k < (i > 0 ? i : -i); k++)
                    s += " ";
            }
            System.out.println(s + 0);
        }
    }
}

Cobalah online

EDIT: Kode sebelumnya salah! Membuat kesalahan saat golf kode, itu harus berfungsi seperti yang dimaksudkan sekarang!

Sekam , 21 byte

mΣṪ`:§+↔tḣR8' ṁs`:0ḣ9

Ini adalah program lengkap yang mencetak ke STDOUT. Cobalah online! Ada banyak ruang trailing.

Penjelasan

Sekam masih kehilangan banyak hal penting seperti fungsi rentang dua argumen, sehingga bagian dari solusi ini sedikit berantakan.

mΣṪ`:§+↔tḣR8' ṁs`:0ḣ9
              ṁs`:0ḣ9  This part evaluates to the string "1234567890".
                   ḣ9   Range from 1 to 9.
                `:0     Append 0.
              ṁs        Convert each number to string and concatenate.
     §+↔tḣR8'          This part evaluates to a list like ["  "," ",""," ","  "]
                       but with 17 elements instead of 5.
          R8'           A string of 8 spaces.
         ḣ              Take prefixes.
     §+                 Concatenate
       ↔                the reversal and
        t               tail of the prefix list, palindromizing it.
  Ṫ                    Take outer product of the two lists
   `:                  with respect to flipped prepeding.
                       This prepends each digit to each string of spaces.
mΣ                     Map concatenation over the results, computing the rows.
                       Implicitly join with newlines and print.

T-SQL 145 152 byte

DECLARE @ VARCHAR(MAX)=''SELECT TOP 17@+=REPLACE('1x2x3x4x5x6x7x8x9x0','x',SPACE(ABS(number-8)))+'
'FROM master..spt_values WHERE type='P'PRINT @

Diperbarui untuk digunakan:

• master..spt_valuesuntuk menghasilkan angka ( WHERE type = 'P', ini selalu berurutan, mulai dari 0)
• @ TOP 17Ide ZLK
• PRINT (untuk mematuhi aturan - tidak ada stringlists)
• @ JanDrozen ide bagus untuk memasukkan carriage return dalam string (saya menghitung itu hanya satu byte - Windows CRLF apa?)
• Ide @Bridge hanya menggunakan @ untuk nama variabel - semua trik ini !!

Hasil:

1        2        3        4        5        6        7        8        9        0
1       2       3       4       5       6       7       8       9       0
1      2      3      4      5      6      7      8      9      0
1     2     3     4     5     6     7     8     9     0
1    2    3    4    5    6    7    8    9    0
1   2   3   4   5   6   7   8   9   0
1  2  3  4  5  6  7  8  9  0
1 2 3 4 5 6 7 8 9 0
1234567890
1 2 3 4 5 6 7 8 9 0
1  2  3  4  5  6  7  8  9  0
1   2   3   4   5   6   7   8   9   0
1    2    3    4    5    6    7    8    9    0
1     2     3     4     5     6     7     8     9     0
1      2      3      4      5      6      7      8      9      0
1       2       3       4       5       6       7       8       9       0
1        2        3        4        5        6        7        8        9        0

(Terima kasih @JanDrozen untuk ide REPLACE)

Clojure, 126 99 byte

-27 dengan memperbaiki beberapa kesalahan bodoh. Penggunaan luar atidak diperlukan, jadi saya bisa menyingkirkan asemuanya dan hanya menulis apply strsekali. Itu juga memungkinkan saya untuk menggunakan makro fungsi untuk fungsi utama, yang menyimpan beberapa byte. Saya juga menguraikan panggilan untuk Math/absbukannya memberontak n-spaces.

Pada dasarnya port Clojure dari ide Python @ Mr.Xcoder. Dalam retrospeksi, saya seharusnya menggunakan abs/ rangemetode untuk tantangan berlian pada awalnya, tapi saya mungkin tidak menghasilkan output yang disadap!

Cukup mudah. Bergabung dengan string angka dengan sejumlah spasi yang tergantung pada baris saat ini.

#(doseq[n(range -8 9)](println(clojure.string/join(apply str(repeat (Math/abs n)\ ))"1234567890")))

(defn bugged []
  (doseq [n-spaces (range -8 9)]
    (println
        (clojure.string/join
          ; "String multiplication"
          (apply str
                 (repeat (Math/abs n-spaces) \space))
          "1234567890"))))

Jelly , 15 byte

8ŒRA⁶ẋØDṙ1¤jЀY

Cobalah online!

Mathematica, 92 byte

Column@Join[Reverse@(s=Row/@Table[Riffle[Range@10~Mod~10,""<>Table[" ",i]],{i,0,8}]),Rest@s]

Cobalah online

salin / tempel kode dengan ctrl-v
tekan shift + enter untuk menjalankan

C, 97 byte

i=-9;main(j){for(;++i<9;putchar(10))for(j=0;++j<11;printf("        "+8-abs(i)))putchar(48+j%10);}

Kompiler Anda mungkin akan banyak mengeluh tentang kode ini; Tambang saya melemparkan 7 peringatan dari 4 jenis. Dapat meningkatkan kode nanti.

Cobalah online!

C (gcc) , 76 byte

f(x,y){for(y=-9;++y<9;puts(""))for(x=10;x++;printf("%-*d",abs(y)+1,x%=10));}

Cobalah online!

Ini menghasilkan beberapa spasi tambahan, yang seharusnya OK.

Ini mencetak angka menggunakan bidang dibenarkan kiri panjang dinamis - itulah gunanya format string %-*d.

Loop dalam memiliki beberapa inisialisasi lucu (mulai dari 10; kelipatan 10 akan baik-baik saja) untuk "menyederhanakan" kondisi penghentiannya.

Arang , 21 20 19 18 byte

Ｆ⁹«Ｆ…¹χ⁺κ… ι0⸿»‖Ｂ↑

Cobalah online!

Tautan ke versi verbose . Pada dasarnya saya membuat bagian bawah gambar dan kemudian memantulkan teks ke atas.

CJam , 21 byte

A,(+aH*ee{:\8-zS**n}/

Cobalah online!

Penjelasan

A,     e# Get [0 1 2 ... 9].
(+     e# Rotate the 0 to the end.
aH*    e# Wrap in an array and repeat 17 times.
ee     e# Enumerate. This pairs each copy of the array with its index in
       e# the list.
{      e# For each [index array] pair...
  :\   e#   Unwrap the pair and swap its order.
  8-z  e#   Get the absolute difference of the index from 8.
  S*   e#   Get a string of that many spaces.
  *    e#   Riffle the list of digits with the string of spaces.
  n    e#   Print it with a trailing linefeed.
}/

Batch, 163 byte

@set s=1 2 3 4 5 6 7 8 9 0
@set t=         
@for %%l in (9 7)do @for /l %%i in (1,1,%%l)do @call:%%l
:7
@set t=  %t%
:9
@set t=%t:~1%
@call echo %%s: =%t%%%

Catatan: Baris pertama berakhir dalam 9 spasi. Penjelasan: Menggunakan penomoran baris kreatif! Loop pertama harus berjalan 9 kali dan menghapus spasi setiap kali, sedangkan loop kedua perlu berjalan 8 kali dan menambahkan spasi setiap kali. Yang pertama dicapai dengan menjalankannya 7 kali dan jatuh untuk yang ke-8, sementara yang kedua dicapai dengan menambahkan dua ruang dan jatuh melalui untuk menghapus salah satunya lagi.

SOGL V0.12 , 14 byte

ā9{SUčf@*∑Κ}╬Æ

Coba Di Sini!

Penjelasan:

ā               push an empty array
 9{        }    9 times do
   SU             push "1234567890"
     č            chop into characters
      f@*         get current iteration (0-based) amount of spaces
         ∑        join with that
          Κ       prepend this to the array
            Β  palindromize vertically with 1 overlap

PHP , 69 byte

for(;$i<17;)echo join(str_pad("",abs($i++-8)),range(1,9)+[9=>0]),"
";

Cobalah online!

PowerShell , 30 byte

8..0+1..8|%{1..9+0-join' '*$_}

Cobalah online!

Buat rentang 8,7,6...2,1,0,1,2...8loop kemudian melalui masing-masing nomor. Di dalam loop kita membangun berbagai 1..9bersambung dengan 0kemudian -joinangka-angka dalam kisaran bersama-sama dengan jumlah yang tepat dari ruang. Setiap string ditinggalkan di jalur pipa, dan output tersirat pada penyelesaian program.