18

^{ที่เกี่ยวข้อง: การออกแบบ Let 's หลักกระเบื้องโมเสค , พิมพ์ / Output L-phabet Sandbox โพสต์ที่นี่}

รับ 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

— Luis felipe De jesus Munoz
แหล่งที่มา

6

เยลลี่ขนาด 8 ไบต์

»>⁴¬×»µþ

ลองออนไลน์!

มันทำงานอย่างไร

อะตอมผลิตภัณฑ์ด้านนอกของเยลลี่ ( þ)

คุณสามารถนึกถึงอะตอมผลิตภัณฑ์ด้านนอกของเยลลี่ในþฐานะผู้ดำเนินการด่วนที่ได้รับอาร์กิวเมนต์จำนวนเต็มและ (ในกรณีนี้ ) จะสร้างเมทริกซ์ของ tuples ดังต่อไปนี้: $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 & (X, 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} ฉ (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 & ฉ (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 ไบต์

— จูเซปเป้

@Giuseppe tx! ผมสามารถที่จะบันทึกอีกสอง :)

— 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เมื่อพวกเขาเกินกว่าที่เราประสบความสำเร็จกับssum [ j | j <= s]

— ბიმო
แหล่งที่มา

5

APL (Dyalog Classic) ขนาด 12 ไบต์

{⍺ ⍺↑∘.⌈⍨⍳⍵}

ลองออนไลน์!

เคล็ดลับในการเปลี่ยนสิ่งนี้ให้เป็นรถไฟเป็นสิ่งที่น่ายินดี

— jslip
แหล่งที่มา

รถไฟของฉันยาวกว่า 2

— FrownyFrog

13 ไบต์

— FrownyFrog

3

APL (Dyalog)ขนาด 12 ไบต์

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

ลองออนไลน์!

— ยูเรียล
แหล่งที่มา

จะo×⎕≥o←∘.⌈⍨⍳อนุญาตให้บางสิ่งบางอย่างหรือคุณต้องมอบหมายให้ฟังก์ชั่นเพื่อที่จะนับ?

— Zacharý

@ Zachary คาดเดาของฉันเป็นที่หนึ่งจะต้องมีการใส่ไว้ใน tradfn ที่มีข้อโต้แย้งหรือ dfns

— ยูเรียล

3

JavaScript (ES6), 61 ไบต์

รับอินพุตในรูปแบบ currying (c)(s)โดยที่sถูกทำดัชนี 1 รายการ ส่งคืนอาร์เรย์ 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พิมพ์การแทนค่าเยลลี่ของรายการจำนวนเต็มตามที่กำหนดไว้ (1 ดัชนี)

ลองออนไลน์! (จัดรูปแบบผลลัพธ์ของ dyad เป็นตารางตัวเลขเพื่อให้อ่านง่ายขึ้น)

อย่างไร?

⁴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 รหัสนี้จะขึ้นอยู่กับว่าโปรแกรมที่ใช้มันถูกเรียกว่า

ลิงก์ dyadic ที่นำกลับมาใช้ใหม่ใน 8 ไบต์ (ใช้ S ทางด้านซ้ายและ C ทางด้านขวา):
ลิงก์ dyadic ที่นำมาใช้ซ้ำได้ใน 8 ไบต์ (การ C ทางด้านซ้ายและ S ทางด้านขวา):RiⱮⱮ»þ`}
RiⱮⱮ⁹»þ¤}

— Jonathan Allan
แหล่งที่มา

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

— Kevin Cruijssen
แหล่งที่มา

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]

— Taylor Scott
แหล่งที่มา

2

J , 18 ไบต์

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

นานกว่าโซลูชันทั้งสองของ APL

ลองออนไลน์!

— Galen Ivanov
แหล่งที่มา

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)ตู้นิรภัยบางไบต์ คุณเห็นด้วยคำตอบระดับแปดเสียงนี้ฉันคิดว่ามันจะทำงานใน Matlab ด้วยหรือไม่

— ბიმო

@ OMᗺคุณไม่สามารถตั้งชื่อตัวแปรภายในฟังก์ชันที่ไม่ระบุชื่อใน 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 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;}

ลองออนไลน์!

ท่าเรือแห่งคำตอบของKevin Cruijssenซึ่งดีกว่าของฉันมาก

— ชาร์ลี
แหล่งที่มา

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ของความยาว

— Chas Brown
แหล่งที่มา

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}

ลองออนไลน์!

ส่งคืนเมทริกซ์เป็นอาร์เรย์ 1 มิติ

— nwellnhof
แหล่งที่มา

0

Mathematica 44 ไบต์

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

— David G. Stork
แหล่งที่มา

คุณแน่ใจว่าช่องว่างจำเป็นหรือไม่? ฉันไม่สามารถทดสอบ Mathematica ได้ แต่ฉันไม่คิดว่าจะเป็น

— ข้าวสาลีตัวช่วยสร้าง

เมทริกซ์ยุบ

เยลลี่ขนาด 8 ไบต์

มันทำงานอย่างไร

R , 47 41 ไบต์

อ็อกเทฟ 31 ไบต์

Haskell , 47 45 ไบต์

คำอธิบาย

APL (Dyalog)ขนาด 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 ไบต์