В детстве у моего друга был волшебный шар, к которому мы задавали вопросы и видели, какова была судьба этого вопроса.

Вызов

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

Возможные ответы от Magic 8-ball (без учета регистра):

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 / каждое слово было в словаре SOGLs!

> <> , 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]

Python 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встроенную hash(id)%20функцию index ( ), которая возвращает случайное значение для каждого запуска интерпретатора 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

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

Ho-гул. Принимает все результаты, объединенные вместе с 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('.'))

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

Applescript, 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 байтов, используя @ Leo's Retina Kolmogorov golfer для текста в нижнем регистре (что совпадает с количеством байтов, которые он сохранил в моем 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.
Некоторые из них написаны в простой ascii (как 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

Рубин, 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

Python 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(';'))

Perl, 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¡Ω раскол на х и поп случайного выбора.

Спасибо @Emigna за указание на то, что сжатие алфавита не нравится 'или, очень. Исправлено с помощью сжатия сжатой строки с помощью don ' и , да .

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 байт благодаря Shaggy

_=>"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 символов). Спасибо Джо Кингу за то, что он помог мне удалить завершающие нули и убедил меня изменить рандомизатор.

"<"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 (хотя он прекрасно работает в Red Console), поэтому я добавил в заголовок random / seed.

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 перемешать стек
          р печать сверху

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 не включен, но работает нормально. Вероятно, потому, что так или иначе стандартная библиотека связана в любом случае. Повезло мне

Go, 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)]

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