При заданных натуральных числах и h выведите w столбцов и h строк текста, как описано ниже.$w$$h$$w$$h$

Первый ряд начинается с 11 0с, второй ряд - с 10 1с, третий - с 9 2с и т. Д. До десятого ряда с двумя 9с. В каждой из этих первых десяти строк после начального ряда последовательных цифр следующая младшая цифра появляется два раза, прежде чем вторая следующая младшая цифра появляется два раза, причем этот шаблон повторяется вечно. Если происходит 0s, цифры после него всегда 9s.

Ряды ниже десятого ряда такие же, как ряд непосредственно над ним, но смещены вправо на один. Новая появившаяся цифра совпадает с предыдущей самой левой цифрой, если она не была рядом с другим экземпляром самого себя. В противном случае это следующая наивысшая цифра (цикл от 9 до 0).

Первые элементов являются следующими:$11\times10$

00000000000
11111111110
22222222211
33333333221
44444443322
55555544332
66666554433
77776655443
88877665544
99887766554

Вот изображение с цветным текстом, чтобы сделать рисунок более четким.

Если вам нужно создать меньше столбцов / строк, вам нужно просто обрезать текст выше.

Если вам нужно создать больше столбцов / строк, чем это, существующие лестницы должны быть расширены. Если больше столбцов / строк добавляет новые последовательности последовательных цифр, цифры должны циклически выбираться из целых чисел. Таким образом, для входа выход должен быть$(15,13)$

000000000009988
111111111100998
222222222110099
333333332211009
444444433221100
555555443322110
666665544332211
777766554433221
888776655443322
998877665544332
099887766554433
009988776655443
100998877665544

Вот изображение этого текста с цветом:

правила

• Вывод можно дать любым удобным способом .
• Либо полная программа или функция приемлемы. Если функция, вы можете вернуть вывод, а не распечатать его.
• Вы можете вернуть список строк, если хотите.
• Вы можете вернуть двумерный массив цифр или список списков цифр, если хотите.
• Стандартные лазейки запрещены.

Самый короткий код выигрывает.

Контрольные примеры

$(w,h)$

1,1
0


3,2
000
111

20,1
00000000000998877665

11,10
00000000000
11111111110
22222222211
33333333221
44444443322
55555544332
66666554433
77776655443
88877665544
99887766554

15,13
000000000009988
111111111100998
222222222110099
333333332211009
444444433221100
555555443322110
666665544332211
777766554433221
888776655443322
998877665544332
099887766554433
009988776655443
100998877665544

Python 3, 94 93 78 77 74 байта

lambda x,y:[[[(j-i+10)//2%10,j][j+i<9]for i in range(x)]for j in range(y)]

-1 байт от Dylnan

-15 байт, возвращая список списков вместо печати из xnor

-1 байт, переключая порядок (j-i+10)//2%10и jчасти if-else

-3 байта от Джо Кинга путем изменения if- elseв список.

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

C (gcc) , 101 100 99 байтов

• Сохраненный байт благодаря pizzapants184 .
• Сохраненный байт.

s,t;a(i,r){for(t=~0;++t<r;puts(""))for(s=0;s<i;putchar(48+(t+(s>10-t)*(10*s+9-(s+++t-11)/2))%10));}

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

Холст, 14 байтов

［⁷｛¹∔⁶＋»¹ｍ◂＠］］

Попробуй это здесь!

Делая это, я заметил, что в нескольких местах у меня были отрицательные модули в Canvas (здесь это означало, что »- floor div 2 - округлено до 0). Предыдущий 18-байтный ответ, который работал без исправлений, больше не работает (потому что я сохраняю только main.jsмежду версиями), но у TIO все еще есть старая версия

Объяснение:

[            ]  for 1..input
 ⁷{         ]     for 1..2nd input
   ¹∔               subtract from this loop counter the outer loops one
     ⁶+             add 12
       »            divide by 2, rounded to -∞
        ¹m          minimum of that & the outer loops counter
          ◂@        in the string "0123456789", get the xth char, 1-indexed

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

Ｅη⭆θ﹪⌊⟦ι÷⁺⁻ιλχ²⟧χ

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

 η                  Height
Ｅ                   Map over implicit range
   θ                Width
  ⭆                 Map over implicit range and join
          ⁻ιλ       Subtract column from row
         ⁺   χ      Add 10
        ÷     ²     Integer divide by 2
       ι            Current row
     ⌊⟦        ⟧    Take the minimum
    ﹪           χ   Modulo by 10
                    Implicitly print each row on its own line

Изменить: 3 байта сохранены путем переключения на алгоритм @ dzaima.

Желе , 14 байт

_@þ:2+6«"J$’%⁵

$w$$h$

Попробуйте онлайн!Или посмотрите (постформатированный) набор тестов .

Как?

_@þ:2+6«"J$’%⁵ - Link: integer w, integer h
  þ            - outer product using (i.e. [[f(i,j) for i in 1..w] for j in 1..h]):
_@             -   subtraction with swapped arguments (i.e. f(i,j): j-i)
               -   e.g. the 4th row is [3, 2, 1, 0,-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,...]
   :2          - integer divide by two (vectorises)
               -                       [1, 1, 0, 0,-1,-1,-2,-2,-3,-3,-4,-4,-5,-5,-6,...]
     +6        - add six (vectorises)
               -                       [7, 7, 6, 6, 5, 5, 4, 4, 3, 3, 2, 2, 1, 1, 0,...]
          $    - last two links as a monad:
         J     -   range of length -> [1,2,3,...,h]
        "      -   zip with:
       «       -     minimum (vectorises)
               -                       [4, 4, 4, 4, 4, 4, 4, 4, 3, 3, 2, 2, 1, 1, 0,...]
           ’   - decrement (vectorises)
               -                       [3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 1, 1, 0, 0,-1,...]
             ⁵ - literal ten
            %  - modulo (vectorises)
               -                       [3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 1, 1, 0, 0, 9,...]

Котлин , 78 байт

{w:Int,h:Int->List(h){r->List(w){c->if(c<11-r)r%10
else(r+9*((c-9+r)/2))%10}}}

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

Желе , 19 байт

Использует очень похожий подход к пицце и Нейлу . Сохранено 1 байт благодаря Джонатану Аллану .

p’Ḣ_/HḞ+ʋS<9Ɗ?€5s%⁵

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

Вспомогательная ссылка

_/HḞ+5

Это монадическая ссылка (эквивалент Jelly функции с одним аргументом), которая может быть вызвана из следующей ссылки с помощью быстрой Ç. Он принимает список из двух целых чисел и выполняет следующие действия:

_/

Уменьшить вычитанием.

HḞ+5%⁵

Положите половину целого числа и добавьте 5, затем возьмите по модулю 10.

Основная ссылка

p’ḢÇS<9Ɗ?€s

ç$x$$y$

p’

$1$$([0, x)\cap \mathbb{Z}) \times ([0, y)\cap \mathbb{Z})$

S<9Ɗ?€

А для каждой пары в декартовом произведении, если их сумма меньше 9, то:

Ḣ

Получить голову пары (первый элемент). В противном случае,

Ç

Назовите вспомогательную ссылку (объясненную выше) на паре.

s%⁵

Наконец, разделите полученный список на куски длины $y$ и возьми каждый мод 10.