Это была просто ошибка

76

Вдохновленный прослушиваются выходом в @Carcigenicate Clojure ответа «s для печати этого алмаза вызова.

Напечатайте этот точный текст:

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

(От середины кнаружи в обоих направлениях каждая цифра отделяется на один пробел больше, чем предыдущая строка.)

Правила соревнований:

  • Там не будет никакого ввода ( или пустой неиспользуемый ввод ).
  • Конечные пробелы не являются обязательными.
  • Одиночный трейлинг новой строки не является обязательным.
  • Пробелы или новые строки не допускаются.
  • Возвращение массива строк не допускается. Вы должны либо вывести текст, либо иметь функцию, которая возвращает единственную строку с правильным результатом.

Основные правила:

  • Это код-гольф , поэтому выигрывает самый короткий ответ в байтах.
    Не позволяйте языкам кода-гольфа отговаривать вас от публикации ответов на языках, не относящихся к кодексу. Попробуйте придумать как можно более короткий ответ для «любого» языка программирования.
  • К вашему ответу применяются стандартные правила , поэтому вы можете использовать STDIN / STDOUT, функции / метод с правильными параметрами и типом возврата, полные программы. Ваш звонок.
  • По умолчанию лазейки запрещены.
  • Если возможно, добавьте ссылку с тестом для вашего кода.
  • Также, пожалуйста, добавьте объяснение, если это необходимо.
code-golf  ascii-art  number  kolmogorov-complexity 
— Кевин Круйссен
источник
Разрешен ли вывод массива строк - по 1 строке на строку?
— Лохматый
@ Shaggy Извините, в этом случае он должен либо вернуть одну строку с новыми строками, либо вывести результат. Я добавил это как правило к вызову.
— Кевин Круйссен
Не беспокойся, Кевин; просто переключал мою руку, чтобы посмотреть, смогу ли я спасти себя пару байтов.
— Лохматый
3
@ Шэгги Хе-хе. Какую еще причину нам пришлось бы задать вопрос в состязании по коду-гольфу, помимо цели сохранения этих нескольких байтов? ;)
— Кевин Круйссен
8
Ха, это круто. Мне было интересно, почему этот ответ вдруг получил так много внимания. Спасибо!
— Carcigenicate

Ответы:

7

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
— dzaima
источник
О, хорошо, это даже короче, чем принятый ответ. Хм, какова политика в отношении коротких ответов через пару месяцев после принятия ответа? Получает ли это сейчас чек (вроде несправедливо по отношению к принятому в настоящее время ответу) или мне следует заняться чем-то другим? Отличный ответ независимо! +1 от меня.
— Кевин Круйссен,
@KevinCruijssen Обычно рекомендуется обновлять принятый ответ, но, поскольку в нем используются несколько новых функций, я бы сказал, что есть причина пойти в любую сторону - вы выбираете.
— Дзайма
62

Python 2 , 59 57 56 55 байт

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

Попробуйте онлайн!

@ Leaky Nun очень помог в игре в гольф, @Praind предложил метод сохранения 1 байта, о котором я раньше думал, но забыл отредактировать, @CotyJohnathanSaxman предложил изменить цикл.

объяснение

  • i=8- Присваивает значение 8переменной с именем i.

  • exec"..."*17- Выполнить этот блок кода ( ...) 17 раз.

  • print(...) - Вывести результат.

  • ' '*abs(i)- Создать строку с пробелом повторяется |i|раз.

  • .join('1234567890')- Чередуйте строку, созданную выше 1234567890, так, чтобы |i|между цифрами вставлялись пробелы.

  • i-=1- Уменьшить i, и, выполняя его 17 раз, он достигает -8, что создает повторяющийся узор с помощью abs().

— Мистер Xcoder
источник
5
— Утренняя монахиня
23
Это ферма более впечатляющая, чем 25 байтов на любом языке для игры в гольф imho.
— Jylo
4
@Jylo Спасибо, но 25-байтовые решения очень впечатляют, поскольку они показывают много усилий в области гольфа, предпринятых их авторами. Сначала вы должны знать, что означает каждый персонаж в их источнике, а затем вы поймете, насколько они прекрасны в гольфе.
— Мистер Кскодер
2
@JasonChen Нет, Python не разрешает этот синтаксис, потому что он специфичен для языков, подобных Си.
— г-н Xcoder
5
Возможное вдохновение: может быть выполнено без exec 55 байтов . Использовал аналогичный подход, чтобы получить Python 3 до 57 байт . Не видел никакого очевидного способа сделать это короче, опуская exec, но решил, что я бы упомянул это как возможность.
— ShadowRanger
32

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
— DJMcMayhem
источник
6
Мне даже все равно, что это не победитель, это красиво.
— MrDuk
@MrDuk Спасибо! Я рад, что вам это нравится :)
— DJMcMayhem
21

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
— Emigna
источник
1
Хм ... ты мог бы победить SOGL, если бы тебе не нужно s... имеет ли смысл объединять строку со списком или список со строкой? Я предложу улучшение для Аднана. Ох, и есть .∊для û».
— Эрик Outgolfer
@EriktheOutgolfer: Или я мог бы переключить свой метод и сохранить тот 1 байт, который мне был нужен :)
— Emigna
Извините, уже проголосовали.
— Эрик Outgolfer
3
Это означает, что я бы снова проголосовал ...
— Эрик Outgolfer
4
8F9ÝÀNð×ý}».∊Я сделал сделал космический корабль пасть! И я был взволнован предложением 12-байтового редактирования.
— Волшебная Осьминог Урна
20

C64 ASM, 358 байт (102 байта, скомпилированных с basicstub)

Это самое близкое, что я мог получить из-за очевидных ограничений:

C64

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

(Возможно, может быть оптимизирован совсем немного)

— Jupp3
источник
Добро пожаловать в PPCG! Пожалуйста, используйте кодовый тег, чтобы публиковать красивые. Я отредактировал твой пост. После внесения изменений вы можете увидеть, что изменилось, нажав на кнопку изменить
— Евгений Новиков
Я только что проверил, и он даже не поместится на ПЭТ на 80 cols, поскольку первая и последняя строки требуют 82 столбца.
— Шон Бебберс,
17

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
— Ян Дрозен
источник
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 @
— ZLK
Замените sys.objectsна sysobjects, а 1object_id` на « idЯ искал более короткие таблицы в sysсхеме, но ничего короткого не имело таких коротких столбцов, какsysobjects
— Jaloopa
И вы можете сохранить еще несколько байтов, изменив внутренний CAST(с помощью POWER(10)) наVARCHAR
— Jaloopa
Фактически, избегайте всего, что заменяет вещи, используя LOG10и REPLICATE:DECLARE @o VARCHAR(MAX)=''SELECT TOP 17 @o+=REPLACE('1@2@3@4@5@6@7@8@9@0','@',replicate(' ',LOG10(POWER(10,ABS(ROW_NUMBER()OVER(ORDER BY id)-9)+1)/10)))+' 'FROM sysobjects PRINT @o
— Jaloopa
Вы можете изменить имя переменной, чтобы просто @сбрить 3 символа.
— Мост
14

APL (Dyalog) , 22 байта

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

Попробуйте онлайн!

⎕D D igits от нуля до девяти

1⌽ повернуть на один шаг вправо (ставит ноль в конце)

⊂ приложить (рассматривать как единое целое)

(... )↑¨¨ для каждого из этих чисел взять столько символов из каждой буквы:

 ⍳17 с одного до семнадцати

 ¯9+ вычесть девять

 | найти абсолютные значения

 1+ добавить одну

∊¨ заручиться поддержкой

↑ изменить один слой глубины на уровень ранга (Matrify)

— Адам
источник
3
На таком компактном языке серьезно требуется два байта, чтобы добавить один?
— aschepler
3
@aschepler Да. APL не является языком игры в гольф и не имеет примитива приращения. J делает, но это занимает два байта; >:,
— Адам
4
APL is not a golfing language... ↑⊃¨,/¨(1+|¯9+⍳17)↑¨¨⊂1⌽⎕D... ಠ_ಠ
— Александр
1
@ Александр Спасибо, что уделили мне внимание. Я мог бы играть в гольф 3 байта.
— Адам
12

Java 11 (JDK) , 98 байт

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

Попробуйте онлайн!

  • -14 байтов путем переключения на JDK 11, который теперь имеет родной 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$Nsгде Nэто количество пробелов между каждой цифрой.

%1$Nsв основном означает «возьмите первый аргумент и добавьте его, пока длина не станет меньше N». Кроме того , %1$0sне поддерживаются , так это особый случай %1$sсделан для 0.

Наконец, я форматирую и печатаю эту строку, используя один аргумент:, ""чтобы форматировщик всегда использовал одну и ту же пустую строку, заполняя ее пробелами по мере необходимости.

Сохраняет

  • 1 байт благодаря Кевину Круйссену
— Оливье Грегуар
источник
2
Хороший ответ! Кстати, я явно упомянул в вызове неиспользуемый пустой параметр разрешен, так что вы можете заменить ()->с , o->чтобы сохранить байты. :)
— Кевин Круйссен
Можете ли вы сделать и использовать его в цикл? ointfor(o=-9;++o<9;)
— зима
2
@ Зима Нет, потому что в запросе указано « не используется », и при этом будет использоваться переменная параметра, даже если значение не будет использовано.
— Оливье Грегуар
@ OlivierGrégoire Он ссылается на этот пост codegolf.meta.stackexchange.com/questions/12681/… и в этих постах только говорится, что он должен быть пустым (0 для целых).
— зима
@ Indeed Действительно, но сам вызов говорит «неиспользованный». Определенные решения в вызове отменяют значения по умолчанию.
— Оливье Грегуар
11

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
— мохнатый
источник
2
Приятно. Мое 16-байтовое решение было9ÆAõ%A qXîÃw ê ·
— ETHproductions
8

JavaScript (ES2017), 83 73 72 68 байт

Спасибо Shaggy за сохранение 10 байтов. Спасибо Крейгу за сохранение 1 байта. Спасибо дуги за сохранение 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; }
Развернуть фрагмент

— Tushar
источник
Сохраните 1 байт, используя полифилл для Math.abs. Я также сделал aсписок не жестко закодированным, но это предпочтение ...a=[...Array(10).keys()];for(i=-8;i<9;i++)console.log(a.join(' '.repeat(i<0?-i:i)))
— Томас В.
1
Сохранить несколько байтов с[..."1234567890"].join("".padEnd(i<0?-i:i))
— Shaggy
@ Shaggy Спасибо. Это сэкономило 10 байтов. :)
— Тушар
1
@ThomasW: [...Array(10).keys]будет 0первым элементом, а не последним.
— Лохматый
1
Вы можете сохранить байт, используя свой метод, сохраняя результат в строке, а не в журнале:, for(i=-8,s="";i<9;i++)s+=[..."1234567890"].join("".padEnd(i<0?-i:i))+`X`где Xнаходится фактическая
— Крейг Эйр,
7

Брахилог , 30 29 28 байт

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

Попробуйте онлайн!

Сохраненный один байт благодаря Leaky Nun .

объяснение

Ị↺                               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
— Fatalize
источник
2
— Утренняя монахиня
@LeakyNun Я застрял на большом «Напечатайте этот точный текст» и не читал, что у нас могли бы быть
— заключительные
4
— Утренняя монахиня
1
@LeakyNun Почему вы не опубликовали свой ответ?
— Фатализировать
7

Древесный уголь , 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"что раньше требовался бы разделитель ":"(который, как это происходит, не может быть вставлен в девербосификатор).

— Нил
источник
7

R , 108 байт

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

Просто вставляю и сворачиваю струны.

Попробуйте онлайн!

Редактировать: спасибо за Challenger5 за указание на проблему. Исправлено сейчас.

Редактировать 2: сохранил байт благодаря bouncyball.

— Probel
источник
Добро пожаловать на сайт! :)
— DJMcMayhem
2
Это выглядит не совсем правильно - в средней строке вообще не должно быть пробелов.
— Esolanging Fruit
@ Challenger5 ты прав! исправил это с помощью paste0взамен, pasteпоэтому пришлось добавить байт :(
— Probel
1
сохранить 2 байта, используя el: el(strsplit("1234567890",""))вместоstrsplit("1234567890","")[[1]]
— bouncyball
Вы можете избавиться от одного из pasteутверждений, используя sepаргумент to catи сделав немного больше, чтобы получить его до 70 байт
— Giuseppe
6

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

Обновление : -28 байт благодаря Leaky Nun!
Обновление 2 : -43 байта благодаря Leaky Nun снова!

Ungolfed:

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

Попробуйте онлайн

РЕДАКТИРОВАТЬ: код ранее был неправильным! Сделал ошибку при игре в коде, он должен работать как задумано сейчас!

— Алекс Ферретти
источник
4
Добро пожаловать в PPCG! Советы по игре в гольф на Java и советы по игре в гольф на <все языки> могут быть интересными для чтения. :) Некоторые вещи, которые вы можете убрать в гольф public, и избавиться от некоторых ненужных мест. И есть еще кое-что, что можно улучшить, но я предлагаю прочитать советы и посмотреть, где вы можете улучшить себя. Снова добро пожаловать, и приятного пребывания! :)
— Кевин Круйссен
2
Хм, также, вы уверены, что отправили правильный код? Когда я копирую и вставляю ваш код в TryItOnline, он не дает правильного вывода.
— Кевин Круйссен
1
Черт, я сделал что-то не так во время игры в гольф! Я исправлю это!
— Алекс Ферретти
1
— Leaky Nun
1
— Лики Монахиня
6

Шелуха , 21 байт

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

Это полная программа, которая печатает в STDOUT. Попробуйте онлайн! Есть много висячих мест.

объяснение

В Husk до сих пор не хватает многих важных вещей, таких как функция диапазона с двумя аргументами, поэтому некоторые части этого решения немного хакерские.

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.
— Zgarb
источник
Вы можете заменить ṁs`:0ḣ9на, uṁsḣ10чтобы сгенерировать строку "1234567890" с одним меньшим байтом!
— София Лехнер
6

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)
  • TOP 17Идея @ ZLK
  • ПЕЧАТЬ (подчиняться правилам - без списков строк)
  • Прекрасная идея @ JanDrozen о включении возврата каретки в строку (я посчитал это всего лишь одним байтом - 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 за идею ЗАМЕНИТЬ)

— Обратный инженер
источник
Это хороший ответ! Добро пожаловать на сайт :)
— DJMcMayhem
Благодарю. Я вижу, что некоторые из нас изобрели наши собственные языки здесь :)
— Обратный инженер
1
Оптимальное сочетание этого ответа с другим: например SELECT TOP 17REPLACE('1x2x3x4x5x6x7x8x9x0','x',SPACE(ABS(9-RANK()OVER(ORDER BY object_id))))FROM sys.objects(при условии, что вам не нужно печатать).
— ZLK
Ага @ZLK - несколько приятных трюков - TOP 17, RANK OVER и sys.objects - спасибо!
— Обратный инженер
6

Clojure, 126 99 байтов

-27 исправив пару глупых ошибок. Внешнее использование aне было необходимости, поэтому я смог избавиться от aвсего и просто написать apply strодин раз. Это также позволило мне использовать макрос функции для основной функции, который сохранил несколько байтов. Я также добавил вызов Math/absвместо повторной привязки n-spaces.

В основном порт Clojure идеи Python @ Mr.Xcoder. Оглядываясь назад, я должен был изначально использовать метод 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"))))
— Carcigenicate
источник
5

Mathematica, 92 байта

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

Попробуйте онлайн

скопируйте / вставьте код с помощью ctrl-v
нажмите shift + enter для запуска

— J42161217
источник
Не могли бы вы добавить ссылку на TryItOnline ?
— Кевин Круйссен
@KevinCruijssen Mathematica не является свободным языком, и математика, похоже, не работает .
— Утренняя монахиня
@ LeakyNun Хорошо, спасибо. Иногда я вижу, как MartinEnder публикует TIO-ссылки, но это действительно были ссылки на Mathics.
— Кевин Круйссен
1
@Kevin Cruijssen да, конечно, я добавил ссылку с инструкциями
— J42161217
5

C 97 байтов

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

Ваш компилятор, вероятно, будет много жаловаться на этот код; мой бросил 7 предупреждений 4 разных типов. Может улучшить код позже.

Попробуйте онлайн!

— tomsmeding
источник
5

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 было бы хорошо), чтобы «упростить» его условие завершения.

— anatolyg
источник
4

Древесный уголь , 21 20 19 18 байт

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

Попробуйте онлайн!

Ссылка на подробную версию . По сути, я создаю нижнюю часть рисунка, а затем отражаю текст вверх.

— Чарли
источник
1
Когда я увидел вопрос, я решил попробовать сам в древесном угле, прежде чем посмотреть на ответ. Я начал с 21-байтового ответа, но сыграл в гольф до 20 байтов ... жуткий!
— Нил
@Neil :-D Ну, теперь это 19 байтов!
— Чарли
Да, только что нашел этот гольф сам. Я также изучал Ｅ…⁹⪫Ｅ…·¹χＩ﹪κχ× ι‖Ｂ↑(также для 19 байтов), но интерпретатору это, кажется, не нравится (я сам не вижу, что с ним не так).
— Нил
О, Рейндж принимает два аргумента, глупый я.
— Нил
1
Оказывается, Mapбыла красная сельдь, так что теперь я разместил свой 18-байтный ответ.
— Нил
4

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.
}/
— Мартин Эндер
источник
1
Альтернативное решение (также 21 байт):9{S*A,(+\*}%_W%);\+N*
— Esolanging Fruit
4

Пакетный, 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 раз и каждый раз удалять пробел, а второй цикл должен выполняться 8 раз и каждый раз добавлять пробел. Первое достигается путем его запуска 7 раз и проваливания в 8-й раз, в то время как второе достигается путем добавления двух пробелов и провала, чтобы удалить один из них снова.

— Нил
источник
4

PowerShell , 30 байт

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

Попробуйте онлайн!

Создает диапазон 8,7,6...2,1,0,1,2...8затем перебирает каждое число. Внутри цикла мы строим ряд 1..9сцепленных с 0затем -joinчислами в диапазоне вместе с соответствующим количеством пробелов. Каждая строка остается в конвейере, а вывод неявным при завершении программы.

— AdmBorkBork
источник
1
Хороший ответ! Powershell внезапно почувствовал себя сильнее в гольфе :)
— Мистер Xcoder
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.