中に盗聴出力に触発@CarcigenicateのClojureの答えのための印刷このダイヤモンド挑戦。

この正確なテキストを印刷します。

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

（中央から両方向に外側に向かって、各数字は前の行よりも1つ多くのスペースで区切られています。）

チャレンジルール：

• 入力はありません（または空の未使用の入力）。
• 末尾のスペースはオプションです。
• 単一の末尾の改行はオプションです。
• 先行スペースまたは改行は使用できません。
• 文字列配列を返すことはできません。テキストを出力するか、正しい結果の単一の文字列を返す関数を用意する必要があります。

一般的なルール：

• これはcode-golfであるため、バイト単位の最短回答が優先されます。
  コードゴルフ言語では、コードゴルフ以外の言語で回答を投稿しないようにしてください。「任意の」プログラミング言語の可能な限り短い答えを考えてみてください。
• 回答には標準の規則が適用されるため、STDIN / STDOUT、適切なパラメーターと戻り値型、完全なプログラムを持つ関数/メソッドを使用できます。あなたの電話。
• デフォルトの抜け穴は禁止されています。
• 可能であれば、コードのテストへのリンクを追加してください。
• また、必要に応じて説明を追加してください。

SOGL V0.12、12のバイト

9{SUē↕∑}¹№╬«

ここで試してみてください！ 説明：

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

パイソン2、59の57 56 55バイト

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

オンラインでお試しください！

@Leaky Nunはこれをゴルフで大いに助けてくれました。@ Praindは1バイトを節約する方法を提案しました。

説明

• i=8- 8という名前の変数に値を割り当てますi。

• exec"..."*17-そのコードブロック（...）を17回実行します。

• print(...) -結果を出力します。

• ' '*abs(i)-繰り返しスペースを含む文字列を作成します|i|。

• .join('1234567890')-と、上記作成された文字列をインターリーブ1234567890するように、|i|スペースが数字の間に挿入されています。

• i-=1-減少しi、それを17回実行することで到達します-8。これにより、の助けを借りて反復パターンが作成されますabs()。

Vim、35バイト：

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

説明：

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バイト

17F9ÝÀN8αð×ý,

オンラインでお試しください！

説明

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バイト（basicstubでコンパイルされた102バイト）

これは明らかな制限のために私が得ることができる最も近いものです：

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

（おそらくかなり最適化される可能性があります）

TSQL、220 148バイト

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 @

出力：

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バイト

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

オンラインでお試しください！

⎕D Dゼロから9までigits

1⌽ 1ステップ右に回転します（最後にゼロを置きます）

⊂ 囲む（単位として扱うため）

(... )↑¨¨ のために、各これらの数字の、から多くの文字を取り、各文字の：

 ⍳17 1から17

 ¯9+ 9を引く

 | 絶対値を見つける

 1+ ひとつ追加

∊¨ 参加（平坦化）する

↑ 深さの1つのレイヤーをランクのレベルに変更します（matrify）

Haskell、58 55バイト

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

オンラインでお試しください！

これは基本的に@nimiのソリューションです:)

Java 11（JDK）、98バイト

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

オンラインでお試しください！

• JDK 11に切り替えることで-14バイトになりました。JDK11にはネイティブがありString::repeatます。

前の回答（Java（OpenJDK 8））、113 112バイト

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

オンラインでお試しください！

説明

私は基本的に次のString17回を構築しています（N実際の値ではなく変数です）：

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

それはすべての予想される数字であり、各数字間のスペースの数である%1$Nswhere で結合されNます。

%1$Ns基本的には、「最初の引数を取り、長さが少なくとも長さになるまで埋め込みます」という意味Nです。また、%1$0sはサポートされていないため、の特別なケース%1$sが作成され0ます。

最後に、単一の引数を使用して文字列をフォーマット出力します：""、フォーマッタは常に同じ空の文字列を再利用し、必要に応じてスペースを埋め込みます。

保存する

• Kevin Cruijssenのおかげで1バイト

Japt -R、19 18 16 14 13バイト

Aõ%A
£qYçÃÔÅê

それをテストするか、オンラインで試してください

説明

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バイト

10バイトを節約してくれたShaggyに感謝します。1バイトを保存してくれたCraigに感謝します。ありがとう弧 4つのバイトを保存します。

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バイト

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

オンラインでお試しください！

Leaky Nunのおかげで1バイト節約できました。

説明

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

炭、18バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

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

注：前にセパレーターが必要になるCast(1)ため、同じバイト数を使用します（たまたまデバーボライザーが挿入に失敗します）。"1"":"

R、108バイト

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

文字列を貼り付けて折りたたむだけです。

オンラインでお試しください！

編集：問題を指摘してくれたChallenger5に感謝します。今それを修正しました。

編集2：弾むボールのおかげでバイトを節約しました。

Pythonの3、58の 57 54バイト

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

オンラインでお試しください！

（おかげで、最後の3バイトのために@flornquakeするために、私は完全に使用して忘れてしまったsep対を保存するために.join）

Pyth、14 13バイト

ニーモニックのおかげで1バイト。

V17j*da8NeMST

オンラインでお試しください！

ジャワ8、235の 234 206 163バイト

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

更新：Leaky Nunのおかげで-28バイト！
更新2：再びLeaky Nunのおかげで-43バイト！

アンゴルフド：

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

オンラインで試す

編集：以前のコードが間違っていました！コードをゴルフ中にミスを犯した、それは今意図したとおりに動作するはずです！

殻、21バイト

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

これは、STDOUTに出力される完全なプログラムです。 オンラインでお試しください！ 末尾にスペースがたくさんあります。

説明

Huskには、2つの引数の範囲関数など、多くの重要な要素がまだ不足しているため、このソリューションの一部は少しハッキーです。

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バイト

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

使用するために更新：

• master..spt_values番号を生成するには（WHERE type = 'P'、これらは常に0から連続します）
• @ZLKのTOP 17アイデア
• PRINT（ルールに従う-文字列リストなし）
• 文字列にキャリッジリターンを含めるという@JanDrozenの素晴らしいアイデア（私はそれを1バイトと数えました-Windows CRLF何？）
• 変数名に@のみを使用する@Bridgeのアイデア-これらすべてのトリック!!

結果：

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

（@JanDrozenのREPLACEアイデアに感謝）

Clojure、126 99バイト

-27いくつかの愚かな間違いを修正しました。の外側の使用はa必要なかったので、私はa完全に取り除き、apply str一度だけ書くことができました。また、メイン関数に関数マクロを使用して、いくつかのバイトを節約することもできました。またMath/abs、再バインドの代わりにへの呼び出しをインライン化しましたn-spaces。

基本的に@ Mr.XcoderのPythonアイデアのClojureポートです。振り返ってみると、元々はダイアモンドチャレンジにabs/ rangeメソッドを使用するべきでしたが、それからバグのある出力を生成しなかったかもしれません！

ものすごく単純。数値文字列を現在の行に依存するいくつかのスペースと結合します。

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

ゼリー、15バイト

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

オンラインでお試しください！

Mathematica、92バイト

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

オンラインで試す

ctrl-vを使用してコードをコピー/貼り付け、
shift + enterを押して実行します

C、97バイト

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

あなたのコンパイラはおそらくこのコードについて多くの不満を言うでしょう。私は4種類の警告を7回投げました。後でコードを改善する可能性があります。

オンラインでお試しください！

C（gcc）、76バイト

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

オンラインでお試しください！

後続スペースが出力されますが、これは問題ないはずです。

動的な長さの左寄せフィールドを使用して数値を出力します-それがフォーマット文字列の%-*d目的です。

内側のループには、終了条件を「単純化」するための面白い初期化（10から開始します。10の倍数であれば問題ありません）があります。

炭、21 20 19 18バイト

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

オンラインでお試しください！

詳細バージョンへのリンク。基本的には、図面の下部を作成し、テキストを上に反映します。

CJam、21バイト

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

オンラインでお試しください！

説明

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

バッチ、163バイト

@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%%%

注：最初の行は9つのスペースで終わります。説明：クリエイティブな行番号を使用します！最初のループは毎回9回実行してスペースを削除する必要があり、2番目のループは毎回8回実行してスペースを追加する必要があります。前者は、7回実行して8回通過することによって達成され、後者は、2つのスペースを追加してから1つを削除することによって達成されます。

SOGL V0.12、14のバイト

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

ここで試してみてください！

説明：

ā               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バイト

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

オンラインでお試しください！

パワーシェル、30バイト

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

オンラインでお試しください！

範囲を構築し、8,7,6...2,1,0,1,2...8各数値をループします。ループ内では、の範囲構築1..9と連結し0、その後-join適切な数の空白と一緒範囲の数字。各文字列はパイプラインに残り、プログラムの完了時に出力は暗黙的に行われます。