範囲内のマトリックス

18

チャレンジ

以下のテストケースに示されているように、整数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-indexed）

出力は、マトリックス（テストケースに示されているように）またはリストのリストです。

code-golf  array-manipulation  matrix 

回答:

10

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}

オンラインでお試しください！

— ジュゼッペ
ソース
+1いいですね、私はアウターについて考えていましたが、そこにはまだ
— 到達し
7

Mathematica、61 46バイト

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

-15バイトの@alephalphaに感謝

— J42161217
ソース
ArrayFlatten@{{Array[+##-1&,{#,#}],2#},{2#,2#}}&
— -alephalpha
+##-1&ちょうどすること##-1&ができ、あなたは中置を使用することができますArray：ArrayFlatten@{{##-1&~Array~{#,#},2#},{2#,2#}}&
— -ngenisis
4

ゼリー、11バイト

+þḶ;€Ḥ;ḤzḤG

オンラインでお試しください！

— 漏れた修道女
ソース
G要件なしのバイトを1バイト
— ジョナサンアラン
外部製品の良い使用
— ザカリー
@JonathanAllan別のソリューションを使用してい;€ḤZ;€Ḥます...
— リーキー修道女
...さらにもう1つはḶ;Ḥ©µ+þ‘«®; p
— ジョナサンアラン
1
@JonathanAllanと別の使用+€Ḷ;Ḥṁ€;€Ḥ：p
— エリック・ザ・アウトゴルファー
4

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>
スニペットを展開

— ニール
ソース
4

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に感謝
— ヤコブ
ソース
atを開始i=0して置くこと++で1バイトをゴルフでき[c=i++%p]ます。
— ケビンCruijssen
3

パイソン2、64の 62 61バイト

Xcoder氏のおかげで-3バイト。

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)]

オンラインでお試しください！

— 完全に人間
ソース
1
いつものように、*(n+1)です*-~n。
— ミスターXcoder
1
— 氏Xcoder
あなたもPythonの3バージョンを採用したい場合は、私が得ることができる最短は64バイトである
— 氏Xcoder
76バイトバージョンは72バイトに
— ハルバードフンメル
2

R、54 63 67バイト

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

オンラインでお試しください！

sapplyと9バイトのポインタを提供してくれた@Guiseppeに感謝

— ミッキー
ソース
実際、このアプローチも改善できsapply(1:n-1,'+',1:n)ますが、使用するよりも1バイト多くなりますouter（引用符は明らかに逆ティックです）
— ジュゼッペ
1
\`バックティックで区切られたコードブロックでバックティックをエスケープするために動作します@Giuseppe
— チョイス
1

ローダ、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    */
— フェルガス
ソース
1

> <>、84 + 2バイト

-vフラグの場合は+2

値の間にタブを、行の間に改行を付けて印刷します。また、最後の行に末尾のタブを印刷します。

オンラインで試す

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

プレゴルフ

1>:r:&r&)?\0>    :r:&r&(?\~$:@2*nao1+\
            \+1o9n+@:$@:$/
 \                                   /
          \~0>:r:&r&)?;$:@2*n9o1+\
             \                   /
— サーシャ
ソース
0

Clojure、153 135バイト

リストのリスト？イェイ、Lisp

(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))))

ゴルフをしていない：

(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)]
— ジョシュア
ソース
0

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
— エミグナ
ソース
0

J、29バイト

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

食べない

(}:@(] [\ 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

オンラインでお試しください！

— ヨナ
ソース
ああ、私のAPLの答えとあなたの答えは同じバイト数です！説明を追加してください。
— ザカリー
@Zacharý、更新。ちなみに、これはおそらく私のような誰かが少なくとももう少しゴルフをする可能性があり、Jの専門家がさらに10バイト以上追加する可能性があります。
— ジョナ
0

実際には、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
— メゴ
ソース
0

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
— クリス
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.