Recamán의 시퀀스 생성


20

Recamán의 시퀀스 ( A005132 )는 다음과 같이 정의 된 수학적 시퀀스입니다.

A(0) = 0
A(n) = A(n-1) - n if A(n-1) - n > 0 and is new, else
A(n) = A(n-1) + n

위의 예쁜 LaTex 버전 (더 읽기 쉽습니다) :

A(n)={0if n=0A(n1)nif A(n1)n is positive and not already in the sequenceA(n1)+notherwise

처음 몇 용어는 0, 1, 3, 6, 2, 7, 13, 20, 12, 21, 11

명확히하기 위해 is new숫자가 이미 시퀀스에 있는지 여부를 의미합니다.

n함수 인수 또는 STDIN을 통해 integer가 주어지면 nRecamán 시퀀스 의 첫 번째 항을 반환합니다 .


이것은 코드 골프 도전이므로 가장 짧은 코드가 승리합니다.


'새로운 것'이란 무엇입니까?
Beta Decay

숫자가 새 것이면 아직 순서에 있지 않다는 의미입니다. 방금 시퀀스를 잘못 입력했다는 것을 깨달았습니다.
James Williams

순서를 수정했습니다.
James Williams

1
시퀀스의 첫 번째 값을 추가 할 수 있습니까?
자랑스런 Haskeller

처음 몇 숫자를 추가했습니다! (및 OEIS 페이지 링크)
James Williams

답변:


9

CJam, 34 33 바이트

0ali{_W=_I-__0<4$@#)|@I+@?+}fI1>`

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

예제 실행

$ cjam <(echo '0ali{_W=_I-__0<4$@#)|@I+@?+}fI1>`') <<< 33
[0 1 3 6 2 7 13 20 12 21 11 22 10 23 9 24 8 25 43 62 42 63 41 18 42 17 43 16 44 15 45 14 46]

작동 원리

0ali                               " Push S := [ 0 ] and read an integer N from STDIN.    ";
    {                      }fI     " For each I in [ 0 ... (N - 1) ]:                     ";
     _W=                           "   X := S[-1].                                        ";
        _I-                        "   Y := X - I                                         ";
            _0<                    "   A := (Y < 0)                                       ";
           _   4$@#)               "   B := (Y ∊ S)                                       ";
                     @I+           "   Z := X + I                                         ";
                    |   @?         "   C := (A || B) ? Z : Y                              ";
                          +        "   S += [C]                                           ";
                              1>`  " Push str(S[1:]).                                     ";

어떤 변화를 했습니까?
Soham Chowdhury

내 첫 번째 접근 방식은 시퀀스 앞에 음수를 추가 했으므로 명시 적으로 확인하지 않아도됩니다 A(i) - i > 0. 그러나 작은 값에 충분한 숫자를 추가하지 않았습니다 n. 이제는 사양에 명시된대로 정확하게 수행합니다.
Dennis

33 대 45. 너무 가깝고 아직까지. :)
Ingo Bürk

와우, 코멘트없이 코멘트 e#... 맛있는 체리.
Chromium

8

하스켈, 74

l=0:0#1
a§v|a<0||a`elem`r v=v|1<2=0-v
a#b=a+(a-bb:l!!b#(b+1)
r=(`take`l)

사용법 예 :

λ> r 20
[0,1,3,6,2,7,13,20,12,21,11,22,10,23,9,24,8,25,43,62]

6

루비, 71 70 바이트

f=->n{a=[0];(n-1).times{|i|a+=[[b=a[-1]-i-1]-a!=[]&&b>0?b:b+2*i+2]};a}

정의의 매우 "단어"구현입니다.


5

파이썬 2, 78 75 73 69 바이트

xnor와 flornquake에 대한 Kudos
이제 초기 답변보다 거의 10 바이트 짧음

m=p,=0,
exec"p+=1;k=m[-1]-p;m+=k+2*p*(k*(k>0)in m),;"*input()
print m

을 (를) 단축 [k,k+2*p][bool]할 수 있습니다 k+2*p*(bool).
xnor

@xnor 감사합니다. 3 바이트를 절약했습니다.
Markuz

또한, k in m or k<0될 수 k*(k>=0)in m이후 경우 k<0제품이, 0에 인 m.
xnor

@xnor 브릴리언트! 다시 한번 감사드립니다
Markuz

-1대신 쓸 수 있습니다 p-1. 편집 : 당신은 또한 m튜플을 작성 m=0,하고 쓸 수 있습니다 m+=k+2*p*(k*(k>0)in m),.
flornquake

4

골프 스크립트 (41 45 )

여기 온라인으로 사용해보십시오 :

(,1,\{:~1$=~)-:^1<\.^?)!!@|^\{~)2*+}*+}/

설명

이것은 원래 45 바이트 솔루션을위한 것이지만 여전히 거의 동일합니다.

(,              # push array [0 .. n-1]
[0]\            # push sequence elements as [0] and reverse stack
{               # foreach element in [0 .. n-1] do:
  :m;           # store current element in m and discard
  .m=           # get the previous sequence element
  m)-:^         # subtract the current index from it and store in ^
  0>            # is that number greater than 0?
  \.^?)!        # is that number new to our sequence?
  @&            # logically and both checks
  {^}           # if true, push ^
  {^m)2*+}      # otherwise, add the index twice and push
  if
  +             # add new element to our sequence
}/
`               # make output pretty

편집 # 1 : 4 바이트를 줄여 준 Dennis에게 감사합니다.


4

dc , 46 바이트

sn[z+z+d0r:a]sF0[pz-d1>Fd;a0<Fddd:azln!<M]dsMx

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

이 프로그램은 빈 스택에서 입력을 가져 와서 stdout (줄 바꿈 구분)으로 출력합니다.

나는 이것이 정말 자랑 스럽습니다. 전용 골프 언어가 아닌 모든 것을 치고, 내가 좋아하는 DC 골프 트릭 3 가지를 보여줍니다.

  • 인덱스 변수로 사용되는 스택 크기
  • "A와 B가 다른 경우 C"를 "무조건적으로 C로 리팩토링하고, C와 D가 결합하여 B를 만들 때
  • 독창성 제약을 해결하기 위해 적은 양의 랜덤 액세스 배열 기능

설명

sn             Stores the input in register n
[z+z+0r:a]sF   Defines the macro F, which: 
    z+z+         adds twice the stack size/index variable
    0r:a         resets the "uniqueness" flag to 0 in the array a
               In context, F is the "D" in my description above, 
               changing A(z-1)-z to A(z-1)+z
0              The main loop starts with the previous sequence member on top of 
               the stack and total stack depth equal to the next index. 
               Pushing a zero accomplishes both of these things.
[              Start of the main loop M
  p               Print the previous sequence member, with newline (no pop)
  z-             Calculate A(z-1)-z
  d1>F           If that's nonpositive, (F)ix it to be A(z-1)+z
  d;a            a is my array of flags to see if we've hit this value before
  0<F            If we have, (F)ix it! (nonzero = flag, since ;a is zero by
                 default, and also zero if we just (F)ixed and therefore 
                 don't care about uniqueness right now)
  ddd            Make one copy to keep and two to eat
  :a             Flag this entry as "used" in the uniqueness array a
  zln!<M         If our "index variable" is n or less, repeat!
]dsMx          End of main loop - store it and execute

그것은 야생이야, 나는 dc도 존재하지 않았다
밝은 빛을 피하십시오

3

자바 스크립트 -81 80 79 70

9 바이트 절약에 도움을 준 edc65

f=n=>{for(a=[x=i=0];++i<n;)a[i]=x+=x>i&a.indexOf(x-i)<0?-i:i;return a}

-9 : g = n => {for (a = [x = i = 0]; ++ i <n;) a [i] = x + = x> i & a.indexOf (xi) <0? -i : i ; return a}
edc65

@ edc65 Grazie mille :)
William Barbosa

3

자바 스크립트, ES6, 74 69 자

최신 Firefox 웹 콘솔에서 아래 코드를 실행하십시오.

G=n=>(i=>{for(r=[t=0];++i<n;)r[i]=t+=i>t|~r.indexOf(t-i)?i:-i})(0)||r

나중에 더 골프하려고합니다.

사용법 예 :

G(11) -> 0,1,3,6,2,7,13,20,12,21,11

3

MATLAB, 83 78 바이트

아래를 f.m(73 바이트) 로 저장하십시오

A=0;for i=1:n-1 b=A(i)-i;A(i+1)=b+2*i;if b>0&&~any(A==b) A(i+1)=b;end;end

명령 창에서 실행 (5 바이트)

n=9;f

위의 내용이 유효하지 않으면 90 바이트가 필요합니다.

function A=f(n) 
A=0;for i=1:n-1 b=A(i)-i;A(i+1)=b+2*i;if b>0&&~any(A==b) A(i+1)=b;end;end

3

R : 96 자

골프 :

A=function(s,n,m,i){if(m==n){return(s)}else{t=i-m;if(t%in%s||t<0){t=i+m};s=c(s,t);A(s,n,m+1,t)}}

언 골프 드 :

A = function(s,n,m,i) {
    if(m==n){return(s)}
    else{
        t=i-m
        if(t%in%s||t<0){t=i+m}
        s=c(s,t)
        A(s,n,m+1,t)
    }
}

샘플 실행 :

> An(0,34,1)
[1]   0   1   3   6   2   7  13  20  12  21  11  22  10  23   9  24   8
[18]  25  43  62  42  63  41  18  42  17  43  16  44  15  45  14  46  79


3

펄 6 , 62 57 바이트

{(0, {$ -@ + @ * 2 * ($ !> @ || $ -@ ∈ @ ) @@ [* -1]} ... *) [^ $ ]}

{(0,{($!=@_[*-1])+@_-@_*2*($!>@_&&$!-@_∉@_)}...*)[^$_]}

Jo King 덕분에 -5 바이트

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


정말 놀랍습니다 ... 문자 그대로 고양이가 키보드를 밟은 것처럼 보입니다.
밝게 돈

3

05AB1E , 19 바이트

¾ˆG¯¤N-DŠD0›*åN·*+ˆ

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

설명

¾ˆ                    # Initialize the global list with 0
  G                   # for N in [1, input-1] do:
   ¯                  # push the global list
    ¤N-               # subtract N from the last item in the list
       D              # duplicate
        Š             # move the copy down 2 spots on the stack
         D            # duplicate again
          0›          # check if it is positive
            *         # multiply, turning negative results to zero
             å        # is the result already present in the list?
              N·*     # multiply by N*2
                 +    # add to the result
                  ˆ   # add this to the list

이것은 어떻게 작동합니까?
lirtosiast

@lirtosiast :이 도전을한지 오래되었으므로 이것이 짧은 통지로 할 수있는 가장 좋은 설명입니다. 충분하길 바랍니다.
Emigna

3

K (oK) , 53 바이트

해결책:

{$[y>c:#x;o[x,(r;*|x+c)(r in x)|0>r:*|x-c;y];x]}[,0;]

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

설명:

재귀 솔루션.

{$[y>c:#x;o[x,(r;*|x+c)(r in x)|0>r:*|x-c;y];x]}[,0;] / the solution
{                                              }[,0;] / lambda with first arg set as list containing 0
 $[      ;                                  ; ]       / if[condition;true;false]
       #x                                             / length of x
     c:                                               / save as c
   y>                                                 / y greater than? (ie have we produced enough results?)
                                             x        / return x if we are done
          o[                             ;y]          / recurse with new x and existing y
                                      x-c             / subtract c from x
                                    *|                / reverse first, aka last
                                  r:                  / save result as r
                                0>                    / 0 greater than?
                               |                      / or
                       (      )                       / do together
                        r in x                        / r in x?
              ( ;     )                               / use result to index into this 2-item list
                   x+c                                / add c to x
                 *|                                   / reverse first, aka last 
               r                                      / result
            x,                                        / append to x

2

자바, 144

int[]f(int n){int[]a=new int[n];a[0]=0;int i,j,k,m;for(i=0;i<n-1;){k=a[i++]-i;m=0;for(j=0;j<i;)if(k==a[j++])m=1;a[i]=m<1&k>0?k:k+2*i;}return a;}

2

루아 - 141 135 139 135

function s(n)a,b={1},{[0]=0}for i=1,n do k=b[i-1]-i c=k+i+i if(k>0)and(a[k]==nil)then b[i],a[k]=k,1 else b[i],a[c]=c,1 end end return b end

읽을 수있는 버전 :

function s(n)
a,b={1},{[0]=0}
for i=1,n do 
   k=b[i-1]-i 
   c=k+i+i
   if (k>0) and (a[k]==nil) then 
      b[i],a[k]=k,1 
   else 
      b[i],a[c]=c,1
   end 
end 
return b 
end

나는 2 개의 테이블을 사용하는데, 첫 번째 테이블은 a 라고 불리며 a [i] = 1 iff i 가 이미 시퀀스에 나타나고 그렇지 않으면 nil 이고, 두 번째 테이블은 실제로 시퀀스를 유지합니다


시퀀스는 0으로 시작해야합니다
William Barbosa

1
당신이 옳습니다, 나는 질문을 매우 신중하게 보지 않았고 그것이 mathworld (1로 시작)에서 동일한 정의를 가지고 있다고 가정했습니다. 더 이상 문자가 들지 않을 것이라고 생각합니다. 나중에 테스트하고 수정하겠습니다 나는 지금 나의 전화에서 쓰고있다!

2

파이썬, 73

def f(x,t=0):
 if x:t=f(x-1);t+=2*x*(t*(t>0)in map(f,range(x)))
 return t

편집 1 : 다른 Python 답변에 대한 @xnor의 팁 덕분에! (방금 모두 비슷하게 보인다는 것을 깨달았습니다.)

편집 2 : 다시 감사합니다, @xnor.


이것은 무한 루프를 제공합니다. f(x)항상 즉시 호출하지는 않는 일종의 제어 흐름이 필요 합니다 f(x-1).
xnor

@xnor는 코드를 수정했습니다.
Soham Chowdhury

1
이것은 첫 번째 n 용어가 아닌 n 번째 용어를 반환하는 것으로 보입니다.
Dennis

일부 미성년자 저장합니다 : t=0에 선택적 매개 변수로 갈 수 있습니다 f, 그리고 t=t+할 수 있습니다 t+=.
xnor

2

당연 : 122 개 118 111 문자를

골프 :

m=args[0] as int
a=[0]
(1..m-1).each{n->b=a[n-1];x=b-n;(x>0&!(x in a))?a[n]=x:(a[n]=b+n)}
a.each{print "$it "}

언 골프 드 :

m = args[0] as int
a = [0]
(1..m-1).each { n->
    b = a[n-1]
    x = b-n
    ( x>0 & !(x in a) ) ? a[n] = x : (a[n] = b+n) 
}
a.each{print "$it "}

샘플 실행 :

bash$ groovy Rec.groovy 14
0 1 3 6 2 7 13 20 12 21 11 22 10 23

2

클로저 : 174 자

골프 :

(defn f[m a](let[n(count a)b(last a)x(- b n)y(if(and(> x 0)(not(.contains a x)))x(+ b n))](if(= m n)a(f m(conj a y)))))(println(f(read-string(first *command-line-args*))[0]))

언 골프 드 :

(defn f[m a]
  (let [n (count a) 
        b (last a) 
        x (- b n) 
        y (if (and (> x 0) (not (.contains a x))) x (+ b n)) ]
    (if (= m n) a (f m (conj a y))) ) )

(println (f (read-string (first *command-line-args*)) [0]) )

샘플 실행 :

bash$ java -jar clojure-1.6.0.jar rec.clj 14 
[0 1 3 6 2 7 13 20 12 21 11 22 10 23]

1
STDIN에서 읽지 말고 대신 정수 인수를 함수 ylet사용하는 것이 좋습니다.
NikoNyrh

2

Mathcad, 54 "바이트"

enter image description here


사용자 관점에서 Mathcad는 효과적으로 왼쪽에서 오른쪽으로, 위에서 아래로 평가되는 2D 화이트 보드입니다. Mathcad는 일반적인 "텍스트"입력을 지원하지 않지만 대신 텍스트와 특수 키 / 도구 모음 / 메뉴 항목의 조합을 사용하여 표현식, 텍스트, 플롯 또는 구성 요소를 삽입합니다. 예를 들어 ":"을 입력하여 정의 연산자 (화면에 ": ="로 표시됨)를 입력하거나 "ctl-shft- #"을 입력하여 for 루프 연산자를 입력하십시오 (반복 변수, 반복 값 및 하나의 본문에 대한 자리 표시 자 포함) 표현). 위 이미지에서 볼 수있는 것은 사용자 인터페이스에 표시되고 "입력 된"것으로 정확하게 나타납니다.

골프 목적으로 "바이트"수는 식을 입력하는 데 필요한 키보드 조작 수와 같습니다.


그게 다야 잘 좋은 ,하지만 있는 실제 키는?
조 왕


2

Stax , 19 바이트

É╖C8½ΔL▄░▬L+≡ΩSa⌂¼╧

실행 및 디버깅

포장을 풀고 포장을 풀고 주석을 달았습니다. 스택에서 지금까지 시퀀스를 유지하고 A(n - 1)X 레지스터를 기억 합니다. 반복 색인이에 사용됩니다 n. 처음에는 0이지만 특수한 경우없이 0을 생성하므로 off-by-1 인덱스를 조정할 필요가 없습니다.

0X      push 0 to main stack and store it in X register, which will store A(n - 1)
z       push an empty array that will be used to store the sequence
,D      pop input from input stack, execute the rest of the program that many times
  xi-Y  push (x-register - iteration-index) and store it in the Y register
        this is (A(n - 1) - n)
  0>    test if (A(n - 1) - n) is greater than 0 (a)
  ny#   count number of times (A(n - 1) - n) occurs in the sequence so far (b)
  >     test if (a) > (b)
    y   (A(n - 1) - n)
    xi+ A(n - 1) + n
  ?     if/else;  choose between the two values based on the condition
  X     store the result in the X register
  Q     print without popping
  +     append to sequence array

이것을 실행하고 디버그하십시오


흥미 롭군 이것은 어떻게 작동합니까?
밝게 돈

1
@donbright : 주석과 설명이 추가되었습니다.
재귀


2

Pyth , 24 바이트

tu+G-eG_W|g0J-eGH}JGHQ]0

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

tu+G-eG_W|g0J-eGH}JGHQ]0   Implicit: Q=eval(input())
 u                   Q     Reduce [0-Q)...
                      ]0   ... with initial value G=[0], next value as H:
              eG             Last value of G (sequence so far)
             -  H            Take H from the above
            J                Store in J
          g0J                0 >= J
                 }JG         Is J in G?
         |                   Logical OR of two previous results
       _W           H        If the above is true, negate H, otherwise leave as positive
    -eG                      Subtract the above from last value in G
  +G                         Append the above to G
                           The result of the reduction is the sequence with an extra leading 0
t                          Remove a leading 0, implicit print

1

파워 쉘 (103)

$n=Read-Host;$a=@(0);$n-=1;1..$n|%{$x=$a[-1]-$_;if($x-gt0-and!($a-like$x)){$a+=$x}else{$a+=$x+2*$_}};$a

여기에 또 다른 '단어'구현도 있습니다. 놀랍게도 PowerShell에서도 읽을 수 있습니다.

시퀀스는 배열 $ a에 저장되고 한 줄에 한 항을 인쇄합니다.

우리가 문장 $a-join","을 실행하면 $ n = 20의 경우

0,1,3,6,2,7,13,20,12,21,11,22,10,23,9,24,8,25,43,62

1

C # : 140 자

int i,w,t,y;int[]F(int n){var r=new int[n--];for(;i<n;y=0){w=r[i++]-i;for(t=0;y<i&&t<1;)t=w==r[y++]?1:0;r[i]=w>0&&t<1?w:r[i-1]+i;}return r;}

1

C ++ : 180 자 (cin 및 cout 문이없는 158 자)

int a[5000000][2]={0},i,k,l;a[0][0]=0;a[0][1]=1;cin>>k;for(i=1;i<=k;i++){l=a[i-1][0];if(l-i>0&&a[l-i][1]!=1){ a[i][0]=l-i;a[l-i][1]=1;}else{ a[i][0]=l+i;a[l+i][1]=1;}cout<<a[i][0]<<endl;

프로그래밍 퍼즐 및 코드 골프 스택 교환에 오신 것을 환영합니다! 여기의 다른 답변에 표시된 것처럼 솔루션의 문자 / 바이트 수를 헤더로 편집하십시오. 또한 가능한 한 코드를 골프화하십시오 (예 : 공백을 제거하여 문자 수를 줄이십시오). 감사!
Doorknob

그래, 내가 할게
Abhay Jain

1

수학-81 바이트

Fold[#~Append~(#[[-1]]+If[#[[-1]]>#2&&FreeQ[#,#[[-1]]-#2],-#2,#2])&,{0},Range@#]&

용법

Fold[#~Append~(#[[-1]]+If[#[[-1]]>#2&&FreeQ[#,#[[-1]]-#2],-#2,#2])&,{0},Range@#]&[30]
{0,1,3,6,2,7,13,20,12,21,11,22,10,23,9,24,8,25,43,62,42,63,41,18,42,17,43,16,44,15,45}

1

PHP , 89 바이트

$f=function($n){for(;$i<$n;$s[$r[$i++]=$p=$m]=1)if($s[$m=$p-$i]|0>$m)$m=$p+$i;return$r;};

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

언 골프 드 :

$f = function ($n) {
    for (; $i < $n; $s[$r[$i++] = $p = $m] = 1) {
        if ($s[$m = $p - $i] | 0 > $m) {
            $m = $p + $i;
        }
    }

    return $r;
};
  • $r 내 결과를 위해
  • $s 톱을 추적
  • $p 이전 가치
  • $m m의 EXT 값

1

공통 LISP (139 바이트)

(defun r(n)(do*(s(i 0(1+ i))(a 0(car s))(b 0(- a i)))((> i n)(nreverse s))(push(cond((= 0 i)0)((and(> b 0)(not(find b s)))b)(t(+ a i)))s)))

언 골프 드 :

(defun recaman (n)
  (do*
   (series               ; starts as empty list
    (i 0 (1+ i))         ; index variable
    (last 0 (car s))     ; last number in the series
    (low 0 (- last i)))

   ((> i n)              ; exit condition
    (nreverse series))   ; return value

    (push                ; loop body
     (cond
       ((= 0 i) 0)       ; first pass
       ((and
         (> low 0) (not (find low s)))
        low)
       (t (+ last i)))
     series)))
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.