Lấy cảm hứng từ đầu ra có lỗi trong câu trả lời Clojure của @Carcigenicate cho Thử thách In kim cương này .

In văn bản chính xác này:

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

(Từ giữa ra ngoài theo cả hai hướng, mỗi chữ số được phân tách bằng một khoảng trắng so với dòng trước.)

Quy tắc thử thách:

• Sẽ không có đầu vào ( hoặc đầu vào không sử dụng trống ).
• Không gian lưu trữ là tùy chọn.
• Một dòng mới duy nhất là tùy chọn.
• Không gian hàng đầu hoặc dòng mới không được phép.
• Trả về một chuỗi chuỗi không được phép. Bạn nên xuất văn bản hoặc có một hàm trả về một chuỗi có kết quả đúng.

Quy tắc chung:

• Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte thắng.
  Đừng để ngôn ngữ mã-golf ngăn cản bạn đăng câu trả lời với các ngôn ngữ không mã hóa. Cố gắng đưa ra một câu trả lời càng ngắn càng tốt cho ngôn ngữ lập trình 'bất kỳ'.
• Các quy tắc chuẩn áp dụng cho câu trả lời của bạn, vì vậy bạn được phép sử dụng STDIN / STDOUT, các hàm / phương thức với các tham số thích hợp và kiểu trả về, các chương trình đầy đủ. Cuộc gọi của bạn.
• Lỗ hổng mặc định bị cấm.
• Nếu có thể, vui lòng thêm một liên kết với một bài kiểm tra cho mã của bạn.
• Ngoài ra, xin vui lòng thêm một lời giải thích nếu cần thiết.

SOGL V0.12 , 12 byte

9{SUē↕∑}¹№╬«

Hãy thử nó ở đây! Giải trình:

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

Hãy thử trực tuyến!

@Leaky Nun đã giúp chơi golf rất nhiều, @Praind đã đề xuất một phương pháp để tiết kiệm 1 byte, mà trước đây tôi nghĩ đến, nhưng quên chỉnh sửa, @CotyJohnathanSaxman đề nghị thay đổi vòng lặp.

Giải trình

• i=8- Gán giá trị 8cho một biến được gọi i.

• exec"..."*17- Thực thi khối mã đó ( ...) 17 lần.

• print(...) - Xuất kết quả.

• ' '*abs(i)- Tạo một chuỗi với một không gian lặp đi lặp lại |i|.

• .join('1234567890')- Xen kẽ chuỗi được tạo ở trên với 1234567890, sao cho |i|khoảng trắng được chèn giữa các chữ số.

• i-=1- Giảm i, và bằng cách thực hiện nó 17 lần, nó đạt tới -8, điều này tạo ra mô hình lặp đi lặp lại với sự giúp đỡ của abs().

Vim, 35 byte:

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

Giải trình:

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αð×ý,

Hãy thử trực tuyến!

Giải trình

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 được biên dịch với basicstub)

Đây là lần gần nhất tôi có thể nhận được do những hạn chế rõ ràng:

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

(Có lẽ có thể được tối ưu hóa khá nhiều)

TSQL, 220 148 byte

Cải thiện được đăng bởi 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 @

Đầu ra:

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

Hãy thử trực tuyến!

⎕D D igits từ 0 đến 9

1⌽ xoay một bước đúng (đặt số 0 ở cuối)

⊂ kèm theo (để coi là đơn vị)

(Chiếm )↑¨¨ lấy mỗi số này, lấy nhiều ký tự từ mỗi chữ cái:

 ⍳17 một đến mười bảy

 ¯9+ trừ chín

 | tìm các giá trị tuyệt đối

 1+ cộng một

∊¨ tranh thủ (làm phẳng) mỗi

↑ thay đổi một lớp sâu thành cấp bậc (matrify)

Haskell , 58 55 byte

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

Hãy thử trực tuyến!

Đây cơ bản là giải pháp của @nimi :)

Java 11 (JDK) , 98 byte

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

Hãy thử trực tuyến!

• -14 byte bằng cách chuyển sang JDK 11, hiện có nguồn gốc String::repeat.

Câu trả lời trước ( 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","");}

Hãy thử trực tuyến!

Giải thích

Về cơ bản, tôi đang xây dựng String17 lần sau ( Nlà một biến, không phải là giá trị thực):

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

Đó là tất cả các chữ số dự kiến, được nối bởi %1$Nsvị Ntrí số khoảng cách giữa mỗi chữ số.

%1$Nsvề cơ bản có nghĩa là "lấy đối số đầu tiên và đệm nó cho đến khi ít nhất là chiều dài N". Ngoài ra, %1$0skhông được hỗ trợ nên trường hợp đặc biệt %1$sđược thực hiện cho 0.

Cuối cùng, tôi định dạng in chuỗi đó bằng một đối số duy nhất: ""vì vậy, bộ định dạng sử dụng lại luôn cùng một chuỗi trống, đệm nó với khoảng trắng khi cần.

Tiết kiệm

• 1 byte nhờ Kevin Cruijssen

Japt -R , 19 18 16 14 13 byte

Aõ%A
£qYçÃÔÅê

Kiểm tra hoặc thử trực tuyến

Giải trình

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

Cảm ơn Shaggy đã lưu 10 byte. Cảm ơn Craig vì đã tiết kiệm 1 byte. Cảm ơn các cung đã lưu 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ẉᵐ

Hãy thử trực tuyến!

Đã lưu một byte nhờ Leaky Nun .

Giải trình

Ị↺                               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

than củi , 18 byte

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

Hãy thử trực tuyến!Liên kết là phiên bản dài dòng của mã. Giải trình:

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

Lưu ý: Cast(1)lấy cùng số byte bởi vì "1"sẽ cần một dấu phân cách trước ":"đó (điều này xảy ra khi deverbosifier không thể chèn).

R , 108 byte

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

Chỉ cần dán và thu gọn các chuỗi.

Hãy thử trực tuyến!

Chỉnh sửa: cảm ơn Challenger5 vì đã chỉ ra một vấn đề. Đã sửa nó ngay.

Chỉnh sửa 2: lưu một byte nhờ bouncyball.

Python 3 , 58 57 54 byte

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

Hãy thử trực tuyến!

(cảm ơn @flornquake trong ba byte cuối cùng; tôi hoàn toàn quên sử dụng sepđể lưu so với .join)

Bình thường , 14 13 byte

1 byte nhờ Mnemonic.

V17j*da8NeMST

Hãy thử trực tuyến!

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

Cập nhật : -28 byte nhờ Leaky Nun!
Cập nhật 2 : -43 byte nhờ Leaky Nun một lần nữa!

Ung dung:

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

Dùng thử trực tuyến

EDIT: Mã trước đó là sai! Đã phạm sai lầm trong khi chơi golf mã, nó sẽ hoạt động như dự định ngay bây giờ!

Husk , 21 byte

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

Đây là một chương trình đầy đủ in ra STDOUT. Hãy thử trực tuyến! Có rất nhiều không gian dấu.

Giải trình

Husk vẫn còn thiếu rất nhiều thứ thiết yếu như hàm phạm vi hai đối số, vì vậy các phần của giải pháp này có một chút khó khăn.

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 @

Cập nhật để sử dụng:

• master..spt_values để tạo số (WHERE type = 'P' , các số này luôn liên tiếp, bắt đầu từ 0)
• @ ZLK TOP 17Ý tưởng
• IN (để tuân thủ các quy tắc - không có danh sách chuỗi)
• @ JanD Frozen ý tưởng tuyệt vời của việc bao gồm lợi nhuận vận chuyển trong chuỗi (Tôi đã tính rằng đó chỉ là một byte - Windows CRLF là gì?)
• Ý tưởng của @Bridge chỉ sử dụng @ cho tên biến - tất cả các thủ thuật này !!

Các kết quả:

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

(Cảm ơn @JanD Frozen vì ý tưởng REPLACE)

Clojure, 126 99 byte

-27 bằng cách sửa một vài lỗi ngớ ngẩn. Việc sử dụng bên ngoài alà không cần thiết, vì vậy tôi đã có thể loại bỏ ahoàn toàn và chỉ viết apply strmột lần. Điều đó cũng cho phép tôi sử dụng một macro hàm cho hàm chính, nó đã lưu một số byte. Tôi cũng đã nội tuyến cuộc gọi đến Math/absthay vì từ chối n-spaces.

Về cơ bản là một cổng Clojure của ý tưởng Python @ Mr.Xcoder's. Nhìn lại, tôi nên sử dụng abs/range phương thức cho thử thách kim cương ban đầu, nhưng sau đó tôi có thể không tạo ra đầu ra bị lỗi!

Khá đơn giản. Tham gia chuỗi số với một số khoảng trắng phụ thuộc vào hàng hiện tại.

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

Thạch , 15 byte

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

Hãy thử trực tuyến!

Toán học, 92 byte

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

Dùng thử trực tuyến

sao chép / dán mã với ctrl-v
nhấn shift + enter để chạy

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

Trình biên dịch của bạn có thể sẽ phàn nàn rất nhiều về mã này; Tôi đã ném 7 cảnh báo của 4 loại khác nhau. Có thể cải thiện mã sau này.

Hãy thử trực tuyến!

C (gcc) , 76 byte

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

Hãy thử trực tuyến!

Nó xuất ra một số dấu cách, được cho là ổn.

Nó in các số bằng cách sử dụng các trường có độ dài động bên trái - đó là chuỗi định dạng %-*ddành cho.

Vòng lặp bên trong có một số khởi tạo vui nhộn (bắt đầu từ 10; bất kỳ bội số nào của 10 sẽ ổn) để "đơn giản hóa" điều kiện kết thúc của nó.

Than , 21 20 19 18 byte

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

Hãy thử trực tuyến!

Liên kết đến phiên bản dài dòng . Về cơ bản tôi tạo phần dưới của bản vẽ và sau đó phản ánh văn bản lên.

CJam , 21 byte

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

Hãy thử trực tuyến!

Giải trình

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.
}/

Hàng loạt, 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%%%

Lưu ý: Dòng đầu tiên kết thúc trong 9 khoảng trắng. Giải thích: Sử dụng đánh số dòng sáng tạo! Vòng lặp đầu tiên cần chạy 9 lần và xóa một khoảng trống mỗi lần, trong khi vòng lặp thứ hai cần chạy 8 lần và thêm một khoảng trống mỗi lần. Cái trước đạt được bằng cách chạy nó 7 lần và rơi lần thứ 8, trong khi cái thứ hai đạt được bằng cách thêm hai khoảng trắng và rơi vào để xóa một trong số chúng một lần nữa.

SOGL V0.12 , 14 byte

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

Hãy thử nó ở đây!

Giải trình:

ā               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]),"
";

Hãy thử trực tuyến!

PowerShell , 30 byte

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

Hãy thử trực tuyến!

Xây dựng một phạm vi các 8,7,6...2,1,0,1,2...8vòng lặp sau đó thông qua mỗi số. Bên trong vòng lặp chúng ta xây dựng một loạt các 1..9nối với 0sau đó -joincác con số trong phạm vi cùng với số lượng thích hợp của không gian. Mỗi chuỗi được để lại trên đường ống và đầu ra được ẩn khi hoàn thành chương trình.