주어진 n=m^2정수 m x m그리드를 경계로하지 않는 정수 목록을 반환합니다 1 to n.

예

n = 1 (m = 1)

그리드:

[1]

반환:

[]

n = 4 (m = 2)

그리드:

[1,2]
[3,4]

반환:

[]

n = 9 (m = 3)

그리드:

[1,2,3]
[4,5,6]
[7,8,9]

반환:

[5]

n = 16 (m = 4)

그리드:

[ 1, 2, 3, 4]
[ 5, 6, 7, 8]
[ 9,10,11,12]
[13,14,15,16]

반환:

[6,7,10,11]

높은 값의 경우 m, 이 대답은 좋은 시각화를 수행합니다.

규칙 :

m또는 n(where n = m*m) 중 하나를 선택할 수 있습니다 .
- 에 복용하면 n당신은 더이 존재하는 정의되지 않은 동작이없는 것으로 허용 m을 위해 n(예 : 15).
- n > 0, m > 0: 둘 다 정수 값이어야합니다.
출력은 1D / 2D 배열, 행렬 또는 공백으로 구분 될 수 있습니다.
출력은 최소에서 최대 순이어야합니다.
- 행렬로 출력하는 경우 그리드에있는 것과 같아야합니다.
이것은 code-golf , 가장 낮은 바이트 수의 승리입니다.

code-golf matrix

— 매직 문어 항아리
소스

내 말에 완전한 결함이 있습니다. 잘못 읽었습니다.

— 개발

3

@DevelopingDeveloper hey man, 매번 nickle을 받았다면 맥주 한두를 살 수 있었을 것입니다.

— Magic Octopus Urn

2D 배열로 출력하는 경우 하나의 빈 배열을 결과에 포함시킬 수 있습니까?

— 얽히고 설킨

6

C, 50 바이트

i;f(m){for(i=m;++i<m*m-m;)i%m>1&&printf("%d ",i);}

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

— 스테디 박스
소스

6

옥타브 , 31 바이트

@(m)vec2mat(1:m*m,m--)(2:m,2:m)

행렬을 반환합니다.

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

— 스테디 박스
소스

2

좋은! 나는 vec2mat전에 기능을 본 적이 없다 .

— Tom Carpenter

6

옥타브 , 26 바이트

@(m)find((t=[0:m-2 0])'*t)

이 코드는 입력하는 익명 함수를 정의합니다 m (비어있을 수있는) 열 벡터 및 출력 .

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

설명

@(m)                          % Define anonymous function of m
          t=[0:m-2 0]         % Build row vector [0 1 2 ... m-2 0] and assign it
                              % to variable t
         (           )'       % Complex-conjugate transpose into a column vector
                       *t     % Matrix-multiply that column vector times the row
                              % vector t. This gives an m×m matrix with zeros in
                              % the border and nonzeros in the other entries.
    find(                )    % Linear indices of nonzero entries. The result is
                              % in increasing order

— 루이스 멘도
소스

5

젤리 , 8 바이트

’Ṗ×+€ṖḊ€

m목록 (내부 행) 목록을 가져 와서 반환하는 모나드 링크 입니다.

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

어떻게?

’Ṗ×+€ṖḊ€ - Link m                    e.g. 5
’        - decrement                      4
 Ṗ       - pop (implicit range of input)  [1,2,3]
  ×      - multiply by m                  [5,10,15]
     Ṗ   - pop m                          [1,2,3,4]
   +€    - add €ach                       [[6,7,8,9],[11,12,13,14],[16,17,18,19]]
      Ḋ€ - dequeue €ach                   [[7,8,9],[12,13,14],[17,18,19]]

— 조나단 앨런
소스

파이썬을하고 싶지 않다;)?

— Magic Octopus Urn

4

퓨어 배쉬, 49

지루한 답변 :

for((i=$1;i++<$1*$1-$1;));{ ((i%$1>1))&&echo $i;}

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

또는 52에 대한 흥미로운 대답 :

(($1>2))&&eval echo \$[$1*{1..$[$1-2]}+{2..$[$1-1]}]

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

— 디지털 외상
소스

4

하스켈 , 31 바이트

f m=[i|i<-[m..m*m-m],mod i m>1]

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

수학 버전 :

f(m) = {i : i ∈ (m, m² - m), i mod m < 1}

:피

— 완전히 인간적인
소스

이 유효하지 않습니다 잠깐, f(5)해야한다7,8,9,12,13,14,17,18,19

— 매직 문어 항아리

잠깐, 죄송합니다. 저는 바보입니다.

— 완전히 인간적인

4

R , 44 43 32 바이트

function(n)(x=n:(n^2-n))[x%%n>1]

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

벡터를 반환합니다.

— 주세페
소스

깔끔한 출력 형식, 기본적으로 행렬이 R로 어떻게 출력됩니까?

— Magic Octopus Urn

1

네, 그것은의 printA에 대한 기능 matrix.

— 주세페

1

다음에서 두 번째 m를 생략 할 수 있습니다 matrix(1:m^2,m,m,T).matrix(1:m^2,m,,T)

— JAD

물론 @JAD입니다. 감사.

— 주세페

좋은 점은 scan () 사용에 대해 어떻게 생각하십니까? 2 바이트를 절약 할 수 있습니다. 온라인으로 사용해보십시오!

— Robert Hacken

3

젤리 , 8 바이트

sÆ½ḊṖ$⁺€

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

— 아웃 골퍼 에릭
소스

m하나를 사용하면 그렇게 할 수 ²s⁸ḊṖ$⁺€있습니다. (나는 또 다른 m대안을 게시했습니다 .)

— Jonathan Allan

이미 발견,하지만 바이트 이상이 저장되지 @JonathanAllan, 당신은 제거 할 수 없습니다 ⁸:(

— 에릭 Outgolfer

3

양성자 , 28 바이트

k=>filter(u=>1<u%k,k..k*~-k)

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

m 을 입력으로 취 합니다.

어떻게?

[k, k ² -k) 의 정수를 필터링합니다. 로 나눈 값 이 1 보다 높은 나머지를 산출하는 단위로 필터링 합니다. 양단이 트리밍 된 것을 보장하기 때문에 처음 수율 0 과 마지막 수율 1 . 또한 유효한 정수는 연속적이기 때문에 더 높은 값을 반환하도록 보장됩니다.

— 미스터 Xcoder
소스

3

Wolfram Language (Mathematica) , 31 바이트

Table[# i+j+1,{i,#-2},{j,#-2}]&

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

— 켈리 로우더
소스

2

배쉬 + GNU 유틸리티, 35

seq $1 $[$1*$1-$1]|sed 1~$1d\;2~$1d

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

— 디지털 외상
소스

2

05AB1E , 9 바이트

LItä¦¨ε¦¨

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

— 미스터 Xcoder
소스

LItä¦¨ε¦¨출력이 2D 배열 일 수 있습니다.

— Magic Octopus Urn

아, 나는 사양을 더 잘 읽었어야했다. 고마워요!

— Mr. Xcoder

2

파이썬 2 , 44 바이트

lambda t:[k for k in range(t,~-t*t)if k%t>1]

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

나는 이것이 오늘 (이 도전에 대한) 나의 마지막 대답이라고 약속한다. m 을 입력으로 취 합니다.

— 미스터 Xcoder
소스

2

루비 , 32 바이트

->m{(m..m*m-m).reject{|e|e%m<2}}

Takes m는 1 차원 배열을 반환합니다.

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

— 복원 모니카-notmaynard
소스

2

MATL , 8 바이트

:G\1>&*f

입력은 m입니다. 출력은 숫자가 증가하는 순서입니다.

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

설명

4예를 들어 입력 을 고려하십시오 .

:     % Implicit input: m. Push range [1 2 ... m-1 m]
      % STACK: [1 2 3 4]
G\    % Modulo m, element-wise
      % STACK: [1 2 3 0]
1>    % Greater than 1, element-wise.
      % STACK: [0 1 1 0]
&*    % Matrix of pair-wise products
      % STACK: [0 0 0 0;
                0 1 1 0;
                0 1 1 0;
                0 0 0 0]
f     % Column vector of linear indices of nonzeros. Implicit display
      % STACK: [ 6;
                 7;
                10;
                11]

— 루이스 멘도
소스

2

APL (Dyalog Classic) , 14 바이트

1+⊢⊥¨∘⍳2⍴0⌈-∘2

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

— ngn
소스

2

배치, 85 바이트

@for /l %%i in (3,1,%1)do @for /l %%j in (3,1,%1)do @cmd/cset/a(%%i-2)*%1+%%j-1&echo(

나는 쉽게 반복 할 수 없습니다 2에 m-1에서 나는 그렇게 루프 3에 m와 계산에 조정합니다.

— 닐
소스

2

줄리아 0.6 , 36 바이트

m->reshape(1:m*m,(m,m))[2:m-1,2:m-1]

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

— gggg
소스

2

Pari / GP , 26 바이트

n->[x|x<-[n..n^2-n],x%n>1]

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

— 알레프 알파
소스

2

apt, 12 바이트

배열 생성을 골프화 할 시간이 부족한 요소를 추출하는 데 너무 오랜 시간을 소비했습니다. 또한 이제 n입력으로 가져갈 수 있다는 것을 알게되어 거기에 무언가를 저장할 수 있습니다. 다시 방문하려면 ...

òUnU²)òU m¤c

시도 해봐

설명

                 :Implicit input of integer U=m     :e.g., 4
   U²            :U squared                         :16
 Un              :Minus U                           :12
ò                :Range [U,U**2-U]                  :[4,5,6,7,8,9,10,11,12]
      òU         :Partitions of length U            :[[4,5,6,7],[8,9,10,11],[12]]
         m       :Map
          ¤      :  Remove first 2 elements         :[[6,7],[10,11],[]]
           c     :Flatten                           :[6,7,10,11]

— 얽히고 설킨
소스

2

J , 23 19 바이트

FrownyFrog 덕분에 -4 바이트!

1 1}:@}.-@%:}:\1+i.

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

나의 원래 타락 :

J , 23 바이트

[:|:@}:@}.^:2-@%:]\1+i.

n을 입력으로 취하고 행렬을 반환합니다.

작동 원리

1+i. -리스트 생성 1..n

-@%: -n의 제곱근을 찾아 부정 (m)

]\ -목록에서 테이블 (매트릭스) mxm을 만듭니다.

^:2 -다음을 두 번 수행하십시오.

|:@}:@}. -첫 번째 줄을 떨어 뜨린 다음 마지막 줄을 버리고 조옮김

[: -포크를 덮다

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

— 갈렌 이바노프
소스

1}:@}.-@%:}.@}:\1+i.

— FrownyFrog

1

아니요1 1}:@}.-@%:}:\1+i.

— FrownyFrog

@FrownyFrog-감사합니다! 나는 목록 왼쪽 논쟁에 대해 몰랐다}.

— Galen Ivanov

2

껍질 , 9 바이트

‼ȯTthS↑CN

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

설명

‼ȯTthS↑CN  Implicit input, say m=4.
       CN  Cut the natural numbers by m: [[1,2,3,4],[5,6,7,8],[9,10,11,12],..
     S↑    Take first m lists: [[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]]
‼ȯ         Do this twice:
    h       Remove last row,
   t        remove first row,
  T         transpose.
           Result is [[6,7],[10,11]]; print it implicitly.

— 자브
소스

2

apt , 14 바이트

²õ òU ÅkJ ®ÅkJ

취하고 m입력으로서

설명

 ²õ òU ÅkJ ®ÅkJ                                      
                // U = input                         | 3
U²              // U squared                         | 9
  õ             // Range [1...U²]                    | [1,2,3,4,5,6,7,8,9]
    òU          // Cut into slices of U              | [[1,2,3],[4,5,6],[7,8,9]]
       Å        // Remove the first item             | [[4,5,6],[7,8,9]]
        kJ      // Remove the last item              | [[4,5,6]]
           ®    // Map:                              |
            ÅkJ //   Remove the first and last items | 5

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

해결 방법 n은 14 바이트입니다.

õ òU¬ ÅkJ ®ÅkJ

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

— 올리버
소스

2

TI-BASIC, 44 43 바이트 (토큰 화)

DC 4D 3F CE 4D 6D 32 3F CF 3F DE 2A 08 09 3F D0 3F 4D 71 32 3F 23 4D 70 32 70 58 70 32 B1 58 83 72 11 2B 58 2B 30 2B 72 0D 71 31

읽을 수있는 버전 :

:Input M
:If M≤2
:Then
:Disp "{}
:Else
:M-2
:seq(M+2+X+2int(X/Ans),X,0,Ans²-1

TI-BASIC은 일반적으로 허용하지 않기 때문에 불행히도 빈 목록을 수동으로 인쇄해야했습니다. 경우 m이보다 더 주어졌다 코드 단지로 감소 될 수있는 29 바이트 .

— 가짜 아빠
소스

1

Pyth , 10 바이트

mtPdtPcQS*

여기 사용해보십시오!

m 을 입력으로 취 합니다.

— 미스터 Xcoder
소스

대안

— Mr. Xcoder

1

빨강 , 63 62 바이트

f: func[n][repeat i(n - 2 * n)[if(a: n + i)// n > 1[print a]]]

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

이것은 완전히 인간의 Haskell / Mr. Xcoder의 Python 2 솔루션의 빨간 포트입니다.

— 갈렌 이바노프
소스

1

클린 , 45 바이트

import StdEnv
$m=[i\\i<-[m..m*m-m]|i rem m>1]

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

이것은 완전히 인간의 Haskell 답변 이지만 Clean입니다.

— 뇨
소스

1

Pyt , 13 바이트

ĐĐ⁻⁻ř*⇹⁻⁻ř⁺ɐ+

조나단 앨런 항의 젤리 답변

설명:

                    Implicit input (takes m)
ĐĐ                  Triplicate the input (push it on the stack two more times)
  ⁻⁻                Decrement top of stack twice
    ř               Push [1,2,...,m-2]
     *              Multiplies by m
      ⇹             Swaps top two items on stack
       ⁻⁻           Decrement (m-2 is now on top)
         ř          Push [1,2,...,m-2]
          ⁺         Increment each element by 1
           ɐ+       Add [2,3,...,m-1] to each element of [m,2m,...,m(m-2)]
                    Implicit print

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

— mudkip201
소스

1

파이썬, 111 바이트

def f(s):
 r=[]
 for i in[i[1:-1]for i in[[(j*s)+i+1 for i in range(s)]for j in range(s)][1:-1]]:r+=i
 return r

— Sonrad10
소스

1

자바 (8) , 241 (183) 170 162 160 132 122 바이트

j->{if(j<3)return new int[1];int e[]=new int[j*j-4*j+4],x=0,i=0;for(;++i<=j*j;)if(!(i<j|i>j*j-j|i%j<2))e[x++]=i;return e;}

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

Java는 다소 "알 수없는"크기의 배열을 만들어야 할 때 매우 어렵습니다 (많은 바이트).

Magic Octopus Urn 덕분에 -8 바이트
Mr. Xcoder 덕분에 -28 바이트
Kevin Cruijssen 덕분에 -10 바이트

— 개발자 개발
소스

1

또한 Java는 코드 골프에 적합합니다. 그러나 당신은 분명히 그것에 능숙합니다. 이 언어는 Groovy기본적으로 속기 Java 라고 하는 언어를 확인해야합니다 .

— 매직 문어 Urn

2

if 문에서 추가 조건을 제거하여 132 바이트 및 다양한 트릭.

— Mr. Xcoder

1

122 바이트 계속 Mr.Xcoder @ 를 조합하여 상기의 132 바이트의 버전 int의 변경 ||으로 |, 그리고 단일 라인 IF-본체 브래킷을 제거하는 단계를 포함한다.

— 케빈 크루이 ssen

1

101 바이트

— ceilingcat '10

테두리가없는 완벽한 사각형

예

n = 1 (m = 1)

n = 4 (m = 2)

n = 9 (m = 3)

n = 16 (m = 4)

C, 50 바이트

옥타브 , 31 바이트

옥타브 , 26 바이트

설명

젤리 , 8 바이트

어떻게?

퓨어 배쉬, 49

하스켈 , 31 바이트

R , 44 43 32 바이트

젤리 , 8 바이트

양성자 , 28 바이트

어떻게?

Wolfram Language (Mathematica) , 31 바이트

배쉬 + GNU 유틸리티, 35

05AB1E , 9 바이트

파이썬 2 , 44 바이트

루비 , 32 바이트

MATL , 8 바이트

설명

APL (Dyalog Classic) , 14 바이트

배치, 85 바이트

줄리아 0.6 , 36 바이트

Pari / GP , 26 바이트

apt, 12 바이트

설명

J , 23 19 바이트

J , 23 바이트

작동 원리

껍질 , 9 바이트

설명

apt , 14 바이트

설명

TI-BASIC, 44 43 바이트 (토큰 화)

Pyth , 10 바이트

빨강 , 63 62 바이트

클린 , 45 바이트

Pyt , 13 바이트

파이썬, 111 바이트

자바 (8) , 241 (183) 170 162 160 132 122 바이트