피보나치 스타일 매트릭스 확장


25

행렬의 각 행과 열에 대해 해당 행이나 열의 마지막 두 항목의 합으로 추가 항목을 추가 할 수 있습니다. 예를 들어 다음 입력 매트릭스를 사용하십시오.

[ 1 1 1 ]
[ 2 3 4 ]

결과 행렬은 다음과 같습니다.

[ 1 1 1 2 ]
[ 2 3 4 7 ]
[ 3 4 5 9 ]

정수 N의 입력과 크기가 2x2 이상인 [X, Y] 행렬이 주어지면 위의 확장 N을 수행하고 결과를 출력합니다. 결과 행렬은 항상 [X + N, Y + N] 크기입니다.

예 :

Input:                     Output:

2, [ 0 0 ]                 [ 0 0 0 0 ]
   [ 0 0 ]                 [ 0 0 0 0 ]
                           [ 0 0 0 0 ]
                           [ 0 0 0 0 ]


3, [ 1 1 1 ]               [ 1  1  1  2  3  5 ]
   [ 2 3 4 ]               [ 2  3  4  7 11 18 ]
                           [ 3  4  5  9 14 23 ]
                           [ 5  7  9 16 25 41 ]
                           [ 8 11 14 25 39 64 ]

답변:


8

MATL , 13 14 15 16 20 21 바이트

2*:"!tP2:Y)sv

1 바이트를 제거 해 주셔서 감사합니다 @ Zgarb!

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

2*         % implicitly input number N and multiply by 2
:          % create vector [1,2,...,2*N]
"          % for loop: do this 2*N times
  !        %   transpose. Implicitly input matrix in the first iteration
  tP       %   duplicate and flip vertically
  2:       %   vector [1,2]
  Y)       %   pick submatrix formed by the first two rows
  s        %   sum of each column
  v        %   append as a new row
           % end for
           % implicit display

1
MATL을 모르지만 반복 2N시간을 두 N번 반복하는 것보다 반복 시간이 짧지 않습니까?
Zgarb

@Zgarb 물론입니다! 내가 어떻게 그리워? 감사!!
Luis Mendo

MATL에 숫자를 두 배로 늘릴 수있는 기능이 있습니까?
Zgarb

@ Zgarb 아니오 2*. ( 접두사 표기법)이 필요합니다 . 아마도 한 문자가 내장되어 있어야하며 자주 사용됩니다. 또한 2^(평방). 하지만 :-) 코드 공간이 부족 해요
루이스 Mendo

6

J, 19 바이트

(v"1@v=.,[+&{:}:)^:

이것은 부사를 정의하는데, 이것은 왼쪽의 숫자를 취하고 오른쪽의 행렬을 취하는 동사를 생성합니다. 두 번째 예에서는

  3 ((v"1@v=.,[+&{:}:)^:) 2 3 $ 1 1 1 2 3 4
1  1  1  2  3  5
2  3  4  7 11 18
3  4  5  9 14 23
5  7  9 16 25 41
8 11 14 25 39 64

설명

(v"1@v=.,[+&{:}:)^:  Left argument x, right argument y
(               )^:  Repeat x times:
     v=.               Bind the following verb to v, and apply to y:
         [    }:         y and y-without-last-item
          +&{:           Sum of their last items
        ,                Append that to y
                       (v automatically threads to rows)
 v"1@                  then apply v to columns

3

K, 23 바이트

{x(2({x,+/-2#x}'+)/)/y}

실제로 :

  {x(2({x,+/-2#x}'+)/)/y}[3;(1 1 1;2 3 4)]
(1 1 1 2 3 5
 2 3 4 7 11 18
 3 4 5 9 14 23
 5 7 9 16 25 41
 8 11 14 25 39 64)

여기에서 시도 하십시오 .


선행 {x및 후행 을 제거해도 여전히 작동합니다.y}
ngn

3

젤리, 15 13 12 바이트

@Dennis에 의해 -1 바이트

ṫ-S;@"Z
ÇḤ}¡

@LuisMendo의 MATL 답변과 마찬가지로 한 축을 따라 변환하기 전에 배열을 바꿉니다. 따라서 함수를 2 * n 번 호출해야합니다.

ṫ-S;@"Z       Helper link. Input: x (2D array)
 -              Numeric literal: -1
ṫ               Get x[-1:], i.e. last two rows in x
  S             Sum
   ;@"          Append each to x. " is 'zipWith'; @ switches argument order.
      Z         Transpose the array.
ÇḤ}¡          Main link. Input: a, n
Ç               Call the last link on a
 Ḥ}             2n
   ¡            times.

여기에서 시도 하십시오 .


2

ES6, 134 바이트

(n,a)=>[...a.map(b=>[...b,...Array(n)].map(c=>(c<1/0?0:c=a+d,d=a,a=c))),...Array(n)].map(b=>(b?0:b=[...a].map((c,j)=>c+d[j]),d=a,a=b))

설명:

(n,a)=> // arguments n is number to expand, a is original array
    [...
        a.map(b=> // for each row in a
            [...b,...Array(n)] // append n elements to the row
            .map(c=>(c<1/0?0:c=a+d,d=a,a=c))) // scan the elements and fill the new ones by summing the previous two
        ,...Array(n)] // append n rows
    .map(b=>(b?0:b=[...a].map((c,j)=>c+d[j]),d=a,a=b)) // scan the rows and fill the new rows by summing the previous two rows

2

하스켈, 67 바이트

o%m=m++[o(+)(last m)$last$init m]
(!!).iterate(map(id%).(zipWith%))

사용 예 :

*Main> ( (!!).iterate(map(id%).(zipWith%)) ) [[1,1,1],[2,3,4]] 3
[[1,1,1,2,3,5],[2,3,4,7,11,18],[3,4,5,9,14,23],[5,7,9,16,25,41],[8,11,14,25,39,64]]

작동 방식 :

(!!).iterate(    ...         )  -- repeatedly apply ... to the first agrument and
                                -- pick the iteration defined by the second arg
                   (zipWith%)   -- for one iteration add a new row and
          map(id%)              -- then a new element at the end of each each row

o%m                             -- add row or element at the end of a row resp.
                                -- argument o is a "modify function"
                                --          m the whole matrix or a row
 m++[    (last m)(last$init m)] -- take m and append the result of combining the
                                -- last and 2nd last element of m
     o(+)                       -- with a modified version of (+)
                                -- modification is none (aka. id) when adding an
                                -- element to the end of a row and
                                -- zipping elementwise (zipWith) when adding a row

저는 하스켈 초보자입니다. 나는 REPL을 sudo apt-get install haskell-platform실행하고 ghci있으며 Prelude> 프롬프트를 표시합니다. 붙여 넣을 때을 o%m=m++[o(+)(last m)$last$init m]얻습니다 <interactive>:2:4: parse error on input '='. 소스 파일이나 REPL에서 이것을 실행하는 데 약간의 입문서를 줄 수 있습니까?
Digital Trauma

@DigitalTrauma : o%m=...라는 파일에 줄 (그리고이 줄만)을 넣습니다 fib-matrix.hs. 그런 다음 :l fib-matrix.hsin 명령 ghci을 사용하여 정의를로드하고 사용 예에 ​​설명 된대로 기본 함수를 호출 할 수 있습니다 . -또는 사용하십시오 let o%m=... in ( (!!). ... ) [[1,1,1]...] 3.
nimi

1
@DigitalTrauma : 오, 세 번째 방법이 있습니다 : 메인 함수에 이름을 지정하십시오. 예를 들어 f=두 번째 줄 앞에 a 를 추가하십시오 : f=(!!).iterate..., 두 줄을 파일에 저장하고를 통해로드하십시오 l: <filename.hs>. 그런 다음으로 전화 할 수 있습니다 f [[1,1,1],[2,3,4]] 3.
nimi

나는 이것을 유효한 haskell로 받아 들일지 모르겠다. 맨 위 줄은 함수 정의이며 REPL에서 사용하기 위해 수정이 필요하지만 두 번째 줄은 REPL에서만 사용할 수 있습니다.
Daniel Hill

@DanielHill : 메타에 관한 주제가 있는데, 여기에는 전역 도우미 함수에 의존하는 이름없는 함수를 허용합니다.
nimi

2

CJam, 17 16 바이트

q~2*{~_2$.+]z}*p

입력 형식은 먼저 행렬 (CJam 스타일 2D 배열)이며 이후 반복 횟수입니다.

여기에서 테스트하십시오.

설명

이것은 다른 사람들과 동일한 솔루션으로 밝혀졌습니다.

q~      e# Read and evaluate input.
2*      e# Double the iteration count.
{       e# Run this block that many times...
  ~     e#   Dump all rows on the stack.
  _     e#   Copy the last row.
  2$    e#   Copy the penultimate row.
  .+    e#   Vectorised addition.
  ]     e#   Wrap all rows in a new array.
  z     e#   Transpose such that the next iteration processes the other dimension.
}*
p       e#   Pretty-print.

1

정말 20 바이트

,,τ"┬`;d@d@X+@q`M"£n

행렬을 2D 목록으로 입력 한 다음 N . 2D리스트를 출력합니다.

이 버전은 어떤 이유로 온라인 인터프리터에서는 작동하지 않지만 이 사전 도전 커밋 에서는 작동합니다. 합니다.

23 바이트 동안 온라인에서 작동하는 버전 :

,τ",┬`;d@d@X+@q`M"nkΣ£ƒ

반대 순서로 입력을 취합니다 ( N, 행렬).

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

잠시 잠을 잔 후에 설명을 추가하겠습니다. 통역사 버그를 해결하는 것은 결코 재미가 없습니다.


1

Pyth, 13 12 바이트

u+Rs>2dCGyEQ

온라인으로 사용해보십시오. 테스트 스위트.

대부분의 답변에 동일한 알고리즘을 사용합니다. 첫 번째 줄에서 행렬을 2D 배열로 입력하고n 두 번째 줄 받습니다.

설명

u        yEQ     do 2*N times, starting with input matrix:
       CG          transpose
 +R                append to each row:
   s                 sum of
    >2d              last 2 elements of row

1

Matlab, 60 바이트

A(end+1,:)=sum...이 희귀 한 경우에 간단한 연결이 실제로 Matlab에서 더 저렴하다는 것을 알기 전에 Matlab의 멋진 색인 방법 (즉, ) 을 처음으로 엉망 으로 만들었습니다. 너무 나빠서 이것을 실제 함수로 변환해야했습니다. 옥타브에서도 작동합니다.

function A=f(A,n)
for i=1:2*n
A=[A;sum(A(end-1:end,:))]';end

이것이 알고리즘을 만들지 않는 방법의 주요 예라고 생각 합니다. A = 2x2, n = 1000의 경우이 알고리즘은 이미 랩톱에서 5 초, n = 2000은 거의 50 초입니다! (또는 A가 gpuArray신뢰할 수있는 Quadro 1000M 덕분에 약 30 초 )


Matlab 사본이 없습니다. GNU 옥타브에서 이것을 실행할 수 있습니까? 그렇다면 지침을 줄 수 있습니까?
Digital Trauma

1
예, Octave 전용 기능을 사용하지 않기 때문에 Matlab이라고 불렀습니다. 간단히 fm이라는 파일에 넣고 다음과 같이 실행하십시오.f([0,1;2,3],1000)
Sanchises

내가 참조. 1)로 저장하십시오 f.m. 2) 시작하십시오 octave. 3) load f.m; f([1,1,1;2,3,4],3)REPL 프롬프트에 붙여 넣 습니다.
디지털 외상

당신이 그렇게 말한다면! 나는 옥타브 온라인 웹 사이트 만 사용하므로 어떻게 작동 해야하는지 전혀 모릅니다. 내가 거기에서 permalink 할 수 있는지 보자
Sanchises

1

자바, 2179 바이트

방금 해결 :-이 코드는 Java 언어입니다.

import java.util.Scanner;

public class FebonnaciMatrix {
        static Scanner scan=new Scanner(System.in);

        public static void main(String[] args) {

        int x,y;
        System.out.println("For the Array to Work Upon:- ");

        System.out.println("Enter the Row:- ");
        int row=scan.nextInt();
        System.out.println("Enter the Column:- ");
        int col=scan.nextInt();

        int inpArr[][]=new int[row][col];

        System.out.println("Enter the values");
        inpArr=inpValues(row,col);

        System.out.println("The Input Array is:- ");
        display(inpArr,row,col);

        System.out.println("Input the Array size of Febonacci Array ");

        System.out.println("Enter the Row");
        int frow=scan.nextInt();
        System.out.println("Enter the Column");
        int fcol=scan.nextInt();

        int febArr[][]=new int[frow][fcol];
        febArr=copyValue(inpArr,febArr,row,col);

        for(x=0;x<row;x++)
        {
            for(y=col;y<fcol;y++)
                febArr[x][y]=febArr[x][y-2]+febArr[x][y-1];
        }

        for(x=row;x<frow;x++)
        {
            for(y=0;y<fcol;y++)
                febArr[x][y]=febArr[x-2][y]+febArr[x-1][y];
        }

        System.out.println();
        System.out.println("The Febonacci Array:-");
        display(febArr,frow,fcol);
    }

    static void display(int[][] arr,int row,int col)
    {
        int x,y;
        for(x=0;x<row;x++)
        {
            for(y=0;y<col;y++)
                System.out.print(arr[x][y]+"\t");
            System.out.println();
        }
    }

    static int[][] inpValues(int row,int col)
    {
        int arr[][]=new int[row][col];
        int x,y;
        for(x=0;x<row;x++)
        {
            for(y=0;y<col;y++)
            {
                System.out.print("Enter the value:- ");
                arr[x][y]=scan.nextInt();
            }
        }
        return arr;
    }

    static int[][] copyValue(int[][] old, int[][] ne, int row,int col)
    {
        int x,y;    
        for(x=0;x<row;x++)
        {
            for(y=0;y<col;y++)
                ne[x][y]=old[x][y];

        }
        return ne;
    }

}

1
프로그래밍 퍼즐과 코드 골프에 오신 것을 환영합니다! 질문에는 code-golf 태그가 붙어 있는데, 이는 가능한 가장 짧은 코드 (바이트)로 답변을 작성하기 위해 경쟁하고 있음을 의미합니다. 귀하의 답변으로 문제를 해결할 수는 있지만 코드를 "골프"하려는 시도는 거의 없습니다 (즉, 가능한 짧게 만드십시오). 코드로이를 수행 할 수있는 간단한 기회가 많이 있습니다 (예 : 1 문자 이름을 가진 변수 및 불필요한 공백 제거). 그 외에도 Java에 대한이 팁을 읽을
Digital Trauma

... code-golf에 대한 tag-wiki , 특히 코드 골프에 어떻게 대답해야합니까? 힌트가 있습니까? 섹션. 또한 Java는 다른 많은 언어와 비교하여 짧은 코드로 골프를 치르기 어렵다는 점에 유의하십시오. 이것은 당신을 설득해서는 안됩니다-당신이 잘 된 자바 답변을 가지고 있다면, 다른 모든 답변보다 길더라도 꽤 인기가있을 것입니다. 모든 솔직하게 짧은 esolang 답변으로 연기하지 마십시오-이 커뮤니티는 언어 핸디캡을 고려하는 데 능숙합니다.
디지털 외상

@ DigitalTrauma- 감사합니다 ... 이것에 대한 새로운 꿀벌로 나를 도와 주셔서 ... 반드시 링크를 통해 새로운 코드를 생각해 낼 것입니다 ...
Dhruv Govila

귀하는 새로운 사용자이므로 더 나은 형식을 위해 답변을 자유롭게 편집 할 수 있습니다. 특히 a) 언어와 바이트 수를 나타내는 명확한 제목, b) 코드의 코드 형식. 모든 stackexchange 사이트에서 코드 서식은 간단합니다. 모든 코드 줄 앞에 4 개의 공백을두기 만하면됩니다. 편집 상자에서 코드를 선택한 다음 {}편집 상자 맨 위에있는를 클릭하면 이 접두사가 자동으로 수행됩니다.
디지털 외상

알았어 .. 그냥 확인해
볼게요

1

파이썬, (103) 105 바이트

f=lambda n,L:f(n-1,[l+[sum(l[-2:])]for l in L])if n else L
lambda n,L:zip(*f(n,map(list,zip(*f(n,L)))))

익명 함수는 목록의 목록을 가져와 재귀 함수로 전달합니다 f. 출력이 바뀐 다음 f다시 전달 된 다음 두 번째 이동의 출력이 다시 바뀝니다. 출력은 튜플 목록입니다

bakuriu 덕분에 2 바이트 절약


1
n>0n당신은 긍정적으로 시작하고 그 가치에 n도달하면 0거짓 이기 때문에 단순히 일 수 있습니다 .
Bakuriu


0

펄 6 ,  87 73  71 바이트

->\c,\m{for ^c {.[+*]=[+] .[*X-1,2]for m;m.push: [map {[+] m[*X-1,2;$_]},m[0].keys]};m}
->\c,\m{for ^c {.[+*]=[+] .[*X-1,2]for m;m[+*]=[m[*-2;*] »+«m[*-1]]};m}
->\c,\m{for ^c {.[+*]=[+] .[*X-1,2]for m;m[+*]=[m[*-2;*]Z+m[*-1;*]]};m}
-> \c, \m {
  for ^c { # 0 ..^ c

    # each row
    .[+*]                            # new column at the end of row ($_)
          = [+] .[ * X- 1,2 ]        # add up the last two entries in row ($_)
                              for m; # for every row

    # too bad this was longer than the above code
    # m[*;+*]=map *+*,m[*;*-2,*-1]

    # each column
    m[ +* ]                 # add new row
            = [             # make it an Array rather than a List
                m[ *-2; * ] # the second to last row
                »+«         # added columnwise with
                m[ *-1 ]    # the last row
              ]
  };

  m # return the result
}

용법:

use v6.c;
# give it a lexical name
my &code = ->\c,\m{  }

my @return = code 3,[[1,1,1],[2,3,4]];

put '[ ', $_».fmt('%2d'), ' ]' for @return;

put '';

put @return.perl ~~ {S:g/' '//};
[  1  1  1  2  3  5 ]
[  2  3  4  7 11 18 ]
[  3  4  5  9 14 23 ]
[  5  7  9 16 25 41 ]
[  8 11 14 25 39 64 ]

[[1,1,1,2,3,5],[2,3,4,7,11,18],[3,4,5,9,14,23],[5,7,9,16,25,41],[8,11,14,25,39,64]]

이것을 붙여 넣으면 perl6 약간의 오류가 발생합니다 . 나는 펄 초보자입니다-내가 뭘 잘못하고 있니?
디지털 외상

@DigitalTrauma 위의 코드로 교체해야 my &code = ->\c,\m{ … }한다는 것을 분명히하기 위해 사용법을 작성해야했기 때문에 죄송합니다 ->\c,\m{ … }. 일반적으로 암시 적 $_또는 @_명시 적 자리 표시 자 매개 변수 $^a는 더 짧은 경향이 있으므로 사용합니다. 난 그냥 생각하지 않았다. 또한 충분한 새 버전 ( $*PERL.compiler.version !before 2015.12)을 사용하고 있는지 확인하십시오.
Brad Gilbert b2gills

@DigitalTrauma 당신은 또한에 갈 수 #의 perl6의 freenode.net 및 사용 카멜리아에 채널 (이 같은) (선행의와 라인 코드를 실행하는 m: MSG 카멜리아 직접 또한 수와 공간)
브래드 길버트는 b2gills
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.