Людина з зірок прийшов на Землю! На щастя, президент США Дональд Трамп має нескінченну загибель. Використовуючи цю мертву, він може вигадати номер, який ви , мер Подунка , повинні використати, щоб визначити, кого слід відправити, щоб зупинити окупанта! Але будьте обережні, ви можете надсилати лише обмежену кількість байтів на звороті жаби !

З огляду на дані користувача (яке буде цілим числом), ви повинні повернути рядок залежно від того, в якій категорії знаходиться номер.

• Якщо число є числом Фібоначчі , ви повинні вивести Ness .
• Якщо число є номером Лукаса , потрібно вивести Лукас .
• Якщо число одночасно число Лукаса і число Фібоначчі , то необхідно вивести Travis .
• Якщо число не є ні aa Лукас число, ні a число Фібоначчі , то необхідно вивести Пеппі .

Приклади

Ось купа тестів:

1 => Тревіс
2 => Тревіс
3 => Тревіс
4 => Лукас
5 => Несс
6 => Пеппі
7 => Лукас
8 => Несс
610 => Несс
722 => Пеппі
843 => Лукас

Правила

• Це кодовий гольф , найкоротша відповідь у байтах виграє.
• Програма може бути повноцінною програмою або (n анонімною) функцією.

Бонуси

Є кілька бонусів, які ви можете використати, щоб допомогти вашій жабі швидше отримати дані президенту Трампу:

• Для -15байтів: Якщо вхідне число є 2016, ви повинні вивести Trump, оскільки він знаходиться на піку свого президентства.

Pyth, 59 - 15 = 44 байти

або 42 байти після виправлення помилки

&Qr@c."av�a�(s��kW���"\b?q2016Q4/hMst*2.uL,eNsNQ_BS2Q4

Hexdump:

0000000: 2651 7240 632e 2261 7601 c061 15dc 2873  &Qr@c."av..a..(s
0000010: fde0 6b57 8bd0 a1ed ed0f 225c 623f 7132  ..kW......"\b?q2
0000020: 3031 3651 342f 684d 7374 2a32 2e75 4c2c  016Q4/hMst*2.uL,
0000030: 654e 734e 515f 4253 3251 34              eNsNQ_BS2Q4

Перші два символи ( &Q) необхідні через помилку розбору Pyth, яка створюється Qпісля ."відмови. Виправлено застосовано виправлення. Якщо інтерпретатор після помилок дозволений, -2 байти.

Без нечитабельного стискання рядків:

Pyth, 63 - 15 = 48 байт

49 байт без Трампа

@c"Pippi Ness Lucas Travis Trump")?nQ2016/hMst*2.uL,eNsNQ_BS2Q4

Тестовий сюїт

Досить просто, просто генеруйте послідовності, копіюйте та перевіряйте на членство.

Послідовності генеруються, починаючи з [1, 2]і [2, 1], а потім застосовуючи правило волонтера.

Джулія, 146 142 121 120 байт

n->split("Pippi Lucas Ness Travis")[2any(isinteger,sqrt([5n^2+4,5n^2-4]))+(n∈[2;[(g=golden)^i+(-g)^-i for i=1:n]])+1]

Це створює неназвану функцію, яка повертає булева. Щоб зателефонувати, дайте ім’я, наприклад f=n->....

Безголівки:

function trump(n::Integer)
    # Determine if n is a Fibonacci number by checking whether
    # 5n^2 ± 4 is a perfect square
    F = any(isinteger, sqrt([5n^2 + 4, 5n^2 - 4]))

    # Determine if n is a Lucas number by generating Lucas
    # numbers and testing for membership
    # golden is a built-in constant containing the golden ratio
    L = n ∈ [2; [golden^i + (-golden)^-i for i = 1:n]]

    # Select the appropriate Earthbound charater using array
    # indexing on a string split into an array on spaces
    return split("Pippi Lucas Ness Travis")[2F+L+1]
end

Виправлена ​​проблема та збережено 7 байт завдяки Glen O!

Mathematica 143 156 - 15 (бонус) = 141 байт

З 2 байтами збережено завдяки LegionMammal978.

t_~g~l_:=(r=1<0;n=1;While[(z=l@n)<=t,If[z==t,r=1>0];n++];r);a=g[k=Input[],LucasL];
b=k~g~Fibonacci;Which[k==2016,Trump,a&&b,Travis,a,Lucas,b,Ness,2<3,Pippi]

Математика, 92 87 байт

Натхненний відповіддю Sp3000 .

Travis[Ness,Lucas,Pippi][[{2,1}.Product[Abs@Sign[{Fibonacci@n,LucasL@n}-#],{n,0,2#}]]]&

Пітон 2, 107

f=lambda i,n=input():abs(5*n*n+i)**.5%1>0
print["Travis","Lucas","Ness","Pippi"][f(4)*f(-4)+2*f(20)*f(-20)]

Ключ - це два суто арифметичні перевірки чисел Фібоначчі та Лукаса:

• n- це число Фібоначчі, якщо 5*n*n+4або 5*n*n-4 є квадратом
• nце число Лукаса точно , якщо 5*n*n+20і 5*n*n-20є квадратом

На цьому сайті є доказові ескізи .

Отже, вихід залежить від значень 5*n*n+iдля iв {4,-4,20,-20}. Функція fперевіряє значення i, перевіряючи , якщо відповідне значення НЕ має цілих чисел квадратний корінь absзнаходиться там тільки , щоб уникнути помилки взяття кореня з негативного для n=1, i=-20.

Функція fприймає значення числа nдля тестування на STDIN. Python оцінює це лише один раз, а не один раз на виклик функції.

Чи є число не Фібоначчі, оцінюється як f(4)*f(-4)використання неявного булевого перетворення чисел і аналогічно для не Лукаса, і береться відповідна рядок. Якщо дозволено пробіли, слід перемежування рядків буде коротшим.

Python 2, 117 байт

F=[1]
L=[2,1]
n=input()
exec 2*n*"F,L=L+[sum(L[-2:])],F;"
print["Pippi","Lucas","Ness","Travis"][(n in F)*2+(n in L)]

Для рядкового списку "Pippi Lucas Ness Travis".split()однакова довжина.

CJam, 58 55 54 байт

ri5Zbe!f{1${_-2>:++}*&!}2b"Travis Ness Lucas Pippi"S/=

Наївний підхід генерування чисел Фібоначчі і Лукаса, а потім підрахунок випадків в обох, перетворення на двійкові та підбір відповідного рядка.

Спробуйте в Інтернеті .

Серйозно, 69 байт

,;;r`;F@2+F+`M2@q@#"%d="%£MΣ@f0≤2*+["Pippi","Lucas","Ness","Travis"]E

Перед цим викликом Серйозно мав вбудований f(індекс у числах Фібоначчі, -1 якщо не число Фібоначчі) ... але не індекс у списку або "знаходиться в списку"! (З тих пір додано як í.)

Як результат, саме це я витрачаю на пошук, якщо вхід - це число Фібоначчі:

,                              f0≤

Це те, що я витрачаю на створення списку номерів Лукаса:

  ;r`;F@2+F+`M2@q

І це те, що я витрачаю на пошук, якщо вхід є у списку номерів Лукаса:

 ;                @#":%d:="%£MΣ

Це рядок, який форматується за допомогою позначення% Python в щось подібне :610:=, і перетворюється на функцію, яка потім відображається через масив і підсумовується. (Номери Лукаса унікальні, тому сума завжди дорівнює 0 або 1.)

Дякуємо @Mego за останній біт із форматуванням рядків.

Перл, 133 (146-15 =) 131 (144-15 =) 129 (136-15 =) 121 байт

+1 байт для -nпрапора.

$a=$d=1;$b=$c=2;$f+=$_==$a,$l+=$_==$c,($a,$b,$c,$d)=($b,$a+$b,$d,$c+$d)while$a<$_*9;say$_-2016?(Pippi,Ness,Lucas,Travis)[$f+$l*2]:Trump

З новими рядками після крапки з комою для читабельності:

$a=$d=1;$b=$c=2;
$f+=$_==$a,$l+=$_==$c,($a,$b,$c,$d)=($b,$a+$b,$d,$c+$d)while$a<$_*9;
say$_-2016?(Pippi,Ness,Lucas,Travis)[$f+$l*2]:Trump

Демонстрація:

llama@llama:...code/perl/ppcg64476trump$ for x in 1 2 3 4 5 6 7 8 610 722 843 2016; do echo -n "$x => "; echo $x | perl -n trump.pl; done
1 => Travis
2 => Travis
3 => Travis
4 => Lucas
5 => Ness
6 => Pippi
7 => Lucas
8 => Ness
610 => Ness
722 => Pippi
843 => Lucas
2016 => Trump

Прийоми:

• Ви можете бути здивовані , чому мої змінні називаються $a, $b, $%, і $d. Це відмінне запитання! Насправді це дозволяє мені зберегти байт.

  (stuff) ... ,$l+=$_==$%while$a<$_

  є на один байт коротше

  (stuff) ... ,$l+=$_==$c while $a<$_

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

• $_-2?$f+$l*2:3м'яко цікаво. В основному, мені довелося робити особливий регістр 2для номерів Лукаса, оскільки моя програма перевіряє, чи є це число Лукаса після "оновлення" чисел Фібоначчі та Лукаса. Так 2вважалося номером не Лукаса. $_-2?foo:barє знаком коротшим, ніж $_==2?bar:foo. Те ж саме використовується для 2016тесту.

  Це також більше не відповідає дійсності, тому що я зміг реструктурувати програму, щоб не вимагати спеціального обкладинки 2. Але я все-таки використовую $_-2016?stuff:Trumpзамість $_==2016?Trump:stuff, що на один байт довше.

• Якщо говорити про це, вам може бути цікаво, як я здійснив цю перебудову. Щойно я змусив програму зробити в 9 разів більше ітерацій, ніж потрібно, що коштує лише 2 байти ( *9), але дозволяє мені робити припущення в інших місцях, які допомагають знизити гольф.

• Оскільки змінні за замовчуванням до нуля,

  $f+=$_==$a

  коротше, ніж

  $f=1if$_==$a

• Perl підтримує базові слова, тому мені не доведеться цитувати жодних моїх рядків (\ o /).

Джулія, 101 100 байт

n->split("Pippi Lucas Ness Travis")[[2;1]⋅(sum(i->[i[];trace(i)].==n,Any[[1 1;1 0]].^(0:n)).>0)+1]

Безголівки:

function f(n)
  k=Any[[1 1;1 0]].^(0:n) # Produces characteristic matrices of Fibonacci
                          # numbers from 0 to n
  F=sum(i->i[]==n,k)      # Check if n is a Fibonacci number by checking
                          # the first value in each matrix for n
  L=sum(i->trace(i)==n,k) # Check if n is a Lucas number by checking
                          # the trace of each matrix for n
  I=[2;1]⋅[F;L]+1         # Calculate 2F+L+1, which is the index for the next step
  S=split("Pippi Lucas Ness Travis") # Creates array with four strings
                          # saves a byte compared with directly creating array
  return S[I]
      # This uses the above calculations to determine which of the four to return
end

Октава, 93 байти

@(n){'Pippi','Lucas','Ness','Travis'}{(1:2)*any(~rem(real(sqrt(5*n^2+[-20,-4;20,4])),1)).'+1}

Цей підхід схожий на мою відповідь MATLAB за винятком того, що Octave дозволяє вам індексувати безпосередньо в новий масив:

{'a', 'b', 'c'}{2}    %// b

MATL (неконкурентоспроможний), 57 55 54 (67-15) = 52 байти

20Kht_vi2^5*+X^Xj1\~a2:*sG2016=-'Lucas Ness Travis Trump Pippi'Ybw)

Спробуйте в Інтернеті!

Пояснення

Знову ж, подібна логіка до інших моїх відповідей тут і тут .

20      % Number literal
K       % Retrieve the number 4 from the K clipboard (the default value)
h       % Horizontal concatenation to produce [20 4]
t       % Duplicate elements
_v      % Negate and vertically append elements (yields [20, 4; -20 -4])
i2^     % Explicitly grab the input and square it
5*      % Multiply by 5
+       % Add this to the matrix ([20, 4; -20 -4])
X^      % Take the square root
Xj      % Ensure that the result is a real number
1\      % Get the decimal component
~       % Create a logical arrays where we have TRUE when no remainder
a       % For each column determine if any element is TRUE
2:      % Create the array 1:2
*       % Perform element-wise multiplication with boolean
s       % Sum the result to yield an index
G       % Explicitly grab the input (again)
2016=   % Check to see if it is 2016 (yields TRUE (1) if equal)
-       % Then subtract the boolean from the index. Since 2016 is NOT a
        % Fibonacci or Lucas number, the original index is 0. Subtracting
        % this boolean, will make this index now -1. For all other non-2016
        % numbers this will have no effect on the index.
'Lucas Ness Travis Trump Pippi' % Create the possible strings values 
        % Note: the 0 index wraps around to the end hence Pippi being at the end.
        % The next to last entry ('Trump') is ONLY accessible via a -1 index as
        % discussed above
Yb      % Split at the spaces to create a cell array
w       % Flip the top two stack elements
)       % Retrieve the desired value from the cell array

C ++ 11, 176 + 15 (#include) = 191

#include<mutex>
[](int n){std::function<int(int,int)>c=[&](int f,int s){return f-s>n?0:s-n?c(s,f+s):1;};int l=c(2,1),f=c(1,1);l&f?puts("Travis"):l?puts("Lucas"):f?puts("Ness"):puts("Pippi");}

Безголовка з використанням. Я можу додати пояснення, якщо просять завтра, gtg спати зараз!

#include <functional>
#include <cstdio>
int main()
{
    auto r = [](int n)
    {
        std::function<int(int, int)> c = [&](int f, int s)
        {
            return f - s > n ? 0 : f - n ? c(s, f + s) : 1;
        };
        int l = c(2, 1), f = c(1, 1);
        l & f ? puts("Travis") : l ? puts("Lucas") : f ? puts("Ness") : puts("Pippi");
    };

    for (int i : { 1, 2, 3, 4, 5, 6, 7, 8, 610, 722, 843 })
    {
        printf("%i - ", i); r(i);
    }
}

Javascript (ES6), 108 байт

x=>(f=(a,x,y)=>a==y||a==x?1:a<y?0:f(a,y,x+y),b=f(x,0,1),c=f(x,2,1),b&&c?'Travis':b?'Ness':c?'Lucas':'Pippi')

Ця ж функція для Фібонач і Лукаса. Це рекурсивна функція, яка приймає перші два значення як init.

Java, 151 байт

Ви можете стверджувати, що Трамп ніколи не передаватиме це вирішальне рішення, тому нам не доведеться оприлюднювати цей метод, економлячи ще 7 байт.

public String t(int n){return"Pippi,Lucas,Ness,Travis".split(",")[2*f(n,1,1)+f(n,2,1)];}int f(int a,int x,int y){return a==x||a==y?1:a<y?0:f(a,y,x+y);}

Ungolfed, включаючи виклик основного тесту

public class Trump {

    //Test Invokation
    public static void main(String[] args) {
        int[] n = {1, 2, 3, 4, 5, 6, 7, 8, 610, 722, 843, 2016 };
        for(int i = 0; i < n.length; ++i) {
            System.out.println(""+ n[i] + " => " + new Trump().t(n[i]));
        }
    }


    public String t(int n) {        
        return "Pippi,Lucas,Ness,Travis".split(",")[2*f(n,1,1)+f(n,2,1)];               
    }
    int f(int a,int x,int y) {             
        return a==x||a==y?1:a<y?0:f(a,y,x+y);           
    }

}

Поки що я не знайшов способу тестувати 2016 рік і повернути "Трамп" у коді, який менше 15 байт у коді.

C (gcc) ,  128   120   116  110 байт

a;b;o;f(n){for(o=b=0,a=1;a<=n;b=a+b,a=b-a)o|=(b==n)+2*(2*a+b==n);n=o?o-1?o-2?"Travis":"Lucas":"Ness":"Pippi";}

Спробуйте в Інтернеті!

Пояснення

Назвемо F(n)n-е число Фібоначчі і L(n)n-е число Лукаса.
a, bЄ F(n-1), F(n)відповідно.
Тоді ми можемо обчислити, що L(n) == F(n-1)+F(n+1) == 2*F(n-1) + F(n) == 2*a+b
ця функція послідовно обчислює числа Фібоначчі та Лукаса, до nта перевіряє, чи nє хтось із них.
Якщо nце число Фібоначчі, 1-й біт oбуде встановлено на 1
Якщо nце число Лукаса, 2-й біт oбуде встановлено на1
o , а потім буде використаний для визначення, яке ім'я виводити

Редагувати

• Збережено 8 байтів, перегравши стан for-петлі: починаючи з другої ітерації, у нас є a<b<cі a<a+c=L(n)так ( b<=n || a+c<=n ) => a<n. Мені справді потрібно a<=nбуло правильно поводитисяn=1
• Збережено 4 байти завдяки плафоні! (також виправили помилку, мій код виводив "2 => Несс")
• Збережено 6 байт:
  • 2 знову завдяки стельовій кішці
  • 4, видаливши змінну c, рівну F(n+1), яка була марною, оскільки ми вже можемо обчислити за F(n+1)допомогою aіb

Perl 5,10, 119 - 15 (бонус) = 104 байти

$_=<>;$j=1;($i,$j)=($j,$i+$j)while$_>$i;say$_-2016?(Pippi,Lucas,Ness,Travis)[($_==$i)*2|$_==3*$j-4*$i|$_-1>>1==0]:Trump

Безголівки:

# Read line from stdin
$_ = <>;

# Find first Fibonacci number greater than or equal to input.
# Store this number in $i and the next Fibonacci number in $j.
$j = 1;
($i, $j) = ($j, $i + $j) while $_ > $i;

say $_ - 2016
  ? (Pippi,Lucas,Ness,Travis)[
      ($_ == $i) * 2 |          # Bitwise OR with 2 if Fibonacci number
      $_ == 3 * $j - 4 * $i |   # Bitwise OR with 1 if Lucas number >= 3
      $_ - 1 >> 1 == 0          # Bitwise OR with 1 if Lucas number <= 2
    ]
  : Trump

Це експлуатує той факт, що

L(n-2) = 3 * F(n+1) - 4 * F(n)

є найбільшим числом Лукаса, меншим або рівним F (n).

Groovy, 149 байт

f={i->g={m,s->while(s[-2]<=m)s<<s[-2]+s[-1];s}
println(["Pippi","Ness","Lucas","Travis"][(g(i,[1,1]).contains(i)?1:0)+(g(i,[2,1]).contains(i)?2:0)])}

Код тесту:

[1,2,3,4,5,6,7,8,610,722,843].each {
    print "$it => "
    f(it)
}

g- це закриття, яке генерує перелік чисел на основі насіння ( s) та максимального значення ( m). (g(i,[1,1]).contains(i)?1:0)+(g(i,[2,1]).contains(i)?2:0)знаходить індекс для використання залежно від числа lucas або Фібаначы.

MATLAB, 122 119 байт

@(n)subsref({'Pippi','Lucas','Ness','Travis'},substruct('{}',{(1:2)*any(~rem(real(sqrt(5*n^2+[-20,-4;20,4])),1)).'+1}))

Коротке пояснення

Спочатку створюємо масив комірок, що містить значення для друку: {'Pippi', 'Lucas', 'Ness', 'Travis'} . Потім, щоб визначити, яке значення відображати, ми перевіряємо, чи nце число Фібоначчі чи Лукаса.

Для Fibonnaci ми використовуємо таку формулу:

any(~rem(sqrt(5*n^2 + [-4 4]), 1))

Це перевіряє, чи є 5*n^2 + 4або5*n^2 - 4 є чи ідеальним квадрат. Якщоany їх є, то це число Фібоначчі.

Формула числа Лукаса дуже схожа за винятком того, що ми використовуємо +/- 20 замість 4:

any(~rem(sqrt(5*n^2 + [-20 20]), 1))

У цьому рішенні я поєднав ці два випадки в один за допомогою матриці:

M = [-20 -4
      20  4]

Застосовуючи те саме рівняння, що і вище, але змушую anyрозглядати лише перший вимір, я отримую логічний масив з двома елементами, де якщо перший елемент true, то це число Лукаса, а якщо другий елемент - trueце число волів .

any(~rem(sqrt(5*n^2 + [-20 -4;20 4]), 1))

Потім для обчислення індексу в моєму початковому масиві комірок я трактую це як двійкову послідовність, виконуючи помноження на елементі множини цього булевого [2^0, 2^1]або просто [1,2]. І підсумуйте елементи. Очевидно, що я повинен додати 1 через єдину індексацію MATLAB.

index = (1:2) * any(~rem(real(sqrt(5*n^2+[-20,-4;20,4])),1)).' + 1;

Тоді я повинен використовувати subsrefта substructіндексувати в початковий масив комірок, щоб отримати кінцевий результат.

JavaScript (ES6), 97 байт

x=>[['Pippi','Lucas'],['Ness','Travis'],f=(a,x,y=1)=>a>x?f(a,y,x+y):a==x||a==1][+f(x,0)][+f(x,2)]

a==1Перевірка необхідна в іншому випадку я не помітив , що 1 є числом Лукаса.

Желе , 47 байт - 15 = 32 (неконкуренто ...?)

+2ḶÆḞ⁸eð+ị“©ḤʠhMṂƁÞḄṭAƓ»Ḳ¤µ2+С-⁸eḤ
“¡Ỵ¦»Ç⁼?⁽¥Ð

Спробуйте в Інтернеті!

05AB1E , 39 37 (52 - 15 бонус) байтів

2016Qi.•ªb‚•ë>ÅG¹å_¹ÅF¹åi.•F_ïk|»9•ë.•?®B'5n•}2äsè}™

Спробуйте в Інтернеті або перевірте всі тестові справи .

Пояснення:

2016Qi                # If the input equals 2016:
      .•ªb‚•          #  Push "trump" to the stack
ë                     # Else:
 >ÅG                  #  List of Lucas numbers up to and including the input+1
    ¹å                #  Check if the input is in this list (1 if truthy; 0 if falsey)
      _               #  Invert the boolean (0→1 and 1→0)
 ¹ÅF                  #  List of Fibonacci numbers up to and including the input
    ¹åi               #  If the input is in this list:
       .•F_ïk|»9•     #   Push string "travisnessi" to the stack
    ë                 #  Else:
     .•?®B'5n•        #   Push string "pippilucas" to the stack
    }                 #  Close the inner if-else
     2ä               #  Split the string into two parts
                      #   i.e. "travisnessi" → ["travis","nessi"]
                      #   i.e. "pippilucas" → ["pippi","lucas"]
       sè             #  Index the Lucas result into the list of two strings
}                     # Close the outer if-else
 ™                    # And output the top of the stack in title-case