^{관련 : 하자의 디자인 숫자 모자이크 , 인쇄 / 출력합니다 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 차원) 등이 될 수 있습니다.
• 기본 I / O 형식을 통해 입력 할 수 있습니다
• 프로그램, 기능 등은 1 인덱싱 또는 0 인덱싱 일 수 있습니다. 어느 것을 지정하십시오.

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

승리 기준 코드 골프

답변

»>⁴¬×»µþ

»>⁴¬×» – 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.

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

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

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

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

{⍺ ⍺↑∘.⌈⍨⍳⍵}

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

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