Cuando era niño, mi amigo tenía una bola mágica 8 a la que le hacíamos preguntas y veíamos cuál era el destino de esa pregunta.

Reto

Su desafío es escribir un programa (o función) que cuando se ejecuta (o se llama), genera (o devuelve) una respuesta aleatoria de las posibles respuestas a continuación. (Random ser: each output should have a nonzero chance of occurring but they do not need to meet any other criteria)

Las posibles respuestas de Magic 8-ball son (sin distinción entre mayúsculas y minúsculas):

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

Entrada

Sin entrada.

Salida

Una elección al azar desde arriba. El caso no importa.

Reglas

Las lagunas estándar no están permitidas.

Este es el código de golf , por lo que gana el código más corto en bytes para cada idioma.

SOGL V0.12 , 166 bytes

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

Pruébalo aquí!

\ o / cada palabra estaba en el diccionario SOGLs!

> <> , 438 bytes

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"

Pruébalo en línea!

No es tan interesante, pero creo que es la primera respuesta donde la aleatoriedad no es uniforme. Puse todos los mensajes negativos como menos probable :)

Alguna explicación:

El puntero comienza a ir directamente a la primera línea. xcambia el puntero a una dirección cardinal aleatoria. Si sube o baja, simplemente encuentra un diferente x. Si sale bien, rebota |y golpea lo mismo x. Si se va hacia la izquierda, se envuelve y empuja el texto de esa línea a la pila. La mayoría de las líneas luego golpean la misma pista de las ^cuales cambia la dirección hacia arriba. Esto recorre ola primera línea, que genera la pila hasta que esté vacía. El caso especial es la Yeplínea, que tiene el bucle horizontal en su |o<lugar.

Python 2, 369 368 bytes

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 bytes

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

Anteriormente estaba usando el hashbuiltin to index ( hash(id)%20), que devuelve un valor aleatorio por inicio del intérprete de Python desde https://bugs.python.org/issue13703 . Sin embargo, no es aleatorio para la cadena vacía (siempre 0), por lo que debe usar algo más, ¡el idincorporado!

En una segunda mirada, podría usar iddirectamente, pero parece que siempre produce números pares. IIRC, id(object)en CPython solo devuelve la ubicación de memoria de object, por lo que esto tiene sentido. Tal vez si usara Jython o IronPython, podría omitir la división entre 7. De todos modos, hash(id)vs id(0)//7es igual en Python 3, pero puede usar el /operador para truncar la división de enteros en Python 2, guardando un byte.

PowerShell , 354 bytes

"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

Pruébalo en línea!

Ho-hum Toma todos los resultados, concatenados junto con 0s, luego -splits 0para crear una serie de cadenas. Pasa esa matriz a la Get-Randomque seleccionará aleatoriamente uno de ellos. Eso queda en la tubería y la salida es implícita.

Python 2 , 385 bytes

-1 byte gracias a los ovs.

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('.'))

Pruébalo en línea!

Applescript, 391

Me encanta cómo las listas de AppleScript tienen un some itemmétodo:

{"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 utilidades, 230

• 15 bytes guardados gracias a @Dennis.

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

La salida binaria de zopfli no está bien representada aquí; en su lugar, puede reconstruir el script a partir de datos codificados en base64:

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

Tenga en cuenta que, según lo permitido por la pregunta, los datos comprimidos se descomprimen en minúsculas. Esto hace que la compresión zopfli sea un poco más eficiente y ahorra 16 bytes.

R , 360 bytes

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

Pruébalo en línea!

No es exactamente la solución más elegante. R tiene una característica ordenada donde stdinse redirigirá al archivo fuente, por lo que puede colocar conjuntos de datos (pequeños) en el código fuente, guardar bytes para la división de cadenas o peor, construir el vector en sí (todas esas citas se suman a toda prisa). Junto con las incorporaciones para el muestreo aleatorio, esto da una respuesta breve.

Carbón , 203 184 bytes

‽⪪”}∨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Ｅ&”¶

Pruébalo en línea! El enlace es a la versión detallada del código. Editar: guardado 19 bytes en minúscula todo. Explicación:

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

Retina , 333 331 321 bytes

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?`

Pruébalo en línea! Editar: guardado 1 byte al comprimir doubty 1 byte en minúsculas todo para que pueda comprimir reply. Luego guardé 10 bytes usando el golfista Retina Kolmogorov de @ Leo en el texto en minúsculas (que casualmente es el número de bytes que guardó en mi respuesta de 333 bytes).

Coco , 380 bytes

Puerto de coco de la respuesta totalmente humana

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('.'))

Pruébalo en línea!

T-SQL, 393 bytes

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()

La función STRING_SPLITsolo está disponible en SQL 2016 y versiones posteriores.

Lo mejor que pude obtener para versiones anteriores usando VALUES('It is certain'),('It is decidedly so'),...fue 464 caracteres.

Formateado, para que pueda ver la parte de trabajo:

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

NEWID() genera un nuevo GUID pseudoaleatorio, por lo que es una forma de hacer una ordenación pseudoaleatoria.

Jalea , 201 bytes

-2 bytes gracias al Sr. Xcoder. -1 byte gracias al usuario202729.

“æ⁽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

Pruébalo en línea!

Maldición , la compresión de SOGL es buena.

05AB1E , 171 bytes

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

Pruébalo en línea!

Explicación

“ ... “empuja una cadena de todas las palabras requeridas.
Algunas palabras se toman directamente del diccionario 05ab1e.
Algunos están escritos en ascii simple (como haze).
Algunos son diccionario y ascii combinados (como do+n't ).

Entonces el código de procesamiento es:

#                 # 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

Rubí, 362 361 bytes

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

Pruébalo en línea!

• 1 byte gracias a @ benj2240

Python 3, 386 bytes

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 bytes

"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¡Ω

Pruébalo en línea!

Solución bastante básica. Las posibles respuestas se concatenan con el carácter x (ya que no está presente en las respuestas) y luego se comprimen (dentro de • ), 'x¡Ω se divide en x y aparece una opción aleatoria.

Gracias a @Emigna por señalar que a la compresión del alfabeto no le gusta 'o mucho'. Se solucionó rodeando la cadena comprimida con don ' y , sí .

PHP , 412 385 337 384 bytes

<?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)];

Pruébalo en línea!

Solución bastante sencilla. Divida la cadena por un delimitador (en este caso 1) y elija un elemento aleatorio de la matriz.

Javascript, 372 bytes

-10 bytes gracias a 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]

Pruébalo en línea!

Befunge

1221 870 bytes (el perímetro de todo el campo es de 33x36 30 * 29 caracteres) Gracias a Jo King por ayudarme a eliminar los nulos finales e instarme a cambiar el aleatorizador.

"<"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"
>:#,_@

La línea superior coloca el carácter '<' y la posición x (28) donde debería ir en la pila. Luego ingresamos el tipo de generador de números aleatorios. Esto podría mejorarse, pero esto es lo que podría entregar a corto plazo ... El número "aleatorio" se compensa para obtener la línea "aleatoria" real para leer.

Después de que se genera el número aleatorio, colocamos el carácter '<' en esa línea y empujamos las letras en la pila y en la línea inferior las imprimimos nuevamente.

Nota; si usa el intérprete al que he vinculado en el título de esta publicación, debe volver a hacer clic en "Mostrar" después de cada ejecución, porque la adición del carácter '<' permanece después de la ejecución.

Java 8 , 433 , 392 , 380 , 379 bytes

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

Pruébalo en línea!

• 41 bytes gracias a AdmBorkBork!
• 10 bytes gracias a Kevin!
• 1 byte gracias a Oliver!

Rojo , 367 bytes

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

Pruébalo en línea!

No parece realmente aleatorio en TIO (aunque funciona bien en la consola roja), es por eso que agregué un azar / semilla al encabezado.

Excel, 399 bytes

=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")

Como CHOOSE(X.Y,<>)es lo mismo CHOOSE(X,<>), no es necesario unINT

No hay mucho golf que puedas hacer aquí ...

Aceto , 345 + 1 = 346 bytes (+1 para -lbandera)

"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

Pruébalo en línea!

No es demasiado interesante, pero no puedo pensar en nada más corto en este lenguaje, sin cadenas comprimidas ni nada.

"...." empujar cadenas separadas por puntos
      '. periodo literal
        : dividido en período
         Y barajar pila
          p imprimir arriba

C - 426 bytes

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]);}

Utiliza una variable no inicializada mod 20 para indexar en una matriz de cadenas que contiene todas las salidas posibles. Los compiladores se quejan de que stdio.h no está incluido, pero funciona bien. Probablemente porque resulta que tiene la biblioteca estándar vinculada de todos modos. Suerte la mía.

Ir, 530 bytes

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}}

Tenga en cuenta que, en Go Playground, debido a cómo funciona la siembra, siempre da el mismo resultado. Cuando se ejecuta en una computadora normal, todo funciona como debería.
Creo que es posible ahorrar un poco más, pero mi conocimiento en Go se detiene allí :)

Versión formateada y comprobable

Excel-VBA, 362 341 339 Bytes

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

Donde A1:T1contienen las diferentes opciones. Lee toda la primera fila de la hoja en una matriz ve indexa un punto aleatorio a lo largo de los primeros 19 valores.

Sorprendido al descubrir que indexar una matriz no requiere valores enteros

VBA, 358 bytes

Una función de ventana inmediata anónima VBE que no toma entradas y salidas a 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 bytes

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

Pruébalo en línea