18

주어진 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 차원) 등이 될 수 있습니다.
기본 I / O 형식을 통해 입력 할 수 있습니다
프로그램, 기능 등은 1 인덱싱 또는 0 인덱싱 일 수 있습니다. 어느 것을 지정하십시오.

참고 설명은 1- 인덱싱입니다

승리 기준 코드 골프

code-golf matrix

— 루이스 브리아 드 예수 무 노즈
소스

6

젤리 , 8 바이트

»>⁴¬×»µþ

온라인으로 사용해보십시오!

작동 원리

젤리의 외부 제품 원자 ( þ)

Jelly의 외부 곱 원자 인을 þ정수 인수 와 (이 경우 )가 주어지면 다음과 같은 튜플 행렬을 생성 하는 빠른 (연산자) 라고 생각할 수 있습니다 . $X$ $Y$ $X=Y=\text{first argument }$

[\begin{matrix} (1, 1) & (2, 1) & (삼, 1) & \dots & (엑스, 1) \\ (1, 2) & (2, 2) & (삼, 2) & \dots & (엑스, 2) \\ ⋮ & ⋮ & ⋮ & ⋱ & ⋮ \\ (1, 와이) & (2, 와이) & (삼, 와이) & \dots & (엑스, 와이) \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} 에프 (1, 1) & 에프 (2, 1) & 에프 (삼, 1) & \dots & 에프 (엑스, 1) \\ 에프 (1, 2) & 에프 (2, 2) & 에프 (삼, 2) & \dots & 에프 (엑스, 2) \\ ⋮ & ⋮ & ⋮ & ⋱ & ⋮ \\ 에프 (1, 와이) & 에프 (2, 와이) & 에프 (삼, 와이) & \dots & 에프 (엑스, 와이) \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(0이 아님)에 대한 출력을 생성 한 다음 >S행렬 곱셈을 사용하여 값이있는 셀을 0으로 만듭니다 (4 바이트에 대해 Giuseppe에게 감사합니다!).

— JayCe
소스

산뜻한! 곱셈은 당신에게 좋은 마일리지를 줄 것입니다 : 43 바이트

— Giuseppe

트윗 담아 가기 나는 두 가지를 더 구할 수 있었다 :)

— JayCe

5

옥타브 , 31 바이트

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

행렬을 반환하는 익명 함수 1 기반 인덱싱을 사용합니다.

온라인으로 사용해보십시오!

— 루이스 멘도
소스

5

하스켈 , 47 45 바이트

^{출력 형식을 1 차원 목록으로 변경하여 -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한 값을 초과 하면 값을 강제로 설정하면됩니다 .ssum [ j | j <= s]

— ბიმო
소스

5

APL (Dyalog Classic), 12 바이트

{⍺ ⍺↑∘.⌈⍨⍳⍵}

온라인으로 사용해보십시오!

이것을 열차로 바꾸는 데 필요한 정보는 바로 welocome입니다.

— jslip
소스

내 기차는 2

— 시까 지

13 바이트

— FrownyFrog

3

APL (Dyalog) , 12 바이트

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

온라인으로 사용해보십시오!

— 우리엘
소스

o×⎕≥o←∘.⌈⍨⍳허용되는 것과 같은 것이 있습니까, 아니면 계산하기 위해 함수에 할당해야합니까?

— Zacharý

@ Zacharý 내 추측은 논쟁이나 dfns와 함께 tradfn 안에 넣어야 할 것입니다

— Uriel

3

자바 스크립트 (ES6), 61 바이트

태닝 구문 입력을 받아 (c)(s), s는 1 인덱스이다. 1 차원 배열을 반환합니다.

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

온라인으로 사용해보십시오!

— 아르나 울드
소스

3

젤리 , 6 바이트

⁴Ri»µþ

전체 프로그램 * 촬영 정수 C및 S정의 정수리스트의리스트의 젤리 표현을 출력 (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

^{* 이것이 전체 프로그램 인 이유는 프로그램 인수 액세스를 사용하기 때문입니다 ⁴. Dyadic 링크로서이 코드는 그것을 사용하는 프로그램이 어떻게 호출되는지에 의존합니다.

8 바이트 단위로 재사용 할 수있는 2 차원 링크 (왼쪽에서 S, 오른쪽으로 C를 표시) :
8 바이트 단위로 재사용 할 수있는 2 차원 링크 (왼쪽에 C, 오른쪽에 S)RiⱮⱮ»þ`}
RiⱮⱮ⁹»þ¤}

— 조나단 앨런
소스

2

자바 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

— aaaaa 말한다 모니카 복원
소스

함수의 이름을 지정할 필요가 없으며 zeros(c)어떤 바이트를 안전하게 사용할 수 있습니다 . 또한 이 Octave 답변을 보았는데 Matlab에서도 작동한다고 생각하십니까?

— ბიმო

@ OMᗺ Octave에서는 matlab에서 익명 함수 내의 변수 이름을 지정할 수 없습니다. 또한, max()같은 모양의 인수를해야합니다

— AAAAA는 분석 재개 모니카 말한다

1

익명 사용자가 제안했습니다 function o=f(c,s);o=zeros(c);for j=s:-1:1;o(1:s,1:s)=j;end.

— Jonathan Frech

오 @JonathanFrech 내 훨씬 간단 :-( 단지 필요가되게합니다o(1:j,1:j)=j

— AAAAA 모니카 복원 말한다

1

C # (. NET 코어) , 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;}

온라인으로 사용해보십시오!

Kevin Cruijssen의 답변 포트는 내 것보다 훨씬 낫습니다.

— 야경
소스

1

파이썬 2 , 58 바이트

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

온라인으로 사용해보십시오!

length의 1D리스트를 출력합니다 C*C.

— 차스 브라운
소스

1

숯 , 19 바이트

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

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 출력을 10 진수로 변환하고 멋지게 형식화하는 데 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 기반 색인을 사용하여 답을주고.

— 뇨
소스

1

펄 6 , 37 바이트

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

온라인으로 사용해보십시오!

행렬을 1 차원 배열로 반환합니다.

— 엔웰 호프
소스

0

매스 매 티카 44 바이트

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

— 데이비드 지 황새
소스

공백이 필요하다고 확신합니까? 나는 Mathematica를 테스트 할 수는 없지만 그것이 있다고 생각하지 않습니다.

— 밀 마법사

무너지는 매트릭스

젤리 , 8 바이트

작동 원리

R , 47 41 바이트

옥타브 , 31 바이트

하스켈 , 47 45 바이트

설명

APL (Dyalog) , 12 바이트

자바 스크립트 (ES6), 61 바이트

젤리 , 6 바이트

어떻게?

자바 10, 88 바이트

PHP , 92 바이트

Stax , 10 바이트

Excel VBA, 65 바이트

입출력

J , 18 바이트

MATLAB, 58 바이트 (익명 사용자에게 감사)

C # (. NET 코어) , 85 바이트

파이썬 2 , 58 바이트

숯 , 19 바이트

클린 , 67 바이트

펄 6 , 37 바이트

매스 매 티카 44 바이트