ความท้าทาย

รับn>0เอาท์พุทจำนวนเต็มn+1 X n+1เมทริกซ์ที่มีจำนวนเต็มทั้งหมดจาก1ไป2nตามที่แสดงในการทดสอบกรณีร้อง

กรณีทดสอบ

n=1  

1  2  
2  2

n=2

1   2   4  
2   3   4  
4   4   4

n=5  

1   2   3   4   5   10  
2   3   4   5   6   10  
3   4   5   6   7   10   
4   5   6   7   8   10  
5   6   7   8   9   10  
10  10  10  10  10  10  

n=10  

1   2   3   4   5   6   7   8   9   10  20  
2   3   4   5   6   7   8   9   10  11  20  
3   4   5   6   7   8   9   10  11  12  20  
4   5   6   7   8   9   10  11  12  13  20  
5   6   7   8   9   10  11  12  13  14  20  
6   7   8   9   10  11  12  13  14  15  20  
7   8   9   10  11  12  13  14  15  16  20  
8   9   10  11  12  13  14  15  16  17  20  
9   10  11  12  13  14  15  16  17  18  20  
10  11  12  13  14  15  16  17  18  19  20  
20  20  20  20  20  20  20  20  20  20  20  

ฉันคิดว่ารูปแบบนั้นค่อนข้างง่ายดังนั้นเรามาดูกันว่าใครจะให้คำตอบสั้นที่สุดเป็นไบต์
นี่คือรหัสกอล์ฟ

กฎระเบียบ

ข้อมูลที่ป้อนต้องเป็นจำนวนเต็ม ( ดัชนี 1 รายการ )

เอาต์พุตสามารถเป็นเมทริกซ์ (ดังแสดงในกรณีทดสอบ) หรือรายการ

R , 53 ไบต์

function(n)rbind(cbind(outer(1:n,1:n,`+`)-1,2*n),2*n)

ใช้outer"ผลิตภัณฑ์" เพื่อสร้างผลรวมทั้งหมดของช่วง1,...,nเป็นเมทริกซ์หัก1ออกจากกันแล้วbinds 2*nเป็นคอลัมน์ด้านขวาและแถวที่ด้านล่างเป็นรีไซเคิลตามความจำเป็นและผลตอบแทนเมทริกซ์เป็นผล

ลองออนไลน์!

R , 78 ไบต์

ใช้งานไร้เดียงสามากขึ้น

function(n){m=matrix(2*n,n+1,n+1)
for(i in seq(n))m[1:n,i]=(0:(2*n))[1:n+i]
m}

ลองออนไลน์!

Mathematica, 61 46 ไบต์

ArrayFlatten@{{##-1&~Array~{#,#},2#},{2#,2#}}&

thanx @alephalpha สำหรับ -15 ไบต์

MATL , 12 10 ไบต์

:&+q,!GEYc

ลองออนไลน์!

คำอธิบาย

:       % Input n (implicit). Push range [1 2 ... n]
&+      % matrix of pairwise additions
q       % Subtract 1
,       % Do twice
  !     %   Transpose
  GE    %   Push 2*n
  Yc    %   Concatenate that value to all rows, thus extending the matrix
        % End (implicit). Display (implicit)

Haskell , 48 ไบต์

f n=[[i..n-1+i]++[2*n]|i<-[1..n]]++[2*n<$[0..n]]

ลองออนไลน์!

คู่, 38 37 35 ไบต์

@(n)[(x=1:n)+x'-1 z=~x'+2*n;z' 2*n]

ลองออนไลน์!

หรือ

@(n)~(k=blkdiag((x=1:n)+x'-1,0))*2*n+k

ลองออนไลน์!

เยลลี่ 11 ไบต์

+þḶ;€Ḥ;ḤzḤG

ลองออนไลน์!

JavaScript (ES6), 64 ไบต์

f=
n=>[...Array(n+1)].map((_,i,a)=>a.map((_,j)=>n-i&&n-j?i-~j:n+n))

<input type=number min=0 oninput="t.innerHTML=f(+this.value).map(a=>`<tr>${a.map(b=>`<td>${b}</td>`).join``}</tr>`).join``"><table id=t>

Java 8, 99 ไบต์

แลมบ์ดาจากIntegerไปถึงint[][](เช่นFunction<Integer, int[][]>) ทนทานต่อการตีกอล์ฟได้อย่างน่าประหลาดใจ

n->{int p=n+1,o[][]=new int[p][p],i=0,r,c;while(i<p*p)o[r=i/p][c=i++%p]=r<n&c<n?r-~c:2*n;return o;}

ลองใช้ออนไลน์

แลมบ์ดา

n -> {
    int
        p = n + 1,
        o[][] = new int[p][p],
        i = 0,
        r, c
    ;
    while (i < p * p)
        o[r = i / p][c = i++ % p] =
            r < n & c < n ?
                r - ~c
                : 2 * n
        ;
    return o;
}

กิตติกรรมประกาศ

• -1 ไบต์ต้องขอบคุณ Kevin Cruijssen

Python 2 , 64 62 61 ไบต์

-3 ไบต์ขอบคุณ Mr. Xcoder

lambda n:[range(i+1,i-~n)+[n*2]for i in range(n)]+[[n*2]*-~n]

ลองออนไลน์!

ฉันอาจจะขาดรูปแบบที่สำคัญ

Python 2 , 76 ไบต์

lambda n:[[[n*2,i-~j][n-i and n-j>0]for j in range(n+1)]for i in range(n+1)]

ลองออนไลน์!

Pyth , 18 ไบต์

+m+rd+QdyQSQ]*]yQh

บางทีฉันอาจจะขาดรูปแบบที่ชัดเจน (cc @totallyhuman ) ...

ชุดทดสอบ

ชุดทดสอบ "Pretty print"

โปรตอน ,  48  44 ไบต์

-4 ไบต์ขอขอบคุณ @tallynhuman!

n=>[(i+1..i-~n)+[n*2]for i:0..n]+[[n*2]*-~n]

ลองออนไลน์!

R , 54 63 67ไบต์

function(n)cbind(rbind(sapply(1:n-1,'+',1:n),2*n),2*n)

ลองออนไลน์!

ขอขอบคุณ @Guiseppe สำหรับตัวชี้สำหรับ sapply และ 9 ไบต์

Japtap , 17 16 ไบต์

õ_óU pU*2ÃpUô@*2

ลองออนไลน์!

Recursivaขนาด 50 ไบต์

• สั้นกว่างูใหญ่เพียง 10 ไบตเท่านั้นจึงเป็นทางการ Recursiva ไม่ใช่ภาษากอล์ฟเลย ... มันเป็น esolang : D

|{Ba+++++'PJ"	"W+Z~}B+~}'Va'+}'Va'AD'VaJ"	"W*;aADa

ลองออนไลน์!

C (gcc) , 119 116 115 107 ไบต์

i,j;f(n){for(;j<n;j++,printf("%d\n",2*n))for(i=0;i++<n;printf("%d\t",j+i));for(;j=i--;printf("%d\t",n*2));}

ลองออนไลน์!

Röda , 44 ไบต์

f n{seq 1,n|[[seq(_,_1+n-1)]+2*n];[[2*n]*n]}

ลองออนไลน์!

คำอธิบาย:

f n{seq 1,n|[[seq(_,_1+n-1)]+2*n];[[2*n]*n]}
f n{                                       } /* Function f(n)         */
    seq 1,n                                  /* Sequence 1..n         */
           |                                 /* For each _1:          */
              seq(_,_1+n-1)                  /*   Sequence _1.._1+n-1 */
             [             ]                 /*   As list             */
                            +2*n             /*   Append 2*n          */
            [                   ]            /*   Push to the stream  */
                                   [2*n]     /* List [2*n]            */
                                        *n   /* Multiplied by n       */
                                  [       ]  /* Push to the stream    */

Dyalog APL ขนาด 29 ไบต์

ต้องใช้ ⎕IO←0

{(S,⍨1+¯1 ¯1↓∘.+⍨⍳⍵+1)⍪S←2×⍵}

ลองออนไลน์!

อย่างไร?

• 1+¯1 ¯1↓∘.+⍨⍳⍵+1 ส่วนบนซ้ายของอาร์เรย์
• (S,⍨...)⍪S←2×⍵ มุม

> <>, 84 + 2 ไบต์

+2 สำหรับแฟล็ก -v

พิมพ์ด้วยแท็บระหว่างค่าและบรรทัดใหม่ระหว่างแถว พิมพ์แท็บต่อท้ายที่บรรทัดสุดท้ายด้วย

ลองออนไลน์

1:r:&r&)?\0:r:&r&(?\~$:@2*nao1+!
a0./:r:0~<.17+1o9\ \$:@$:@+n9o1+
   \&r&)?;$:@2*n /

Pre-การเล่นกอล์ฟ

1>:r:&r&)?\0>    :r:&r&(?\~$:@2*nao1+\
            \+1o9n+@:$@:$/
 \                                   /
          \~0>:r:&r&)?;$:@2*n9o1+\
             \                   /

SOGL V0.12 , 22 ไบต์

∫HA.∫a+}.«¹}¹.I.«r∙rο+

ลองที่นี่!
ปล่อยเอาต์พุตบนสแต็กซึ่งคุณสามารถดูในคอนโซล

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

R+’r@R;€Ḥz0;€Ḥ

ลองออนไลน์!

Perl 5 , 56 ไบต์

$,=$";say($_..$_+$"-1,$"*2)for 1..($"=<>);say(($"*2)x$")

ลองออนไลน์!

Kotlin , 59 ไบต์

Array(n+1){c->Array(n+1){r->when(n){c,r->n*2;else->1+c+r}}}

ลองออนไลน์

Clojure, 153 135 ไบต์

รายการรายการ? ยายเสียงกระเพื่อม

(fn[n](loop[r[] i 0 d (* 2 n)](if(= i n)(conj r(conj(repeat n d)d))(recur(conj r(conj(vec(map #(+ i %)(range 1(inc n))))d))(inc i)d))))

Ungolfed:

(defn a[n]
  (loop [r[] i 0 d (* 2 n)]
    (if(= i n)
      (conj r(conj(repeat n d)d))
      (recur
        (conj r
            (conj (vec (map #(+ i %)(range 1(inc n)))) d))
        (inc i)
        d))))

ฟังก์ชันไม่ระบุชื่อที่รับอินพุตเป็นอาร์กิวเมนต์และส่งคืนรายการของรายการ

ผลลัพธ์ของ n = 5:

[[1 2 3 4 5 10] [2 3 4 5 6 10] [3 4 5 6 7 10] [4 5 6 7 8 10] [5 6 7 8 9 10] (10 10 10 10 10 10)]

05AB1E , 17 ไบต์

FLN+I·¸«ˆ}·¸I>.׈

ลองออนไลน์!

คำอธิบาย

F                   # for N in [0 ... input-1]
 L                  # push range [1 ... input]
  N+                # add N to each
    I·¸«            # append input*2
        ˆ           # add to global list
         }          # end loop
          ·¸        # push [input*2]
            I>.×    # repeat it input+1 times
                ˆ   # add to global list
                    # implicitly output global list

J, 29 ไบต์

(}:@(][\1+i.@+:),]#+:),.>:#+:

ungolfed

(}:@(] [\ 1+i.@+:) , ]#+:) ,. >:#+:

คำอธิบาย

(}:@(] [\ 1+i.@+:)                   NB. make the inner part of the matrix
          1+i.@+:                      NB. 1..2*n, where n is the input
    (] [\ 1+i.@+:)                     NB. fork: infixes (sliding window) of length n, over 1..2*n
(}:@                                   NB. remove last element
                   , ]#+:)           NB. add a row of 2*n to the end
                           ,. >:#+:  NB. add a column of 2*n to entire result above

ลองออนไลน์!

ที่จริงแล้ว 23 ไบต์

;;Rnkp@;r♀+@;τ;(♀q)@α@q

ลองออนไลน์!

คำอธิบาย:

;;Rnkp@;r♀+@;τ;(♀q)@α@q
;;                       two copies of input
  R                      range(1, input+1)
   n                     copy input times
    kp@                  push stack to list, remove first element
       ;r                push range(input)
         ♀+              pairwise addition (add the value in the range to each value in the corresponding list)
           @;            duplicate input again
             τ;          input*2, duplicate that
               (♀q)      append input*2 to each list
                   @α@q  append a row of input*2

Clojure v1.8, 97 ไบต์

#(conj(mapv(fn[i](conj(vec(range i(+ % i)))(* 2 %)))(range 1(inc %)))(vec(repeat(inc %)(* 2 %))))

ลองออนไลน์!

คำอธิบาย

(range 1(inc %))                           Numbers from 1 to 'n'
(mapv ... (range 1(inc %)))                For each one of these numbers
(fn[i](conj(vec(range i(+ % i)))(* 2 %)))  Create the numbers from 'i' to (n+i-1), convert to vector and insert '2*n' to the vector
#(conj ... (vec(repeat(inc %)(* 2 %))))    Insert to the previous vector a vector of repeated '2*n's

Fortran (GFortran) , 93 , 82 ไบต์

SUBROUTINE M(n)
PRINT*,(CHAR(10),(i-1+j,i=1,n),2*n,j=1,n)
PRINT*,(2*n,j=1,n+1)
END

ลองออนไลน์!