Код Гольф Гольф Счет


22

Это пятница ... так что давайте поиграем в гольф! Напишите код, который определяет выигрыш игрока на лунке в игре в гольф. Код может быть либо функцией, либо всей программой. Как подсказывает жанр, выигрывает самый короткий код.

Ввод (параметры или стандартный ввод, ваш выбор):

  • Целое число, представляющее номинал отверстия, гарантированно от 3 до 6
  • Целое число, представляющее счет игрока в гольф, гарантировано от 1 до 64

Вывод (печать в stdout или return, завершающий перевод новой строки разрешен, но не обязателен, на ваш выбор):

  • если оценка равна 1, выведите «Hole in one»
  • если оценка == пар - 4 и пар> 5, выведите «Condor»
  • если оценка == пар - 3 и пар> 4, выведите «Альбатрос»
  • если оценка == пар - 2 и пар> 3, выведите «Eagle»
  • если оценка == пар - 1, выведите «Birdie»
  • если оценка == номинальная, выведите «Par»
  • если оценка == пар + 1, выведите «Bogey»
  • если оценка == пар + 2, выведите «Double Bogey»
  • если оценка == пар + 3, выведите «Triple Bogey»
  • если оценка> пар + 3, выведите «Хаха, ты неудачник»

РЕДАКТИРОВАТЬ Поздравляем Дениса с кратчайшим ответом!


34
Мне всегда было интересно, что было после тройного призрака.
ThisSuitIsBlackNot

3
Между прочим, наибольший номинал равен 7, а не 6.
Джошуа

4
@ Джошуа Я был временно сбит с толку тем, почему ты прокомментировал, а не отредактировал свой собственный пост. Тогда это поразило меня. : P
Rɪᴋᴇʀ

@RikerW имена двух Джошей так же близки, как и их репутация: D
кот

2
Может ли вход быть в любом порядке?
Дверная ручка

Ответы:


6

Желе , 61 байт

_«4ị“Ƙḷ“&SẆ@ẓ“&T¡UQ“½⁽Ð'÷ṿɼ“½Œż“¡œM“v⁵“¥⁻c“£Ḋ⁶»
瓵ḣ⁻×⁵ñBƑ»’?

Попробуйте онлайн!

Задний план

Это использует статическое сжатие словаря Jelly. Вы можете найти компрессор здесь . Сюда,

“Ƙḷ“&SẆ@ẓ“&T¡UQ“½⁽Ð'÷ṿɼ“½Œż“¡œM“v⁵“¥⁻c“£Ḋ⁶»

а также

“Bogey“Double Bogey“Triple Bogey“Haha you loser“Condor“Albatross“Eagle“Birdie“Par”

так же как

“µḣ⁻×⁵ñBƑ»

а также

“Hole in one”

эквивалентны.

Как это работает

_«4ị“Ƙḷ“&SẆ@ẓ“&T¡UQ“½⁽Ð'÷ṿɼ“½Œż“¡œM“v⁵“¥⁻c“£Ḋ⁶»  Helper link. Arguments: score, par

_                                                Subtract the par from the score.
 «4                                              Cap the difference at 4.
   ị                                             Index into the list at the right.
    “Ƙḷ“&SẆ@ẓ“&T¡UQ“½⁽Ð'÷ṿɼ“½Œż“¡œM“v⁵“¥⁻c“£Ḋ⁶»  Yield a list of strings.


瓵ḣ⁻×⁵ñBƑ»’?  Main link. Arguments: score, pair

            ?  If...
           ’   the decremented score if non-zero:
ç                Call the helper link on both input arguments.
 “µḣ⁻×⁵ñBƑ»      Else, return “Hole in one”.

Поздравляю с кратчайшим ответом!
Джош

13

PHP 5.3+, 173 167 166 159 156 151 127 121 байт

echo[Condor,Albatross,Eagle,Birdie,Par,$b=Bogey,"Double $b","Triple $b","Haha you loser"][min(4+$s-$p,8)]?:"Hole in one";
Безотказная версия, 139 137 байт
echo$s-1?["Condor","Albatross","Eagle","Birdie","Par",$b="Bogey","Double $b","Triple $b","Haha you loser"][min(4+$s-$p,8)]:"Hole in one";

Установите переменные $score и $par перед echoи вы отключены.

в разобранном виде
echo [Condor,
      Albatross,
      Eagle,
      Birdie,
      Par,
      $b = Bogey,
      "Double $b",
      "Triple $b",
      "Haha you loser"][ min( 4+$s-$p,8 ) ]
  ?: "Hole in one";

Редактирует
-6: Не хранить массив, просто вызывать его, если это необходимо.
-1: переворачивать троичную.
-7: Наименьшее $s-$pс $s>1это -4, так что max()не является необходимым, так как 4+$s-$p >= 0.
-3:, Array -> explode() спасибо CoolestVeto!
-5: чит- строковый литерал с неопределенной константой плюс $r[-1] -> false, спасибо Измаил Мигель!
-24: переход от explode()функции к настройке printf/ %sс некоторыми изменениями, еще раз спасибо Исмаилу Мигелю за смену направления.
-6: Swerve , мы вернулись к echoснова!


1
Можете ли вы превратить его в одну строку и разделить на произвольный символ?
Эддисон Крамп

@CoolestVeto На самом деле я могу. Как ни странно, он экономит меньше байтов, чем ожидалось, но любые байты лучше, чем никаких байтов!
Рикдези

1
Вы можете заменить $b="Bogey";на, $b=Bogey;чтобы сохранить 2 байта. Также замените ваш $s-1? ... : ...;на echo ... ?: ...;. Вот 151-байтовая длинная версия:function g($s,$p){$b=Bogey;echo explode("-","Condor-Albatross-Eagle-Birdie-Par-$b-Double $b-Triple $b-Haha you loser")[min(4+$s-$p,8)]?:"Hole in one";}
Исмаэль Мигель

Не знал, что вы можете обмануть строковые литералы, аккуратно.
Рикдези

1
Вот (возможно) и рабочая короче один: printf([Condor,Albatross,Eagle,Birdie,Par,'%s','Double %s','Triple %s','Haha you loser'][min(4+$argv[1]-$argv[2],8)]?:'Hole in one',Bogey);. В основном: удалил объявление функции, удалил explore, удалил кавычки, использовал массив и использовал $argv. Окончательный код длиной 139 байт.
Исмаэль Мигель

10

05AB1E , 91 90 байт

Код:

-5+U“¥Ê€†€µ“ª"0Bogey"ДCondor Albatross²è Birdie Par ÿ‹¶ÿ½¿ÿ”ð¡“Haha€î loser“X0¹1Qm*@0ð:ðÛ

Объяснение:

Часть 1:

-5+                          # Computes Score - Par + 5
   U                         # Store in X
    “¥Ê€†€µ“ª                # Short for "Hole in one"
             "0Bogey"        # Push this string
                     Ð       # Triplicate

Часть 2:

”Condor Albatross²è Birdie Par ÿ‹¶ÿ½¿ÿ”ð¡

Это то же самое, что "Condor Albatross Eagle Birdie Par 0Bogey Double0Bogey Triple0Bogey"использование сжатия строк и интерполяции строк. Затем мы разбиваем на пробелы, используя ð¡.

Часть 3:

“Haha€î loser“                # Push "Haha you loser"
              X               # Push X
               0¹1Qm          # Compute 0 ^ (score == 1), this translates 1 to 0 and 
                                everything else to 1.
                    *         # Multiply the top two items
                     @        # Get the string from that position
                      0ð:     # Replace zeros with spaces
                         ðÛ   # Trim off leading spaces

Обнаружено много ошибок, используется кодировка CP-1252 .

Попробуйте онлайн!


... Вау. Красиво сделано.
кот

2
@tac Спасибо! :)
Adnan

Этот код выглядит как случайные Unicode-сообщения, которые вы получаете, когда устанавливаете неанглийский файл с расширением .exe (если у вас есть английский в качестве языка в Windows). Выглядит эффектно, хотя!
clismique

@DerpfacePython Ха-ха, случайные Unicode-сообщения являются частью кода, а другая часть - частью сжатого сообщения.
Аднан

6

Витси, 131 байт

D1-)["eno ni eloH"rZ;]r-5+D9/([X9]mZ
"rodnoC"
"ssortablA"
"elgaE"
"eidriB"
"raP"
"yegoB"
4m" elbuoD"
4m" elpirT"
"resol uoy ahaH"

Объяснение:

D1-)["eno ni eloH"rZ;]r-5+D9/([X9]mZ
D1-)[                ]      If the second input is 1, do the bracketed stuff.
     "eno ni eloH"rZ;       Output "Hole in one" and quit.
r                           Reverse the stack.
 -                          Subtract the top two items.
  5+                        Add 5 to fix for negative values of score.
    D9/([  ]                If the result of that is greater than 8, do the stuff in brackets.
         X                  Remove the top item.
          9                 Push 9. This forces any items greater than 8 to be 9.
            m               Execute this number line.
             Z              Output everything in the stack.

Это работает, вычисляя, что оценка относится к номиналу, затем выполняя различные строки (и получая разные строки).

Попробуйте онлайн!

Подробный режим (для какашек и хихиканья):

duplicate top item;
push 1;
subtract top two;
if (int) top is not 0;
begin recursive area;
toggle double quote;
push 14;
eval(stack);
capture stack as object with next;
 ;
eval(stack);
push input item;
 ;
push 14;
push length of stack;
capture stack as object with next;
push all ints between second to top and top;
toggle double quote;
reverse stack;
output stack as chars;
generic exit;
end recursive area;
reverse stack;
subtract top two;
push 5;
add top two;
duplicate top item;
push 9;
divide top two;
if (int) top is 0;
begin recursive area;
remove top;
push 9;
end recursive area;
goto top method;
output stack as chars;
:toggle double quote;
reverse stack;
capture stack as object with next;
push 13;
eval(stack);
capture stack as object with next;
push cosine of top;
toggle double quote;
:toggle double quote;
push inverse sine of top;
push inverse sine of top;
capture stack as object with next;
reverse stack;
push inverse tangent of top;
push 10;
push 11;
push length of stack;
push inverse cosine of top;
toggle double quote;
:toggle double quote;
push 14;
push length of stack;
g;
push 10;
push e;
toggle double quote;
:toggle double quote;
push 14;
push input item;
push 13;
reverse stack;
push input item;
B;
toggle double quote;
:toggle double quote;
reverse stack;
push 10;
push pi;
toggle double quote;
:toggle double quote;
push number of stacks;
push 14;
g;
capture stack as object with next;
B;
toggle double quote;
:push 4;
goto top method;
toggle double quote;
 ;
push 14;
push length of stack;
push 11;
flatten top two stacks;
capture stack as object with next;
duplicate top item;
toggle double quote;
:push 4;
goto top method;
toggle double quote;
 ;
push 14;
push length of stack;
push whether (int) top item is prime;
push input item;
reverse stack;
push tangent of top;
toggle double quote;
;
;
:toggle double quote;
reverse stack;
push 14;
push inverse sine of top;
capture stack as object with next;
push length of stack;
 ;
flatten top two stacks;
capture stack as object with next;
push number of stacks;
 ;
push 10;
factorize top item;
push 10;
push all ints between second to top and top;
toggle double quote;

«Push 9. Это заставляет любые предметы больше 8 быть 9». Wat?
кот

@tac Это для принудительного ввода, в результате которого «Хаха, ты неудачник», чтобы перейти к строке, содержащей «Хаха, ты неудачник».
Эддисон Крамп

5

JavaScript (ES6), 125 124 байта

p=>s=>"Hole in one,Condor,Albatross,Eagle,Birdie,Par,Bogey,Double Bogey,Triple Bogey".split`,`[s-1&&s-p+5]||"Haha you loser"

Присвойте переменной, например f=p=>s=>, затем назовите ее так: f(6)(2)сначала Par, а затем Score.

Может быть в состоянии быть сокращенным, комбинируя "Bogey"s.


Примером комбинации богги является: ",Double ,Triple ".split`,`[k-1]+"Bogey"где k=s-p.
user48538

Могу ли я использовать ваш подход в моем решении?
user48538

@ zyabin101, который не обескуражен, пока это не прямой плагиат
кошка

@ zyabin101 Спасибо, посмотрю, станет ли это короче. И да, не стесняйтесь использовать этот подход в своем ответе.
ETHproductions

Я уже использую это.
user48538

4

LittleLua - 160 байт (неконкурентный)

r()P=I B="Bogey"r()Z={"Hole in one","Condor","Albatross","Eagle","Birdie","Par",B,"Double "..B,"Triple "..B,"Haha, you loser"}p(I=='1'a Z[1]or Z[I-P+6]or Z[10])

Я относительно уверен, что сделал это правильно.

Принимает два целых числа, номинал и рейтинг игрока.

Версия Little Lua, которую я использовал для этого, была загружена после публикации этого вызова, но впоследствии не редактировалась. Из кода относительно очевидно, что ничего не было добавлено, чтобы упростить эту задачу

LittleLua Info:

Как только я буду удовлетворен встроенными модулями и функциональностью Little Lua, источник будет доступен вместе с информационной страницей.

LittleLua V0.02


2
Это неконкурентоспособно, потому что файл был загружен в Dropbox через 2 часа после публикации заявки.
Mego

2
github.com намного лучше справляется с хостингом кода ...
cat

Абсолютно, у меня просто не было возможности настроить его.
Skyl3r

3

Мышь-2002 , 223 207 байт

Удаление комментариев, вероятно, поможет ...

??s:p:s.1=["Hole in one"]s.p.4-=p.5>["Condor"]s.p.3-=p.4>["Albatross"]s.p.2-=p.3>["Eagle"]s.p.1-=["Birdie"]s.p.=["Par"]s.p.1+=["Bogey"]s.p.2+=["Double Bogey"]s.p.2+=["Double Bogey"]s.p.3+>["Haha you loser"]$

Ungolfed:

? ? s: p:

s. 1 = [
  "Hole in one"
]

~ 1
s. p. 4 - = p. 5 > [
  "Condor"
]

~ 2
s. p. 3 - = p. 4 > [
  "Albatross"
]

~ 3
s. p. 2 - = p. 3 > [
  "Eagle"
]

~ 4
s. p. 1 - = [
  "Birdie"
]

~ 5
s. p. = [
  "Par"
]

~ 6
s. p. 1 + = [
  "Bogey"
]

~ 7
s. p. 2 + = [
  "Double Bogey"
]

~ 8
s. p. 2 + = [
  "Double Bogey"
]

s. p. 3 + > [
  "Haha you loser"
]


$

2

bash, 150 136 байт

b=Bogey
(($2<2))&&echo Hole in one||tail -$[$2-$1+5]<<<"Haha you loser
Triple $b
Double $b
$b
Par
Birdie
Eagle
Albatross
Condor"|head -1

Тестовый забег:

llama@llama:...code/shell/ppcg74767golfgolf$ for x in {1..11}; do bash golfgolf.sh 6 $x; done                                                          
Hole in one
Condor
Albatross
Eagle
Birdie
Par
Bogey
Double Bogey
Triple Bogey
Haha you loser
Haha you loser

Спасибо Деннису за 14 байтов!


1

Python 2, 186 179 158 байт

def c(s,p):a="Bogey";print["Condor","Albatross","Eagle","Birdie","Par",a,"Double "+a,"Triple "+a,"Haha you loser","Hole in one"][([[s-p+4,8][s-p>3],9][s==1])]

РЕДАКТИРОВАТЬ 1: добавлено недостающее "отверстие в одном" случае ...

РЕДАКТИРОВАТЬ 2: игра в гольф несколько байтов (благодаря TAC)


1
Лямбда будет короче, см. Также советы по игре в гольф на Python
кот

Вы можете оставить место между 4иelse
кошка

1
Если вы измените алгоритм, вы можете просто индексировать список, а не диктовать
cat

вы можете оставить пробел между printи {, и если вы используете точку с запятой для того, чтобы поставить a=и printв одну и ту же строку, вы можете сбрить байт пробела
cat

1
@tac на самом деле "c = lambda x, y:" длиннее, чем "def c (x, y):", спасибо за другие предложения
Макс

1

Haskell - 131 байт (с учетом перевода строки)

1%p="Hole in one"
s%p=lines"Condore\nAlbatros\nEagle\nBirdie\nPar\nBogey\nDouble Bogey\nTriple Bogey\nHaha you loser"!!min(4-p+s)8

linesэто единственный способ, которым я могу придумать игру в гольф в списке строк, которые должны содержать пробелы с доступом только к Preludeтаким двум символам-разделителям.

Тем не менее, Haskell обычно не настолько конкурентоспособен (по крайней мере, по отношению к общим языкам).


Вы можете importделать все что угодно, не только встроенные
кот

1

Python 2,7, 226 байт

p,s=input()
b="Bogey"
l={s==1:"Hole in one",5<p==s+4:"Condor",4<p==s+3:"Albatross",3<p==s+2:"Eagle",s==p-1:"Birdie",s==p:"Par",s==p+1:b,s==p+2:"Double "+b,s==p+3:"Triple "+b,s>p+3:"Haha you loser"}
for r in l:
 if r:print l[r]

Трудно придумать короткий код на Python, когда вы опаздываете на вечеринку, лучше всего я мог придумать.


Последние две строки должны быть заменены на одну:[print r for r in l if r]
кот

1

C 198 байт

main(){char s=8,p=4,m[]="Hole in one.Condor.Albatross.Eagle.Birdie.Par.Bogey.Double Bogey.Triple Bogey.Haha you loser",*t,*x,i=0;for(x=m;t=strtok(x,".");x=0,i++)if((s-1?s-p>3?9:s-p+5:0)==i)puts(t);}

0

Japt, 97 байт

`Ho¤  e
CÆBr
AlßNoss
Eag¤
Bir¹e
P
zD½e zTp¤ zHa y lo r`rz"Bogey
" ·g9m´V©V-U+6

Содержит кучу непечатных. Проверьте это онлайн!

Как это работает

`Ho¤  e\nCÆBr\nAlßNoss\nEag¤\nBir¹e\nP\nzD½e zTp¤ zHa y lo r`                        rz"Bogey\n" ·  g9m´ V© V-U+6
"Hole in one\nCondor\nAlbatross\nEagle\nBirdie\nPar\nzDouble zTriple zHaha you loser"rz"Bogey\n" qR g9m--V&&V-U+6

              // Implicit: U = par, V = score
"..."         // Take this long, compressed string.
rz"Bogey\n"   // Replace each instance of "z" with "Bogey\n".
qR            // Split at newlines.

--V&&V-U+6    // If V is 1, take 0; otherwise, take V-U+5.
9m            // Take the smaller of this and 9.
g             // Get the item at this index in the previous list of words.
              // Implicit output

0

Python 2.7.2, 275 байт

s=int(input())
p=int(input())
a="Bogey"
if s==1:b="Hole in one"
elif p-4==s:b="Condor"
elif p-3==s:b="Albatross"
elif p-2==s:b="Eagle"
elif p-1==s:b="Birdie"
elif p==s:b="Par"
elif p+1==s:b=a
elif p+2==s:b="Double "+a
elif p+3==s:b="Triple "+a
else:b="Haha you loser"
print b

Ungolfed / объяснил:

score = int(input())
par = int(input)
foo = "Bogey" # a shortcut for 3 of the outputs
if score == 1:
    output = "Hole in one"
elif par - 4 == score:
    output = "Condor"
...
elif par == score:
    output = "Par"
elif par + 1 == score:
    output = foo # See what I mean?
elif par + 2 == score:
    output = "Double " + foo # Huh? Huh?
elif par + 3 == score:
    output = "Triple " + foo # That makes 3.
else:
    output = "Haha you loser"
print output # Make sense?

Мой второй ответ, по иронии судьбы оба в Python. Гольф советы приветствуются!


Подсказка: вам даже не нужно b.
Утренняя монахиня

Я собираюсь редактировать, просто nrn.
OldBunny2800

Посмотрите на это .
Утренняя монахиня

Кроме того, я думал, что Python 2 intавтоматически преобразует ваши данные .
Утренняя монахиня

-2

Python 2, 302 284 байта

i=input();j=input()
if j==1:print"Hole in one"
if(j==i-4)&(i>5):print"Condor"
if(j==i-3)&(i>4):print"Albatross"
if(j==i-2)&(i>3):print"Eagle"
if j==i-1:print"Birdie"
if j==i:print"Par"
if j>i:
 k=j-i
 if k<4:
  print["","Double ","Triple "][k-1]+"Bogey"
 else:
  print"Haha you loser"

Если разрешить начальное пустое пространство, это будет 282 байта:

i=input();j=input()
if j==1:print"Hole in one"
if(j==i-4)&(i>5):print"Condor"
if(j==i-3)&(i>4):print"Albatross"
if(j==i-2)&(i>3):print"Eagle"
if j==i-1:print"Birdie"
if j==i:print"Par"
if j>i:
 k=j-i
 if k<4:
  print["","Double","Triple"][k-1],"Bogey"
 else:
  print"Haha you loser"

12
Использование строкового массива может серьезно помочь вам здесь.
Эддисон Крамп

Согласитесь, это казалось неоптимизированным. Любая комбинация терминов / результатов приведет к сокращению ответа.
Рикдези

Зачем вам нужна raw_input ()? Разве вы не можете просто использовать input ()?
OldBunny2800

@ricdesi Я объединил бугги.
user48538
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.