世界は5 x 5のセルの配列です。四方を包みます。次のように視覚化できます...

XXXXX
XXXXX
XXOXX
XXXXX
XXXXX

あなたはOです。あなたは世界を旅行するのが大好きで、次のルールに従って旅行をします（Cを当日とします）。

• でプライムの日、あなたは懐かしい感じ。昨日始めたところに戻ります。
• で奇数日、あなたはホームシックを感じます。可能であれば、水平方向に1ステップ移動し、可能であれば、垂直方向に1ステップ移動します。近さを判断する目的で、ワールドラッピングを無視します。
• 日、あなたは冒険を感じます。C / 2ステップ南に移動します。
• 上の四角の日、あなたは冒険を感じます。東の壁に移動します。
• 上のフィボナッチ日、世界は1行で南下拡大します。
• 上三角日、世界は一つの列で東へ拡大します。

上記のルールのうち2つ以上が同時に適用される場合は、リストされている順に適用します。たとえば、奇数のプライムデイでは、昨日始めた場所に最初に戻り、次に家に一歩近づきます。

あなたは、（最初​​の）世界の中心、すなわち北西の角からゼロインデックスの位置（2,2）に住んでいます。そこから旅を始めます。

入力

単一の整数、N。

出力

XとYは、北西隅からゼロのインデックスが付けられ、1つのスペースで区切られたN日目に調整されます。

説明付きテストケース

の入力が与えられた3場合、正しい出力は次のとおりです。

2 3

私たちは一度に1日これをやり遂げることができます。1日目から、次の動きを適用する必要があります。

1. 奇数、正方形、フィボナッチ、および三角形
2. プライム、イーブン、フィボナッチ
3. プライム、奇数、フィボナッチ、および三角形

視覚的な形式：

     1日目2日目3日目
XXXXX XXXXXX XXXXXX XXXXXXX
XXXXX XXXXXX XXXXXX XXXXXXX
XXOXX-> XXXXOX-> XXXXXX-> XXXOXXX
XXXXX XXXXXX XXOXXX XXXXXXX
XXXXX XXXXXX XXXXXX XXXXXXX
           XXXXXX XXXXXX XXXXXXX
                       XXXXXX XXXXXXX
                                   XXXXXXX

追加のテストケース

礼儀マーティンBüttnerの参照溶液（あなたは出力は、単一のそれらのすべてではなく、座標べきであるとしてください。注）：

Input:  1     2     3     4     5     6     7     8     9     10    11    12    13    14     15    16    17    18    19    20    21    22    23
Output: 4 2   2 3   3 2   6 4   2 2   2 5   2 2   2 6   7 5   7 0   6 4   6 0   5 3   5 10   4 9   9 6   3 8   3 6   2 7   2 6   2 5   2 4   2 4

これはコードゴルフです。最短の提出が勝ちです。

Pyth、157 156 153バイト

=Z=b5aYA,2 2FNtUhQI&!tPN<1NA@Y_2)Iq*2/N2NA,G%+H/N2b)EL-+b<b2<2bAyM,GH)J@N2Iq/NJJA,tZH)=TU2W<hTNIqNeT=hbBE=TX_T1sT))=J0W!<NJIqN/*JhJ2=hZBE=hJ))aY(GH;jd,GH

こちらで試してみることができます。

これはゴルフにとって楽しい問題でした！私はまだPythに慣れていますが、それは本当に素晴らしい言語です。

Haskell、394バイト

z=0<1
p d y c|all((0<).mod d)[2..d-1]=y|z=c
g x=x-signum(x-2)
e d(x,y)h|odd d=(g x,g y)|z=(x,mod(y+div d 2)h)
s d c@(_,y)w|d==(floor$sqrt$fromIntegral d)^2=(w-1,y)|z=c
f d a b m|b>d=m|b==d=(+1)<$>m|z=f d b(a+b)m
d%m@(w,h)|elem d[div(n*n-n)2|n<-[1..d+1]]=(w+1,h)|z=m
i=fst.c
j=snd.c
c d|d<1=((2,2),(5,5))|z=(s d(e d(p d(i$d-2)$i$d-1)$snd$j$d-1)$fst$j$d-1,d%(f d 1 1$j$d-1))
main=readLn>>=print.i

それは間違いなく最適化でき、また正確性を迅速にチェックした後も可能です。 投稿されたものとは異なる結果が得られているようです。時間があるときに戻って、コードを徹底的にチェックします^^

ところですてきな問題！

編集：Zgarbから与えられた貴重なアドバイスを考慮して、ソリューションを編集しました。今では完全に動作します！

EDIT2：おかげnimi私は、コードがさらに小さくなりました。また、2つの関数ではなく、1つの関数で偶数と奇数のチェックを行っているため、全体的にカウントが446バイトから414バイトに減少します。

EDIT3：414バイトから400バイトにさらに改善されました。さらに2バイトのnimiに感謝します、あなたは燃えています！:)

EDIT4：で4バイト以上nimi :)

C、425 396バイト

typedef struct{int x,y,b,r}c;S,p,n;s(d){return(S=sqrt(d))*S==d;}c m(d){if(!d)return(c){2,2,4,4};c q,l=m(d-1);for(p=1,n=d;--n;p=p*n*n%d);if(p&&d>1)q=m(d-2),l.x=q.x,l.y=q.y;if(d%2)l.x-=l.x>2?1:l.x<2?-1:0,l.y-=l.y>2?1:l.y<2?-1:0;else l.y+=d/2,l.y=l.y>l.b?l.y-l.b-1:l.y;if(s(d))l.x=l.r;if(s(5*d*d+4)||s(5*d*d-4))l.b++;if(s(8*d+1))l.r++;return l;}main(i){scanf("%d",&i);printf("%d %d",m(i).x,m(i).y);}

これには改善できる部分がありますが、テストケースでは機能します。

説明

typedef struct {
    int x,y,b,r
} c; //c will hold the information for each day

//determines if a number is a perfect square
S,p,n;
s(d) {
    return (S=sqrt(d))*S==d;
}

c m(d) {
    if(!d)
        return (c){2,2,4,4}; //returns the initial information if the day is 0

    c q,l=m(d-1); //gets the information for the previous day
    for (p=1,n=d;--n;p=p*n*n%d); //tests if the number is prime

    if (p&&d>1)
        q=m(d-2),l.x=q.x,l.y=q.y; //changes the position to what it was at the end of the day 2 days ago if the day is prime
    if (d%2)
        l.x-=l.x>2?1:l.x<2?-1:0,l.y-=l.y>2?1:l.y<2?-1:0; //moves the position towards (2,2) if the day is odd
    else
        l.y+=d/2,l.y=l.y>l.b?l.y-l.b-1:l.y; //moves down if the day is even
    if (s(d))
        l.x=l.r; //moves east if the day is a perfect square
    if (s(5*d*d+4)||s(5*d*d-4))
        l.b++; //expands world down if the day is a fibonacci number
    if (s(8*d+1))
        l.r++; //expands world right if the day is a triangular number
    return l;
}

main(i) {
    scanf("%d",&i);
    printf("%d %d",m(i).x,m(i).y);
}

Perl 5、284バイト

@s=([2,2]);@n=(2,2);@f=(0,1);$w=$h=5;for(1..<>){$f[$_+1]=$f[$_]+$f[$_-1];$t[$_]=$_*($_+1)/2;$s[$_]=[@n];@n=@{$s[$_-1]}if(1 x$_)!~/^1$|^(11+?)\1+$/;($_%2)&&($n[0]-=($n[0]<=>2),$n[1]-=($n[1]<=>2))or$n[1]=($n[1]+$_/2)%$h;$n[0]=$w-1if(int sqrt$_)**2==$_;$h++if$_~~@f;$w++if$_~~@t}say"@n"

283バイト、および-Eフラグの代わりに1-e

同じコードですが、空白、括弧、変数名が長くなっています：

@start=([2,2]);
@now=(2,2);
@fibonacci=(0,1);
$width = ($height=5);
for my $iterator (1 .. <>) {
  $fibonacci[$iterator+1] = $fibonacci[$iterator] + $fibonacci[$iterator-1];
  $triangular[$iterator] = $iterator * ($iterator+1) / 2;
  $start[$iterator] = [@now];
  @now = @{ $start[$iterator-1] } if ((1 x $iterator) !~ /^1$|^(11+?)\1+$/); # prime
  $now[0] -= ($now[0] <=> 2) , $now[1] -= ($now[1] <=> 2) if ($iterator % 2 != 0); # odd
  $now[1] = ($now[1] + $iterator / 2) % $height if ($iterator % 2 == 0); # even
  $now[0] = $width - 1 if ((int sqrt $iterator) ** 2 == $iterator); # square
  $height ++ if $iterator ~~ @fibonacci;
  $width ++ if $iterator ~~ @triangular;
}
say "@now";

これはさらにゴルフができると確信しています。

Javascript、361 359バイト

N=>{for(c=1,x=y=v=w=j=k=2,h=z=5;c<=N;c++,j=v,k=w,v=x,w=y){m=Math;p=(n,c)=>n%c!=0?c>=n-1?1:p(n,++c):0;[x,y]=c==2||p(c,2)&&c!=1?[j,k]:[x,y];p=x=>x+(x<2?1:x>2?-1:0);c%2?[x,y]=[p(x),p(y)]:y+=c/2;m.sqrt(c)==~~m.sqrt(c)?x=z-1:0;f=(n,c,d)=>d<c?0:d==c?1:f(c,n+c,d);f(1,2,c)||c==1?h++:0;t=(n,c)=>n*++n/2==c?1:--n*n/2>c?0:t(++n,c);t(1,c)?z++:0;x%=z;y%=h}return x+" "+y}

コードでは、Destructuring assignmentを使用します。現在、FirefoxとSafariでのみサポートされています。

説明

N=>{
// C => the day, x,y => position, v,w => position at the start of the day, 
// j,k => position of yesterday
for(c=1,x=y=v=w=j=k=2,h=z=5;c<=N;c++,j=v,k=w,v=x,w=y){
    m=Math;

    // Prime Function for C > 2. Recursive call to save a loop.
    p=(n,c)=>n%c!=0?c>=n-1?1:p(n,++c):0;
    // Assign x and y to yesterday
    [x,y]=c==2||p(c,2)&&c!=1?[j,k]:[x,y];

    // Function to move closer to home
    p=x=>x+(x<2?1:x>2?-1:0);
    c%2?[x,y]=[p(x),p(y)]:y+=c/2;

    // Square check
    m.sqrt(c)==~~m.sqrt(c)?x=z-1:0;

    // Fibonnacci function for C > 1
    f=(n,c,d)=>d<c?0:d==c?1:f(c,n+c,d);
    f(1,2,c)||c==1?h++:0;

    // Triangle function
    t=(n,c)=>n*++n/2==c?1:--n*n/2>c?0:t(++n,c);
    t(1,c)?z++:0;

    // Stay in bounds
    x%=z;y%=h
}
// Output
return x+" "+y}