Світ - це масив п’ять на п’ять. Він обгортається з усіх боків. Його можна візуалізувати, як ...

XXXXX
XXXXX
XXOXX
XXXXX
XXXXX

Ви - О. Ви любите подорожувати світом, і робите це за такими правилами (нехай C - поточний день):

• У найпростіші дні ви відчуваєте ностальгію. Поверніться туди, де ви почали вчора.
• У непарні дні ви відчуваєте себе домашніми. Перемістіть один горизонтальний крок ближче до будинку, якщо це можливо, і один вертикальний крок ближче до будинку, якщо це можливо. Ігноруйте загортання світу з метою визначення близькості.
• На навіть днів, ви відчуваєте пригод. Переїзд C / 2 кроки на південь.
• У квадратні дні ви відчуваєте пригоди. Перемістіться до східної стіни.
• У дні Фібоначчі світ розширюється на південь на один ряд.
• У трикутні дні світ розширюється на схід однією колоною.

Якщо два чи більше вищезазначених правил застосовуватимуться одночасно, застосуйте їх у зазначеному порядку. Наприклад, у непарний простий день спочатку поверніться туди, де ви почали вчора, а потім перейдіть на крок ближче до дому.

Ви живете в центрі (початкового) світу, тобто позиції (2,2), нульової індексації від північно-західного кута. Ви починаєте свою подорож там першого дня.

Вхідні дані

Єдине ціле число, Н.

Вихідні дані

Ваші X і Y координують на N-й день, нульовий індексування від північно-західного кута, розділене єдиним пробілом.

Тестовий випадок із поясненням

З огляду на введення 3, правильний вихід:

2 3

Ми можемо працювати над цим один день. Починаючи з першого дня, нам потрібно застосувати такі кроки:

1. Непарні, квадратні, фібоначчі та трикутні
2. Прайм, рівний і Фібоначчі
3. Простий, непарний, фібоначчі і трикутний

У візуальній формі:

     1 день 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

Додаткові випробувальні випадки

Надано Martin Büttner «s еталонного розчину (будь ласка , зверніть увагу , що ви повинні виводитися тільки одна координата, не всі з них):

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

Це однозначно можна оптимізувати, а також після швидкої перевірки на правильність схоже, я отримую інші результати, ніж опублікований. Я повернусь і більш ретельно перевірю свій код, коли у мене буде більше часу ^^

Приємна проблема, до речі!

EDIT: редагував моє рішення з урахуванням дорогоцінних порад, даних Згарбом . Зараз це прекрасно працює!

EDIT2: завдяки Ними я зробив код ще менше. Зараз я також роблю перевірки на парність і непарність в одній функції замість двох, яка в цілому зменшує кількість з 446 до 414 байт.

EDIT3: додатково покращено з 414 до 400 байт. Дякую німі за ще 2 байти, ти загорівся! :)

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 байти, плюс 1 для -Eпрапора замість-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}

У коді використовується призначення деструктуризації . Зараз він підтримується лише у 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}