У дитинстві мій друг мав 8-ма кульовий бал, до якого ми б задавали запитання, щоб побачити, яка доля цього питання.

Виклик

Ваше завдання полягає в тому, щоб написати програму (або функцію), яка під час запуску (або виклику) видає (або повертає) випадкову відповідь з можливих відповідей нижче. (Random бути: each output should have a nonzero chance of occurring but they do not need to meet any other criteria)

Можливі відповіді з 8-бального балу Magic (нечутливі до регістру):

It is certain
It is decidedly so
Without a doubt
Yes definitely
You may rely on it
As I see it, yes
Most likely
Outlook good
Yep
Signs point to yes
Reply hazy try again
Ask again later
Better not tell you now
Cannot predict now
Concentrate and ask again
Don't count on it
My reply is no
My sources say no
Outlook not so good
Very doubtful

Вхідні дані

Немає даних.

Вихідні дані

Випадковий вибір зверху. Справа не має значення.

Правила

Стандартні лазівки заборонені.

Це код-гольф , тому найкоротший код у байтах для кожної мови виграє!

SOGL V0.12 , 166 байт

,▓a⁰²z○½℮ķčλ─fj[Ycψ-⁸jΔkÆΞu±⁄│(┼∞׀±q- υ~‼U/[DΓ▓νg⁸⅝╝┘¤δα~0-⁄⅝v⁄N⁷⁽╤oο[]āŗ=§№αU5$┌wΨgΘ°σΖ$d¦ƨ4Z∞▒²÷βΗ◄⁴Γ■!≤,A╬╤╬χpLΧ⁸⁽aIΘād⁵█↔‚\¶σΞlh³Ζ╤2rJ╚↓○sēχΘRψΙ±ιΗ@:┌Γ1⁷‘Ƨ! ΘlΨιw

Спробуйте тут!

\ o / кожне слово було в словнику SOGL!

> <> , 438 байт

x|o<"Yep"
x|^"Most likely"
x|^"Signs point to yes"
x|^"As I see it, yes"
x|^"Without a doubt"
x|^"Ask again later"
x|^"Don't count on it"
x|^"Cannot predict now"
x|^"Very doubtful"
x|^"My reply is no"
x|^"My sources say no"
x|^"Outlook not so good"
x|^"Reply hazy try again"
x|^"Better not tell you now"
x|^"Concentrate and ask again"
x|^"It's certain"
x|^"Outlook good"
x|^"Yes definitely"
x|^"You may rely on it"
x|^"It is decidedly so"

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

Це не так цікаво, але я думаю, що це перша відповідь, коли випадковість не однакова. Я ставлю всі негативні повідомлення як найменш вірогідні :)

Деякі пояснення:

Вказівник починає йти прямо на першому рядку. xзмінює вказівник на випадковий кардинальний напрямок. Якщо вона йде вгору або вниз, вона просто стикається з іншим x. Якщо він іде правильно, він відскакує від |удару і те саме x. Якщо вона йде ліворуч, вона обертається навколо і висуває текст цього рядка до стеку. Більшість ліній потім потрапляють на ту саму доріжку, ^яка змінює напрямок вгору. Це петлі над oпершим рядком, який видає стек до порожнього. Особливий випадок - Yepлінія, |o<натомість горизонтальна петля .

Python 2, 369 368 байт

print"It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful".split('.')[id(0)/7%20]

Пітон 3, 371 байт

print("It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful".split('.')[hash(id)%20])

Раніше я використовував hashвбудований до index ( hash(id)%20), який повертає випадкове значення за початок інтерпретатора Python з моменту https://bugs.python.org/issue13703 . Це не випадково для порожнього рядка, хоча (завжди 0), тому потрібно використовувати щось інше, idвбудований!

По-друге, я міг би використовувати idпрямо, але, здається, завжди створює парні числа. IIRC, id(object)в CPython просто повертає місце пам'яті object, тому це має сенс. Можливо, якби я використав Jython або IronPython, я міг би пропустити поділ на 7. У будь-якому випадку, hash(id)vs id(0)//7дорівнює Python 3, але може використовувати /оператор для обрізання цілого поділу в Python 2, зберігаючи байт.

PowerShell , 354 байти

"It is certain0It is decidedly so0Without a doubt0Yes definitely0You may rely on it0As I see it, yes0Most likely0Outlook good0Yep0Signs point to yes0Reply hazy try again0Ask again later0Better not tell you now0Cannot predict now0Concentrate and ask again0Don't count on it0My reply is no0My sources say no0Outlook not so good0Very doubtful"-split0|Random

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

Хо-гул. Бере всі результати, об'єднані разом з 0s, а потім -splits 0для створення масиву рядків. Проходить той масив, до Get-Randomякого буде випадковим чином вибрати один із них. Це залишилося на конвеєрі, і вихід неявний.

Python 2 , 385 байт

-1 байт завдяки ов.

from random import*
print choice("It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful".split('.'))

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

Яблукопис, 391

Мені подобається, як у списках AppleScript є some itemметод:

{"It is certain","It is decidedly so","Without a doubt","Yes definitely","You may rely on it","As I see it,yes","Most likely","Outlook good","Yep","Signs point to yes","Reply hazy try again","Ask again later","Better not tell you now","Cannot predict now","Concentrate and ask again","Don't count on it","My reply is no","My sources say no","Outlook not so good","Very doubtful"}'s some item

Bash + GNU комунальні послуги, 230

• 15 байт збережено завдяки @Dennis.

sed 1d $0|zcat|shuf -n1
# zopflied 8 ball list

Бінарний вихід zopfli тут недостатньо представлений; замість цього ви можете реконструювати скрипт із кодованих даних base64:

base64 -d << EOF > 8ball.sh
c2VkIDFkICQwfHpjYXR8c2h1ZiAtbjEKH4sIAAAAAAACAz1QSZJCMQjd5xRv1fOlMEGlzIdfgbRF
n75NOayYeYMExFF5BImWe9W4SuPWE27lKnG2GSA0m4coyWvhKCrBPUvaxEaJcStgColCDoEzQ+IH
t/WymQe6XNa+zehmF5zMWknei8tJHbuJBsKw9gfvPXGmv0SMBJ0WNfLLPUOn4FEOHMEDaoHg3rGI
qF1LJV29fXCTGveWaWWNQcEgbXi9Ks30PVBtauBOfkvc4cWhtkq3OSo7nBJqLwELxO2u45dH3u05
zv4=
EOF

Зауважте, що дозволено запитанням, стислі дані декомпресуються на всі малі регістри. Це робить компресію zopfli трохи ефективнішою та економить 16 байт.

R , 360 байт

sample(readLines(),1)
It is certain
It is decidedly so
Without a doubt
Yes definitely
You may rely on it
As I see it, yes
Most likely
Outlook good
Yep
Signs point to yes
Reply hazy try again
Ask again later
Better not tell you now
Cannot predict now
Concentrate and ask again
Don't count on it
My reply is no
My sources say no
Outlook not so good
Very doubtful

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

Не зовсім найелегантніше рішення. R має чітку функцію, куди stdinбуде переадресовано вихідний файл, тому ви можете помістити (невеликі) набори даних у вихідний код, зберігаючи байти для розбиття рядків або ще гірше, будуючи сам вектор (усі ці цитати поспішають). Поряд із вбудованими для випадкового вибірки, це дає короткий результат.

Вугілля , 203 184 байт

‽⪪”}∨74Dυ3↖u➙Ｈ�↖vＩ⁻VＲ‹ψ#�Ii»ψPNξ⮌≔;≡8ν}¬Ｈ⁺ºº↖H⁴Ｋ⌕êτ｜⁼➙⟲W»″φ◨⟦(τ(jK“Ｎ\⍘“↷⊙ⅉvＴ>➙§⌊Ｆζ³⁻↔;ＴaÀ✳⁴≔67⍘i4¬⸿-A8⁻f7¡<⁰Zχ}ζ'¡¹→Oaε!ＯυP₂ïμ´MuＰ⁺Ｍ⮌1№-k¹№FvξＤü⊟ζⅉ⁰xW:Dε7ＴvM₂⊞θC⪪Ｒε⁰“Ｄ¡⸿⁰″A⊕λξ↥~Ｏ·PＥ&”¶

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Редагувати: Збережено 19 байт, знизивши все. Пояснення:

  ”...”     Compressed string of newline-delimited responses
 ⪪     ¶    Split on newlines
‽           Random element
            Implicitly print

Сітківка , 333 331 321 байт

0cert10decided2so¶with34a d3bt¶yes definitely¶y3 ma5re26as i see it, yes¶mos4likely7good¶yep¶signs poin4to yes¶rep2haz5tr5ag18ain later¶better 94tell y3 9w¶can94predic49w¶concentrate and 81don'4c3n46m5rep2is 9¶m5s3rces sa59794so good¶ver5d3btful
9
no
8
ask ag
7
¶3tlook 
6
on it¶
5
y 
4
t 
3
ou
2
ly 
1
ain¶
0
it is 
G?`

Спробуйте в Інтернеті! Редагувати: Збережено 1 байт стисканням doubtта 1 байт шляхом зменшення розміру всього, щоб я міг стиснути reply. Потім зберегли 10 байтів, використовуючи гольфіст @ Лео Ретіна Колмогоров у тексті нижнього розміру (що збігається випадково - кількість байтів, збережених у моїй 333-байтній відповіді).

Кокос , 380 байт

Кокосовий горіх Порт totallyhuman «сек відповідь

from random import*
choice$("It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful".split('.'))

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

T-SQL, 393 байти

SELECT TOP 1*FROM STRING_SPLIT('It is certain-It is decidedly so-Without a doubt-Yes definitely-You may rely on it-As I see it, yes-Most likely-Outlook good-Yep-Signs point to yes-Reply hazy try again-Ask again later-Better not tell you now-Cannot predict now-Concentrate and ask again-Don''t count on it-My reply is no-My sources say no-Outlook not so good-Very doubtful','-')ORDER BY NEWID()

Функція STRING_SPLIT доступна лише у SQL 2016 та пізніших версіях.

Найкраще, що я міг отримати за попередні версії, використовуючи VALUES('It is certain'),('It is decidedly so'),... 464 символи.

Відформатовано, щоб ви могли бачити робочу частину:

SELECT TOP 1 *
FROM STRING_SPLIT('It is certain-It is decidedly so-...', '-')
ORDER BY NEWID()

NEWID() генерує новий, псевдовипадковий GUID, так це спосіб зробити псевдовипадковий сортування.

Желе , 201 байт

-2 байти завдяки панові Xcoder. -1 байт завдяки користувачу202729.

“æ⁽IẊ?⁽ʋṠ¶ÐƝKW¬ḃỴɓ⁾:Eṇ⁵ṾɱD×⁴2ṇỤðċỊ¥ḷƬị÷ṣÐṆⱮ$u²OŀṚƁȮ1⁼ṁ$bp⁾v]Ɠ-/NẓḲnỵdḳḋ½ȥṿ=kv¥ɓl[kR AḞ¶gḣḞiẊŒẊḳçȤ⁻Ɱʋx:ØṖ|zY=ṾḌẓY1Ḃ$50d⁹⁸ŀhʂƤṢM;ḢoƁṾ⁷-uṙu¡Ọ3ṣȮ@⁹ðẹȥXƭ⁸|ƬẋẆḢɠœxḳsĿƘ(0çỌ~A½YIEFU3Ọ=⁷ɗḷBḷİṄhṗgṡƊẏẏḄ#Ṙʋ$ʂȷĠ»ỴX

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

Чорт , стиснення SOGL добре.

05AB1E , 171 байт

“€•€ˆ‹ì€•€ˆŸíly€Ê„›€…¬³…ܴ΀˜€‰€•€œ I€È€•,…Ü‚¢îÙ®½‚¿ yepŸé…®€„…Ü…ƒ hazy‡Ü†îˆ¹†îŠ´…瀖ˆœ€î€Ó€©notßä€Óä考ˆ¹†î€·n'tš‹€‰€•€¯…ƒ€ˆ€¸€¯Žç…耸®½€–€Ê‚¿‚Ò¬³ful“#•8∞f{ʒβ®•6в£ðýΩ

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

Пояснення

“ ... “висуває рядок усіх необхідних слів.
Деякі слова взяті безпосередньо зі словника 05ab1e.
Деякі виписані в простому вигляді (як haze).
Деякі з них - комбінований словник та ascii (як do+n't ).

Тоді код обробки:

#                 # split string on spaces to a list of words
 •8∞f{ʒβ®•        # push the number 2293515117138698
          6в      # convert to a list of base-6 numbers 
                  # ([3,4,3,2,5,5,2,2,1,4,4,3,5,3,4,4,4,4,4,2])
            £     # group the list into sublists of these sizes
             ðý   # join on spaces
               Ω  # pick one at random

Ruby, 362 361 байт

puts"It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful".split(?.).sample

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

• 1 байт завдяки @ benj2240

Пітон 3, 386 байт

from random import*
lambda:choice("It is certain;It is decidedly so;Without a doubt;Yes definitely;You may rely on it;As I see it, yes;Most likely;Outlook good;Yep;Signs point to yes;Reply hazy try again;Ask again later;Better not tell you now;Cannot predict now;Concentrate and ask again;Don't count on it;My reply is no;My sources say no;Outlook not so good;Very doubtful".split(';'))

Перл, 366

print((split",","It is certain,It is decidedly so,Without a doubt,Yes definitely,You may rely on it,As I see it,yes,Most likely,Outlook good,Yep,Signs point to yes,Reply hazy try again,Ask again later,Better not tell you now,Cannot predict now,Concentrate and ask again,Don't count on it,My reply is no,My sources say no,Outlook not so good,Very doubtful")[rand 19])

05AB1E , 208 217 байт

"don'".•W˜FζÃT¥„ò.1₁∍Y<`Ì°5jýúž+ìmHSéÁ¬–xȃø‚ž}_Øviòª§l["]0â^)„2æδ∍G1∊EÌLÝ'îôΛβ;ƒĀαÏw L°gðÈγ³€wE‘f饤šαrˆQŠë¢-º8Æ~ÁŠ∍δBx®(β™Žü6»ƶÙÐ~†«\%ÍŒΘ-´sÈƵJŸ₃H7Ó˜:Å∍₂èÑï∞—Râú'óвb…ÓUXʒǝ₄ÝrÒ₄¨÷ä褓oθWÎλî~bj(Ri
Þиe‘ãj]•", yes"J'x¡Ω

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

Досить базове рішення. Можливі відповіді з'єднуються з символом x (оскільки його немає у відповідях), а потім стискаються (всередині • ), 'x¡Ω розбивається на x та випливає випадковим вибором.

Завдяки @Emigna за вказівку, що стиснення алфавіту не подобається "або, набагато. Виправлено за допомогою заміщення стисненого рядка на дон і , так .

PHP , 412 385 337 384 байт

<?php $a=explode(1,"It is certain1It is decidedly so1Without a doubt1Yes definitely1You may rely on it1As I see it, yes1Most likely1Outlook good1Yep1Signs point to yes1Reply hazy try again1Ask again later1Better not tell you now1Cannot predict now1Concentrate and ask again1Don't count on it1My reply is no1My sources say no1Outlook not so good1Very doubtful");echo$a[array_rand($a)];

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

Досить прямого рішення. Розділіть рядок на роздільник (в даному випадку 1) і виберіть випадковий елемент з масиву.

Javascript, 372 байт

-10 байт завдяки Шаггі

_=>"It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful".split`.`[Math.random()*20|0]

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

Befunge

1221 870 байт (периметр всього поля - 33x36 30 * 29 charachters) Завдяки Джо Кінгу за те, що він допомагав мені видаляти останні нулі та закликав мене змінити рандомізатор.

"<"99+9+1+v
v         <
 >>>>>>>>>>55++v
 0123456789
>??????????<
 0123456789
 >>>>>>>>>>    v
               >88++p       v
v"It is certain"           
v"It is decidedly so"
v"Without a doubt"
v"Yes definitely"
v"You may rely on it"
v"As I see it, yes"
v"Most likely"
v"Outlook good"
v"Yep"
v"Signs point to yes"
v"Reply hazy try again"
v"Ask again later"
v"Better not tell you now"
v"Cannot predict now"
v"Concentrate and ask again"
v"Don't count on it"
v"My reply is no"
v"My sources say no"
v"Outlook not so good"
v"Very doubtful"
>:#,_@

У верхньому рядку розміщується символ "<" і x-позиція (28) там, де він повинен перейти на стек. Потім вводимо вид генератора випадкових чисел. Це можна вдосконалити, але це те, що я міг би доставити за короткий час ... "Випадкове" число зміщене, щоб отримати фактичний "випадковий" рядок для читання.

Після того, як генерується випадкове число, ми кладемо символ "<" в цей рядок і натискаємо літери на стек і в нижньому рядку виводимо їх знову.

Примітка; якщо ви використовуєте інтерпретатора, до якого я пов’язаний у цій публікації, ви повинні повторно натиснути "Показати" після кожного запуску, оскільки додавання символу "<" залишається після виконання.

Java 8 , 433 , 392 , 380 , 379 байт

 a->"It is certain~It is decidedly so~Without a doubt~Yes definitely~You may rely on it~As I see it, yes~Most likely~Outlook good~Yep~Signs point to yes~Reply hazy try again~Ask again later~Better not tell you now~Cannot predict now~Concentrate and ask again~Don't count on it~My reply is no~My sources say no~Outlook not so good~Very doubtful".split("~")[(int)(Math.random()*20)]

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

• 41 байт завдяки AdmBorkBork!
• 10 байт завдяки Кевіну!
• 1 байт завдяки Оліверу!

Червоний , 367 байт

prin pick split{It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful}"."random 20

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

Це не здається насправді випадковим у TIO (хоча він працює чудово у червоній консолі), тому я додав до заголовка випадковий / насіннєвий.

Excel, 399 байт

=CHOOSE(1+20*RAND(),"It is certain","It is decidedly so","Without a doubt","Yes definitely","You may rely on it","As I see it, yes","Most likely","Outlook good","Yep","Signs point to yes","Reply hazy try again","Ask again later","Better not tell you now","Cannot predict now","Concentrate and ask again","Don't count on it","My reply is no","My sources say no","Outlook not so good","Very doubtful")

Оскільки CHOOSE(X.Y,<>)це те саме CHOOSE(X,<>), що немає потреби вINT

Тут не дуже багато гольфу ви можете зайняти ...

Ацето , 345 + 1 = 346 байт (+1 для -lпрапора)

"It is certain.It is decidedly so.Without a doubt.Yes definitely.You may rely on it.As I see it, yes.Most likely.Outlook good.Yep.Signs point to yes.Reply hazy try again.Ask again later.Better not tell you now.Cannot predict now.Concentrate and ask again.Don't count on it.My reply is no.My sources say no.Outlook not so good.Very doubtful"'.:Yp

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

Не надто цікаво, але я не можу придумати нічого коротшого на цій мові, жодних стислих рядків чи нічого.

"...." натягуйте рядки, розділені періодами
      '. буквальний період
        : розділений на період
         Y перетасуйте стек
          p друк зверху

C - 426 байт

char a[][99]={"It is certain","It is decidedly so","Without a doubt","Yes definitely","You may rely on it","As I see it, yes","Most likely","Outlook good","Yep","Signs point to yes","Reply hazy try again","Ask again later","Better not tell you now","Cannot predict now","Concentrate and ask again","Don't count on it","My reply is no","My sources say no","Outlook not so good","Very doubtful"};int main(){int n;puts(a[n%20]);}

Використовує неініціалізовану змінну mod 20 для індексації у масив рядків, що містить усі можливі результати. Укладачі скаржаться, що stdio.h не включений, але він працює добре. Можливо, тому, що просто так буває так, щоб стандартна бібліотека так чи інакше була пов'язана. Мені пощастило.

Ідіть, 530 байт

package main;import"fmt";func main(){for k:=range map[string]struct{}{"It is certain":{},"It is decidedly so":{},"Without a doubt":{},"Yes definitely":{},"You may rely on it":{},"As I see it, yes":{},"Most likely":{},"Outlook good":{},"Yep":{},"Signs point to yes":{},"Reply hazy try again":{},"Ask again later":{},"Better not tell you now":{},"Cannot predict now":{},"Concentrate and ask again":{},"Don't count on it":{},"My reply is no":{},"My sources say no":{},"Outlook not so good":{},"Very doubtful":{}}{fmt.Print(k);break}}

Зауважте, що на майданчику Go, завдяки тому, як працює посів, завжди дається однаковий результат. Під час роботи на звичайному комп’ютері все працює як слід.
Я думаю, що можна зекономити трохи більше, але мої знання в Go зупиняються на цьому :)

Відформатована та перевірена версія

Excel-VBA, 362 341 339 байт

v=[1:1]:?v(1,Rnd*19)

Де A1:T1 містяться різні варіанти. Читає весь перший рядок аркуша в масивv і індексує випадкову точку вздовж перших 19 значень.

З подивом виявив, що для індексації масиву не потрібно цілих значень

VBA, 358 байт

Анонімна функція негайного вікна VBE, яка не приймає вводу та виводить STDOUT.

?Split("It is certain1It is decidedly so1Without a doubt1Yes definitely1You may rely on it1As I see it, yes1Most likely1Outlook good1Yep1Signs point to yes1Reply hazy try again1Ask again later1Better not tell you now1Cannot predict now1Concentrate and ask again1Don't count on it1My reply is no1My sources say no1Outlook not so good1Very doubtful",1)(19*Rnd)

Java 8, 379 байт

b->"It is certain-It is decidedly so-Without a doubt-Yes definitely-You may rely on it-As I see it, yes-Most likely-Outlook good-Yep-Signs point to yes-Reply hazy try again-Ask again later-Better not tell you now-Cannot predict now-Concentrate and ask again-Don't count on it-My reply is no-My sources say no-Outlook not so good-Very doubtful".split("-")[(int)(Math.random()*20)]

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