18

^{Связанный: Давайте создадим цифровую мозаику , Print / Output L-phabet . Песочница пост здесь}

Учитывая 2 входа, C = columns and rows, S = starting pointвыведите матрицу следующим образом:

Input 4, 3

1   2   3   0
2   2   3   0
3   3   3   0
0   0   0   0

объяснение

Данный C = 4, S = 3

1) Создать C x Cматрицу, заполненную0

         4 columns
4     _____|____
     |          |
r  --0  0   0   0
o |  0  0   0   0
w |  0  0   0   0
s  --0  0   0   0

2) Заполните Sзначения в строке и столбце S, затем вычтите 1 из Sи повторяйте до S = 0. Этот случайS = 3

             Column 3 
S = 3           |
                v
        0   0   3   0
        0   0   3   0
Row 3-->3   3   3   0
        0   0   0   0


         Column 2
S = 2       |
            v
        0   2   3   0
Row 2-->2   2   3   0
        3   3   3   0
        0   0   0   0


     Column 1
S=1     |
        v
Row 1-->1   2   3   0
        2   2   3   0
        3   3   3   0
        0   0   0   0



Final Result

1   2   3   0
2   2   3   0
3   3   3   0
0   0   0   0

правила

Предполагать C >= S >= 0
Выходными данными могут быть матрица, список списков, массив (1-мерный или 2-мерный) и т. Д.
Вы можете принимать входные данные через любой формат ввода / вывода по умолчанию
Ваша программа, функция и т. Д. Могут быть 1-индексными или 0-индексированными. Пожалуйста, укажите, какой из них.

Примечание Объяснение 1-индексация

Критерии победы код-гольф

code-golf matrix

— Луис Фелипе Де Иисус Муньос
источник

6

Желе , 8 байт

»>⁴¬×»µþ

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

Как это устроено

Атом внешнего продукта желе ( þ)

Вы можете представить себе атом внешнего продукта Jelly þ, как быстрый (оператор), который при заданных целочисленных аргументах и (в данном случае ) создает следующую матрицу кортежей: $X$ $Y$ $X=Y=\text{first argument }$

[\begin{matrix} (1, 1) & (2, 1) & (3, 1) & \dots & (X, 1) \\ (1, 2) & (2, 2) & (3, 2) & \dots & (X, 2) \\ ⋮ & ⋮ & ⋮ & ⋱ & ⋮ \\ (1, Y) & (2, Y) & (3, Y) & \dots & (Икс, Y) \end{matrix}]

$\left[\begin{matrix} (1, 1) & (2, 1) & (3, 1) & \cdots & (X, 1) \\ (1, 2) & (2, 2) & (3, 2) & \cdots & (X, 2) \\ \vdots & \vdots & \vdots & \ddots & \vdots \\ (1, Y) & (2, Y) & (3, Y) & \cdots & (X, Y) \end{matrix}\right]$

Это также применяет ссылку прямо перед этим ко всем парам, давайте назовем это , которая ведет себя как функция, которая принимает два аргумента, производя что-то вроде этого: $\:f$

[\begin{matrix} f (1, 1) & f (2, 1) & f (3, 1) & \dots & f (X, 1) \\ f (1, 2) & f (2, 2) & f (3, 2) & \dots & f (X, 2) \\ ⋮ & ⋮ & ⋮ & ⋱ & ⋮ \\ f (1, Y) & f (2, Y) & f (3, Y) & \dots & f (X, Y) \end{matrix}]

$\left[\begin{matrix} f(1, 1) & f(2, 1) & f(3, 1) & \cdots & f(X, 1) \\ f(1, 2) & f(2, 2) & f(3, 2) & \cdots & f(X, 2) \\ \vdots & \vdots & \vdots & \ddots & \vdots \\ f(1, Y) & f(2, Y) & f(3, Y) & \cdots & f(X, Y) \end{matrix}\right]$

Какое это имеет отношение к поставленной задаче?

Это работает, замечая, что каждое значение в ожидаемом выводе является просто таблицей максимальных индексов, или если этот максимум превышает наш второй аргумент. Поэтому мы можем создать следующую ссылку для выполнения этого сопоставления: $0$

»>⁴¬×» – Dyadic (2-argument) link.
»      – Maximum of the X, Y coordinates.
 >⁴    – Check if this exceeds the second argument of the program.
   ¬   – Negate this boolean.
    ×» – And multiply by the maximum, computed again.

— Мистер Xcoder
источник

6

R , 47 41 байт

function(C,S,m=outer(1:C,1:C,pmax))m*!m>S

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

1-индексироваться. Генерирует выходные данные для S==C(без нулей), а затем обнуляет ячейки, которые имеют значение, >Sиспользуя умножение матриц (спасибо Giuseppe за 4 байта!).

— Jayce
источник

Ухоженная! умножение даст вам хороший пробег: 43 байта

— Джузеппе

@ Джузеппе, штат Техас! Мне удалось спасти еще двоих :)

— JayCe

5

Октава , 31 байт

@(C,S)(u=max(t=1:C,t')).*(u<=S)

Анонимная функция, которая возвращает матрицу. Использует индексирование на основе 1.

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

— Луис Мендо
источник

5

Haskell , 47 45 байт

^{-2 байта, изменяя формат вывода на одномерный список.}

c&s|x<-[1..c]=[sum[j|j<=s]|j<-x>>=(<$>x).max]

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

объяснение

Термин x >>= (<$> x) . maxявляется гольфовой версией

concat [ max i <$> x | i <- x ]

который оценивает [1,2,3,4..c, 2,2,3,4..c, 3,3,3,4..c, ..., c,c,c,c..c]. Теперь нам нужно только заставить значения, как 0только они превысят то, sчто мы достигаем sum [ j | j <= s].

— ბიმო
источник

5

APL (Dyalog Classic), 12 байт

{⍺ ⍺↑∘.⌈⍨⍳⍵}

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

Любые советы по превращению этого в поезд приветствуются.

— jslip
источник

Мой поезд длиннее на 2

— FrownyFrog

13 байтов

— FrownyFrog

3

APL (Дьялог) , 12 байт

o×⎕≥o←∘.⌈⍨⍳⎕

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

— Уриэль
источник

Будет o×⎕≥o←∘.⌈⍨⍳ли разрешено что-то подобное , или вам придется присвоить это функции, чтобы это считалось?

— Захари

@ Zacharý, я думаю, что нужно было бы поместить его в tradfn с аргументом или dfns

— Уриэль

3

JavaScript (ES6), 61 байт

Принимает ввод в синтаксисе карри (c)(s), где s индексируется 1. Возвращает одномерный массив.

c=>s=>[...Array(c*c)].map((_,k)=>(k=k%c>k/c?k%c:k/c)<s?-~k:0)

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

— Arnauld
источник

3

Желе , 6 байт

⁴Ri»µþ

Полная программа *, принимающая целые числа Cи Sпечатающая представление Jelly списка списков целых чисел, как определено (с 1 индексированием).

Попробуйте онлайн! (форматирует результат диады в виде сетки чисел для удобства чтения)

Как?

⁴Ri»µþ - Main Link: C, S
     þ - outer product with:
    µ  -   the monadic function (i.e. f(x,y) for x in [1..C] for y in [1..C]):
   »   -     maximum (of x and y)
⁴      -     program's 4th argument = 2nd input = S
 R     -     range = [1,2,3,...S]
  i    -     first index of (the maximum) in (the range) or 0 if not found
       - as a full program: implicit print

^{* Причина, по которой это полная программа, заключается в использовании доступа к аргументам программы ⁴. В качестве диадической ссылки этот код будет опираться на то, как программа, которая его использует, называется.

Повторно используемая диадическая ссылка в 8 байтов (с символом S слева и C справа):
многоразовая диадическая ссылка в 8 байтов (с символом C слева и S справа):RiⱮⱮ»þ`}
RiⱮⱮ⁹»þ¤}

— Джонатан Аллан
источник

2

Java 10, 88 байт

C->S->{var r=new int[C][C];for(;S>0;)for(int s=S--;s-->0;)r[S][s]=r[s][S]=S+1;return r;}

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

Объяснение:

C->S->{                     // Method with two int parameters and int-matrix return-type
  var r=new int[C][C];      //  Result-matrix of size `C` by `C`
  for(;S>0;)                //  Loop as long as `S` is not 0 yet:
    for(int s=S--;s-->0;)   //   Inner loop `s` in the range (`S`, 0]
                            //   (and decrease `S` by 1 in the process with `S--`)
      r[S][s]=r[s][S]=S+1;  //    Set the values at both {`S`,`s`} and {`s`,`S`} to `S+1`
  return r;}                //  Return the result

— Кевин Круйссен
источник

2

PHP , 92 байта

Это «1-индексирование».

<?list(,$c,$s)=$argv;for(;$i++<$c;print"\n")for($j=0;$j++<$c;)echo$s<$i||$s<$j?0:max($i,$j);

Чтобы запустить это:

php -n <filename> <c> <s>

Пример:

php -n collapsing_matrice.php 8 6

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

— night2
источник

2

Stax , 10 байт

▓╜.→,cΘ○╤æ

Запустите и отладьте его

Как это устроено:

R(Xm]i*xit+J Full program, implicit input.
R            1-based range of S
 (           Right-pad with zeroes to length C
  X          Save to X register
   m         Map (same as here):
    ]          Wrap in list
     i*        repeat by iteration index
       xit     Remove first  elements from X register
          +    Append
           J   Stringify each element, and join by space

— Wastl
источник

2

Excel VBA, 65 байт

Непосредственная оконная функция, которая принимает входные данные [A1:B1]и выводит их в диапазон [C1].Resize([A1],[A1]).

[C1].Resize([A1],[A1])=0:For s=-[B1]To-1:[C1].Resize(-s,-s)=-s:Next

Ввод, вывод

Вход находится в диапазоне [A1:B1]

— Тейлор Скотт
источник

2

J , 18 байт

,~@[{.[:>./~1+i.@]

Гораздо дольше, чем оба решения APL.

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

— Гален Иванов
источник

2

MATLAB, 58 байт (спасибо анонимному пользователю)

function o=f(c,s);o=zeros(c);for j=s:-1:1;o(1:j,1:j)=j;end

Просто заполняя элементы матрицы соответствующим номером, запустив цикл. Возможно, можно быть умнее сarrayfun

— ааааа говорит восстановить монику
источник

Вам не нужно называть функцию, и вы можете использовать, zeros(c)который сохраняет несколько байтов. Также вы видели этот ответ Octave, я думаю, он будет работать и в Matlab?

— მოიმო

@ OMᗺ Octave, вы не можете называть переменные внутри анонимных функций в Matlab. Кроме того, max()нужно принять аргументы одинаковой формы

— ааааа говорит восстановить Монику

1

Предлагается анонимный пользователь function o=f(c,s);o=zeros(c);for j=s:-1:1;o(1:s,1:s)=j;end.

— Джонатан Фрех

@JonathanFrech о, мой намного проще :-( просто нужно бытьo(1:j,1:j)=j

— ааааа говорит восстановить Монику

1

C # (.NET Core) , 85 байт

c=>s=>{var r=new int[c,c];for(;s>0;)for(int j=s--;j-->0;)r[s,j]=r[j,s]=s+1;return r;}

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

Порт ответа Кевина Круйссена , который был намного лучше моего.

— Чарли
источник

1

Python 2 , 58 байт

lambda C,S:[-~max(i%C,i/C)*(i%C<S>i/C)for i in range(C*C)]

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

Выводит 1D список длины C*C.

— Час Браун
источник

1

Уголь , 19 байт

Ｅθ⪫ＩＥＥθ⌈⟦ιλ⟧∧‹λη⊕λ

Попробуйте онлайн! Ссылка на подробную версию кода. 3 байта используются для преобразования выходных данных в десятичную и для удобного форматирования. Объяснение:

 θ                  Input `C`
Ｅ                   Map over implicit range
      θ             Input `C`
     Ｅ              Map over implicit range
          λ         Inner index
         ι          Outer index
       ⌈⟦  ⟧        Maximium
    Ｅ               Map over results
              λ     Current value
               η    Input `S`
             ‹      Less than
                 λ  Current value
                ⊕   Incremented
            ∧       Logical AND
   Ｉ                Cast to string
  ⪫                 Join with spaces
                    Implicitly print on separate lines

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

1

Чисто , 67 байт

import StdEnv
$n s=[[if(i>s||j>s)0(max i j)\\i<-[1..n]]\\j<-[1..n]]

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

Определяет $ :: Int Int -> [[Int]]предоставление ответа с использованием индексации на основе 1.

— Οurous
источник

1

Perl 6 , 37 байт

{((^$^c+1 Xmax^$c+1)Xmin$^s+1)X%$s+1}

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

Возвращает матрицу в виде одномерного массива.

— nwellnhof
источник

0

Mathematica 44 байта

Table[If[i <= s && j <= s, Max[i, j], 0], {i, c}, {j, c}]

— Аист аист
источник

Вы уверены, что пробел необходим? Я не могу проверить Mathematica, но я не думаю, что это так.

— Пшеница Волшебник

Разрушающиеся матрицы

Желе , 8 байт

Как это устроено

R , 47 41 байт

Октава , 31 байт

Haskell , 47 45 байт

объяснение

APL (Дьялог) , 12 байт

JavaScript (ES6), 61 байт

Желе , 6 байт

Как?

Java 10, 88 байт

PHP , 92 байта

Stax , 10 байт

Excel VBA, 65 байт

Ввод, вывод

J , 18 байт

MATLAB, 58 байт (спасибо анонимному пользователю)

C # (.NET Core) , 85 байт

Python 2 , 58 байт

Уголь , 19 байт

Чисто , 67 байт

Perl 6 , 37 байт

Mathematica 44 байта