젤리 , 8 바이트

»>⁴¬×»µþ

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

작동 원리

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

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

$X$와이

$Y$엑스= Y= 첫 번째 인수 

$X=Y=\text{first argument }$

$$\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$

$$\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

$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.

답변

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)