Вызов:

Возьмите список, L, содержащий положительные целые числа в качестве входных данных:

3 5 2 1 6

и создать матрицу, в которой n-й столбец содержит вектор 1: L (n) , где более короткие строки дополняются нулями.

Тестовые случаи:

3   5   2   1   6
-----------------
1   1   1   1   1
2   2   2   0   2
3   3   0   0   3
0   4   0   0   4
0   5   0   0   5
0   0   0   0   6

1
-
1

1   2   3   4   3   2   1
-------------------------
1   1   1   1   1   1   1
0   2   2   2   2   2   0
0   0   3   3   3   0   0
0   0   0   4   0   0   0

Правила:

Дополнительные форматы ввода и вывода
- Список списков является приемлемым форматом вывода
Матрица должна быть как можно меньше (вы не можете заполнить ее нулями больше, чем нужно)
Самый короткий код на каждом языке выигрывает
Пояснения приветствуются

code-golf matrix Стьюи Гриффин
источник

Можем ли мы вместо этого распределить диапазоны по горизонтали?

г-н Xcoder

Нет, они должны быть вертикальными. Если вы используете язык, где слова горизонтальный / вертикальный не имеют никакого значения, тогда это необязательно. (Может быть актуально для языков, где списки списков не связаны ни с горизонтальным, ни с вертикальным направлениями)

Стьюи Гриффин,

1

@StewieGriffin Какой нормальный язык не связывает измерения с вложенными списками?

Эрик Outgolfer

4

@EriktheOutgolfer, сколько безумных языков используется на этом сайте?

Стьюи Гриффин

2

@EriktheOutgolfer R для одного не видит матрицы как вложенный список, а скорее один длинный список, который оборачивается по строкам.

JAD

18

R , 40 38 байт

function(l)outer(m<-1:max(l),l,"<=")*m

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

Объяснение:

outerприменяет свой третий аргумент (функцию) ко всем комбинациям элементов своих первых двух аргументов, генерируя матрицу TRUEи FALSEгде каждый столбец имеет TRUEгде 1:max(l)меньше или равно соответствующему элементу l, например, где l=c(3,5,2,1,6):

      [,1]  [,2]  [,3]  [,4] [,5]
[1,]  TRUE  TRUE  TRUE  TRUE TRUE
[2,]  TRUE  TRUE  TRUE FALSE TRUE
[3,]  TRUE  TRUE FALSE FALSE TRUE
[4,] FALSE  TRUE FALSE FALSE TRUE
[5,] FALSE  TRUE FALSE FALSE TRUE
[6,] FALSE FALSE FALSE FALSE TRUE

Затем предположишь , полученную матрицу A, а затем A*m-> A[i,j]=A[i,j]*iкоторое принуждает TRUEк 1 и FALSEк 0, производя желаемый результат.

Giuseppe
источник

Я думаю - вы можете сэкономить 2 байта, заменив function(l)наl=scan();

AndriusZ

@AndriusZ, но тогда мне придется все обернуть, printчтобы я терял эти байты.

Джузеппе

Я думаю, вам не нужно все оборачивать - TOI

AndriusZ

2

@AndriusZ мы уже говорили об этом раньше. Единственный ответ на этот мета-вопрос дает штраф +4 за использование source(...,echo=TRUE)и чтение из stdin в качестве полной программы, если у вас есть альтернативное предложение, во что бы то ни стало взвесить, но, насколько я знаю, это самое близкое, что мы имеем до консенсуса R по полным программам, и это стоит на данный момент.

Джузеппе

Поздно к игре: сохраните два байта, используя [этот совет] ( codegolf.stackexchange.com/a/111578/80010 )

JayCe

7

MATL , 8 байт

"@:]Xho!

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

объяснение

"      % Implicit input, L. For each k in L
  @    %   Push k
  :    %   Range [1 2 ... k]
]      % End
Xh     % Collect all stack contents in a cell array
o      % Convert to double matrix. The content of each cell is
       % right-padded with zeros if needed
!      % Transpose. Implicitly display

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

6

Python 3 , 54 байта

lambda x:[[-~i*(i<a)for a in x]for i in range(max(x))]

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

Халвард Хаммель
источник

5

Mathematica, 20 байтов

PadRight@Range@#&

Содержит U + F3C7 (встроенная Transposeфункция Mathematica )

Попробуйте это на Wolfram Sandbox

использование

PadRight@Range@#&[{3, 5, 2, 1, 6}]

{
 {1, 1, 1, 1, 1},
 {2, 2, 2, 0, 2},
 {3, 3, 0, 0, 3},
 {0, 4, 0, 0, 4},
 {0, 5, 0, 0, 5},
 {0, 0, 0, 0, 6}
}

объяснение

PadRight@Range@#&

         Range@#    (* Generate {1..n} for all elements of input *)
PadRight@           (* Right-pad 0s so that all lists are equal length *)
                   (* Transpose the result *)

Юнг Хван Мин
источник

@ downvoters, почему downvotes? Не могли бы вы объяснить?

JungHwan Мин.

Я не понизил голос, но подозреваю, что это потому, что вам не хватает сигнатуры функции или ввода аргументов, что делает ваш фрагмент кода не черным ящиком!

sergiol

5

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

@(x)((y=1:max(x))'<=x).*y'

Анонимная функция, которая вводит вектор строки и выводит матрицу.

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

объяснение

Рассмотрим ввод x = [3 5 2 1 6]. Это вектор строки размером 1 × 5.

1:max(x)дает вектор строки [1 2 3 4 5 6], который назначен переменной y.

Транспонирование этого, то есть вектор столбца [1; 2; 3; 4; 5; 6], <=сравнивается (поэлементно с широковещательной передачей) со входом [3 5 2 1 6]. В результате получается матрица 6 × 5.

[1 1 1 1 1;
 1 1 1 0 1;
 1 1 0 0 1;
 0 1 0 0 1;
 0 1 0 0 1;
 0 0 0 0 1]

Наконец, умножение (поэлементно с трансляцией) на вектор столбца [1; 2; 3; 4; 5; 6], полученный как yтранспонированный, дает желаемый результат:

[1 1 1 1 1;
 2 2 2 0 2;
 3 3 0 0 3;
 0 4 0 0 4;
 0 5 0 0 5;
 0 0 0 0 6]

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

1

Я надеялся увидеть представление MATLAB / Octave. Я реализовал это, не задумываясь, так что, вероятно, это было больше, чем 40 байтов. Очень хорошее решение :)

Стьюи Гриффин

4

05AB1E , 4 байта

€L0ζ

Попробуйте онлайн! или как хорошо отформатированный набор тестов

€L   # For each: get the range 1..input
  0ζ # zip, padding with 0s

Райли
источник

3

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

Возвращает список списков

T0mḣ

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

объяснение

  m    Map over the input
   ḣ   Range from 1 to n
T0     Transpose, padding with 0s

H.PWiz
источник

3

Pyth , 6 байт

.tSMQZ

Попробуй это здесь! или Проверьте все контрольные примеры (с pretty-print)!

объяснение

.tSMQZ - Полная программа.

  SMQ - Получить включенные унарные диапазоны для каждого.
.t - Транспонирование, заполнение копиями ...
     Z - ... ноль.
         - Неявная печать.

Не встроенная транспонированная версия будет :

mm*hd<dkQeS

Это работает следующим образом:

mm*hd<dkQeS   - Full program.

m        eS   - Map over [0, max(input)) with a variable d.
 m      Q     - Map over the input with a variable k.
   hd         - d + 1.
  *           - Multiplied by 1 if...
     <dk      - ... d is smaller than k, else 0.
              - Output implicitly.

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

3

Желе , 3 байта

Rz0

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

объяснение

Rz0  Input: array A
R    Range, vectorizes to each integer
 z0  Transpose and fill with 0

миль
источник

3

На самом деле 17 байт

;M╗♂R⌠╜;0@α(+H⌡M┬

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

Объяснение:

;M╗♂R⌠╜;0@α(+H⌡M┬
;M╗                store the maximal element (M) of the input in register 0
   ♂R              range(1, n+1) for each n in input
     ⌠╜;0@α(+H⌡M   for each range:
      ╜;0@α          push a list containing M 0s
           (+        append to range
             H       take first M elements
                ┬  transpose

Mego
источник

Да, на самом деле на самом деле нужен почтовый индекс с поддержкой набивки ...

Эрик Outgolfer

2

Пайк , 3 байта

Это использует новую особенность Pyke, шестнадцатеричное кодирование ... Самое приятное, что мы связываем Jelly! Необработанные байты:

4D 53 AC

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

Эквивалент ASCII-Pyke будет 4 байта :

MS.,

Как?

4D 53 AC - Полная программа.

4D - Карта.
   53 - Включенный ассортимент.
      AC - Транспонировать с нулями.
           - Вывод неявно.

-------------------------------------

Ср., - полная программа.

М - Карта.
 S - Включенный ассортимент.
  ., - Транспонировать с нулями.
       - Вывод неявно.

Вот довольно печатная версия с ASCII, а вот с шестнадцатеричным кодированием.

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

2

Perl 6 , 39 байт

{zip (1 X..$_).map:{|@_,|(0 xx.max-1)}}

Попытайся

Expanded:

{                # bare block lambda with implicit parameter ｢$_｣

  zip

    (1 X.. $_)   # turn each input into a Range that starts with 1

    .map:        # map each of those Ranges using the following code

    {            # bare block lambda with implicit parameter ｢@_｣ 
                 # (｢@_｣ takes precedence over ｢$_｣ when it is seen)

      |@_,       # slip the input into a new list

      |(         # slip this into the list

        0        # a ｢0｣
        xx       # list repeated by

          .max   # the max of ｢$_｣ (implicit method call)
          - 1    # minus 1 (so that zip doesn't add an extra row)
      )
    }
}

Обратите внимание, что zipзаканчивается, когда исчерпан кратчайший список ввода.

Брэд Гилберт b2gills
источник

2

C # , 136 байт

Данные

Input Int32[] i Массив целых
Выходные данные Int32[,] Двумерный массив.

Golfed

i=>{int m=System.Linq.Enumerable.Max(i),l=i.Length,x,y;var o=new int[m,l];for(y=0;y<m;y++)for(x=0;x<l;)o[y,x]=i[x++]>y?y+1:0;return o;};

Ungolfed

i => {
    int
        m = System.Linq.Enumerable.Max( i ),
        l = i.Length,
        x, y;

    var o = new int[ m, l ];

    for( y = 0; y < m; y++ )
        for( x = 0; x < l; )
            o[ y, x ] = i[ x++ ] > y ? y + 1 : 0;

    return o;
};

Ungolfed читабельный

// Take an array of Int32
i => {

    // Store the max value of the array, the length and declare some vars to save some bytes
    int
        m = System.Linq.Enumerable.Max( i ),
        l = i.Length,
        x, y;

    // Create the bidimensional array to output
    var o = new int[ m, l ];

    // Cycle line by line...
    for( y = 0; y < m; y++ )

        // ... and column by column...
        for( x = 0; x < l; )

            // And set the value of the line in the array if it's lower than the the value at the index of the input array
            o[ y, x ] = i[ x++ ] > y ? y + 1 : 0;

    // Return the bidimentional array.
    return o;
};

Полный код

using System;
using System.Collections.Generic;

namespace TestBench {
    public class Program {
        // Methods
        static void Main( string[] args ) {
            Func<Int32[], Int32[,]> f = i => {
                int
                    m = System.Linq.Enumerable.Max( i ),
                    l = i.Length,
                    x, y;
                var o = new int[ m, l ];
                for( y = 0; y < m; y++ )
                    for( x = 0; x < l; )
                        o[ y, x ] = i[ x++ ] > y ? y + 1 : 0;
                return o;
            };

            List<Int32[]>
                testCases = new List<Int32[]>() {
                    new[] { 1, 2, 5, 6, 4 },
                    new[] { 3, 5, 2, 1, 6 },
                    new[] { 1, 2, 3, 4, 3, 2, 1 },
                };

            foreach( Int32[] testCase in testCases ) {
                Console.WriteLine( " INPUT: " );
                PrintArray( testCase );

                Console.WriteLine( "OUTPUT: " );
                PrintMatrix( f( testCase ) );
            }

            Console.ReadLine();
        }

        public static void PrintArray<TSource>( TSource[] array ) {
            PrintArray( array, o => o.ToString() );
        }
        public static void PrintArray<TSource>( TSource[] array, Func<TSource, String> valueFetcher ) {
            List<String>
                output = new List<String>();

            for( Int32 index = 0; index < array.Length; index++ ) {
                output.Add( valueFetcher( array[ index ] ) );
            }

            Console.WriteLine( $"[ {String.Join( ", ", output )} ]" );
        }

        public static void PrintMatrix<TSource>( TSource[,] array ) {
            PrintMatrix( array, o => o.ToString() );
        }
        public static void PrintMatrix<TSource>( TSource[,] array, Func<TSource, String> valueFetcher ) {
            List<String>
                output = new List<String>();

            for( Int32 xIndex = 0; xIndex < array.GetLength( 0 ); xIndex++ ) {
                List<String>
                    inner = new List<String>();

                for( Int32 yIndex = 0; yIndex < array.GetLength( 1 ); yIndex++ ) {
                    inner.Add( valueFetcher( array[ xIndex, yIndex ] ) );
                }

                output.Add( $"[ {String.Join( ", ", inner )} ]" );
            }

            Console.WriteLine( $"[\n   {String.Join( ",\n   ", output )}\n]" );
        }
    }
}

релизы

v1.0 - 136 bytes- Исходное решение.

Примечания

Никто

auhmaan
источник

1

C (gcc) , 142 байта

i,j,k;main(c,v)char**v;{for(;++i<c;k=k<*v[i]?*v[i]:k)printf("%c ",*v[i]);for(i=48;puts(""),i++<k;)for(j=1;j<c;)printf("%c ",i<=*v[j++]?i:48);}

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

cleblanc
источник

1

Java 10, 115 байт

a->{int l=a.length,m=0;for(int j:a)m=j>m?j:m;var r=new int[m][l];for(;l-->0;)for(m=0;m<a[l];r[m][l]=++m);return r;}

Объяснение:

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

a->{                  // Method with integer-array parameter and integer-matrix return-type
  int l=a.length,     //  Length of the array
      m=0;            //  Largest integer in the array, 0 for now
  for(int j:a)        //  Loop over the array
    m=j>m?            //   If the current item is larger than `m`:
       j              //    Set `m` to this item as new max
      :               //   Else:
       m;             //    Leave `m` the same
  var r=new int[m][l];//  Result-matrix of size `m` by `l`, filled with zeroes by default
  for(;l-->0;)        //  Loop over the columns
    for(m=0;m<a[l];   //   Inner loop over the rows
      r[m][l]=++m);   //    Set the cell at position `m,l` to `m+1`
  return r;}          //  Return the result-matrix

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

0

Perl 5 , 62 + 1 ( `-a`) = 63 байта

$,=$";map$m=$_>$m?$_:$m,@F;say map$_&&$_--&&$i,@F while$i++-$m

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

Xcali
источник

0

Протон , 38 байт

a=>[[i<j?-~i:0for j:a]for i:0..max(a)]

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

HyperNeutrino
источник

Дай угадаю, ошибка после пробела?

17

@cairdcoinheringaahing Да. Знак вопроса будет поглощать символ после него, чтобы убедиться, что это не другой знак вопроса, но я забыл компенсировать лишний символ, в результате чего он был пропущен.

HyperNeutrino

Кажется, вы получили тягу, теперь вы можете удалить уведомление :)

Эрик Outgolfer

0

Добавить ++ , 37 байт

D,g,@@*,bL_1+0XA$p$+bUp
L~*,€RAbM€gBc

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

Caird Coneheringaahing
источник

0

JavaScript (Node.js) , 55 байт

x=>f=(t=1,s,e=x.map(y=>y<t?0:s|=t))=>s?[e,...f(++t)]:[]

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

JavaScript (Node.js) , 63 байта

x=>[...Array(Math.max(...x,t=0))].map(_=>x.map(y=>y<t?0:t,++t))

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

l4m2
источник

Матрица с 1 по L (n), во всех n столбцах

Вызов:

Тестовые случаи:

Правила:

Ответы:

R , 40 38 байт

MATL , 8 байт

объяснение

Python 3 , 54 байта

Mathematica, 20 байтов

использование

объяснение

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

объяснение

05AB1E , 4 байта

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

объяснение

Pyth , 6 байт

объяснение

Желе , 3 байта

объяснение

На самом деле 17 байт

Пайк , 3 байта

Как?

Perl 6 , 39 байт

Expanded:

C # , 136 байт

Данные

Golfed

Ungolfed

Ungolfed читабельный

Полный код

релизы

Примечания

C (gcc) , 142 байта

Java 10, 115 байт

Perl 5 , 62 + 1 ( -a) = 63 байта

Протон , 38 байт

Добавить ++ , 37 байт

JavaScript (Node.js) , 55 байт

JavaScript (Node.js) , 63 байта

Perl 5 , 62 + 1 ( `-a`) = 63 байта