Magic 8-ball: Difference between revisions

{{trans|Python}}

 

‘You may rely on it’, ‘As I see it, yes’, ‘Most likely’, ‘Outlook good’,

‘Signs point to yes’, ‘Yes’, ‘Reply hazy, try again’, ‘Ask again later’,

E

qs.add(question)

 

=={{header|8080 Assembly}}==

 

 

puts: equ 9

gets: equ 10

xabcdat: equ buf + 60 ; Point RNG data into uninitialized memory,

; to make it more exciting.

 

=={{header|8086 Assembly}}==

This procedure when run displays a random Magic 8-Ball phrase (the list was shortened to 16 different phrases to simplify the random number generation) and outputs it to the console, then exits back to MS-DOS. A 32 bit [[wp:Xorshift|Xorshift]] routine was used to create the random numbers, and it was seeded using the computer's current time.

.model small

.stack 1024

xchg al,ah

;now the word is loaded into ax, big-endian.

 

{{out}}

 

=={{header|Action!}}==

DEFINE PTR="CARD"

DEFINE COUNT="20"

PutE()

OD

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Magic_8-ball.png Screenshot from Atari 8-bit computer]

 

=={{header|Ada}}==

 

with Ada.Text_IO; use Ada.Text_IO;

end Main;

 

{{out}}

<pre>

 

=={{header|ALGOL 68}}==

[]STRING answers = ("It is certain.", "It is decidedly so.",

"Without a doubt.", "Yes - definitely.", "You may rely on it.",

print((answers[ENTIER (random * UPB answers) + 1], new line))

OD

 

=={{header|AppleScript}}==

 

=={{header|Arturo}}==

"It is certain" "It is decidedly so" "Without a doubt"

"Yes, definitely" "You may rely on it" "As I see it, yes"

input "Ask a question: "

print sample answers

 

{{out}}

 

=={{header|AutoHotkey}}==

(join

"It is certain", "It is decidedly so", "Without a doubt","Yes, definitely",

MsgBox % answers[rnd]

gosub, Ask

 

=={{header|AWK}}==

# syntax: GAWK -f MAGIC_8-BALL.AWK

BEGIN {

exit(0)

}

{{out}}

<pre>

==={{header|BASIC256}}===

{{trans|QBasic}}

answer$[0] = "It is certain."

answer$[1] = "It is decidedly so."

print

end while

 

==={{header|QBasic}}===

{{works with|QBasic}}

{{works with|QuickBasic|4.5}}

FOR i = 0 TO UBOUND(answer$): READ answer$(i): NEXT i

RANDOMIZE TIMER

DATA "Don't count on it.","My reply is no."

DATA "My sources say no.","Outlook not so good."

 

==={{header|True BASIC}}===

{{trans|QBasic}}

FOR i = 1 to ubound(answer$)

READ answer$(i)

PRINT

LOOP

 

==={{header|Yabasic}}===

{{trans|QBasic}}

for i = 0 to arraysize(answer$(),1): read answer$(i): next i

 

data "Don//t count on it.","My reply is no."

data "My sources say no.","Outlook not so good."

 

 

=={{header|C}}==

{{trans|Kotlin}}

#include <stdlib.h>

#include <time.h>

if (question) free(question);

return 0;

 

{{output}}

 

=={{header|C++}}==

#include <cstdlib>

#include <ctime>

std::cout << answers[std::rand() % answers.size()] << '\n';

}

 

=={{header|C#}}==

using System;

 

 

 

 

=={{header|Clojure}}==

(def responses

["It is certain" "It is decidedly so" "Without a doubt"

(read-line)

(println (rand-nth responses)))

 

=={{header|CMake}}==

 

PROJECT(EightBall)

 

ADD_CUSTOM_TARGET(${PROJECT_NAME} ALL)

No question specified:

<pre>$ cmake -H. -Bbuild

-- Configuring done

-- Generating done</pre>

=={{header|Commodore BASIC}}==

10 dim f$(19):for i=0 to 19:read f$(i):next

20 print chr$(147);chr$(14)

1080 data "My sources say no.","Outlook not so good."

1090 data "Very doubtful."

 

=={{header|D}}==

 

const string[] responses = ["It is certain", "It is decidedly so",

}

}

Output:

<pre>Welcome to 8 ball! Please enter your question to find the answers you seek.

{{libheader| windows}}

{{Trans|C#}}

program Magic_8_ball;

 

ClearScreen;

end;

{{out}}

<pre>Magic 8 Ball! Ask question and hit ENTER key for the answer!</pre>

 

(Hit ENTER key to ask again)</pre>

 

=={{header|Factor}}==

IN: rosetta-code.magic-8-ball

 

 

[ "? : " write flush readln empty? [ f ]

{{out}}

<pre>

Yes

? : Are cats secretly alien spies?

Signs point to yes

? : Am I a genius?

 

=={{header|FreeBASIC}}==

"You may rely on it.", "As I see it, yes.", "Most likely.", "Outlook good.",_

"Yes.", "Signs point to yes.", "Reply hazy, try again.", "Ask again later.",_

print answer(int(rnd*20))

print

 

=={{header|Forth}}==

Responses are created as executable routines that return their Execution token to the Forth Data Stack.

The responses are retrieved from the data stack and compiled into a vector table, after which it is trivial for RANDOM to select any response.

INCLUDE RANDOM.FS

DECIMAL

BEGIN CR ." ? :" PAD 80 ACCEPT 0>

WHILE CR 19 RANDOM MAGIC8BALL CR

Test at the console<pre> ok

GO

 

=={{header|Fortran}}==

CHARACTER(LEN=100) :: RESPONSE

CHARACTER(LEN=100) :: QUESTION

PRINT*, "Response: ", TRIM(RESPONSES(FLOOR(R*20))), NEW_LINE('A')

ENDDO

Output:

<pre> Welcome to 8 Ball! Ask a question to find the answers

Is the future bright?

Response: Signs point to yes</pre>

=={{header|Go}}==

{{trans|Kotlin}}

 

import (

log.Fatal(err)

}

 

{{out}}

</pre>

=={{header|GW-BASIC}}==

20 DATA "Without a doubt.", "Yes - definitely."

30 DATA "You may rely on it.", "As I see it, yes."

160 INPUT "What would you like to know? ", Q$

170 PRINT M8BALL$(INT(RND*20))

 

=={{header|Haskell}}==

import Control.Monad (forever)

 

getLine

n <- getStdRandom (randomR (0, pred $ length answers))

 

=={{header|J}}==

Any array should work as the possible answers for the left (x) argument to eight_ball .

NB. translated from awk

 

end.

)

 

<pre>

 

=={{header|Java}}==

import java.util.Random;

import java.util.Scanner;

}

}

 

{{out}}

 

=={{header|JavaScript}}==

//console

var answers = [ "It is certain", "It is decidedly so", "Without a doubt",

console.log(answers[Math.floor(Math.random()*answers.length)]);

}

 

{{output}}

 

=={{header|Julia}}==

"Yes, definitely", "You may rely on it", "As I see it, yes", "Most likely",

"Outlook good", "Signs point to yes", "Yes", "Reply hazy, try again",

println(rand(responses))

end

<pre>

Ask a question (blank to exit):

Reply hazy, try again

</pre>

 

=={{header|Kotlin}}==

 

import java.util.Random

println("\n$answer")

}

 

{{output}}

 

=={{header|Liberty BASIC}}==

"You may rely on it","As I see it, yes","Most likely","Outlook good","Yes",_

"Signs point to yes","Reply hazy, try again","Ask again later","Better not tell you now",_

print "Answer: ";c$(d)

goto [loop]

{{output}}

Sample session :

=={{header|Locomotive Basic}}==

 

20 input "Your question (hit Return to quit)";i$

30 if i$="" then print "Goodbye!":end

270 print "My sources say no":return

280 print "Outlook not so good":return

 

=={{header|Lua}}==

answers = {

"It is certain.", "It is decidedly so.", "Without a doubt.", "Yes, definitely.", "You may rely on it.",

question = io.read()

print("A: "..answers[math.random(#answers)])

{{out}}

<pre>Q: Are you truly a magic 8-ball?

 

=={{header|M2000 Interpreter}}==

Module Magic.8.Ball {

answers=("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", "Signs point to yes", "Yes", "Reply hazy, try again", "Ask again later", "Better not tell you now", "Cannot predict now", "Concentrate and ask again", "Don't bet on it", "My reply is no", "My sources say no", "Outlook not so good", "Very doubtful")

}

Magic.8.Ball

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

"Without a doubt.", "Yes - definitely.", "You may rely on it.",

"As I see it, yes.", "Most likely.", "Outlook good.", "Yes.",

q = Input["Please enter your question"];

SeedRandom[Hash[q]];

{{out}}

<pre>[Are you awesome?]Yes - definitely.</pre>

 

=={{header|min}}==

{{works with|min|0.19.6}}

 

(

(phrases dup size pred random get puts!) :answer

 

{{out}}

<pre>

 

=={{header|MiniScript}}==

"Yes, definitely", "You may rely on it", "As I see it, yes",

"Most likely", "Outlook good", "Signs point to yes", "Yes",

print "Ask your question and the Magic 8 Ball will give you the answer!"

input "What is your question?"

{{out}}

<pre>

 

=={{header|Nim}}==

 

const Answers = ["It is certain", "It is decidedly so", "Without a doubt",

echo Answers[rand(19)], ".\n"

except EOFError:

 

{{out}}

 

=={{header|ooRexx}}==

/* REXX */

a=.array~of("It is certain", "It is decidedly so", "Without a doubt",,

Say a[random(1,20)]

Say ''

{{out}}

<pre>your question:

 

your question:</pre>

 

=={{header|Perl}}==

'You may rely on it', 'As I see it, yes', 'Most likely', 'Outlook good',

'Signs point to yes', 'Yes', 'Reply hazy, try again', 'Ask again later',

last unless <> =~ /\w/;

print @a[int rand @a], "\n";

 

=={{header|Phix}}==

<span style="color: #008080;">constant</span> <span style="color: #000000;">answers</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"As I see it, yes"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Ask again later"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"You may rely on it"</span><span style="color: #0000FF;">,</span>

<span style="color: #008000;">"Without a doubt"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Don't bet on it"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Outlook not so good"</span><span style="color: #0000FF;">,</span>

<span style="color: #008000;">"My sources say no"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Yes, definitely"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Yes, probably not"</span><span style="color: #0000FF;">,</span>

<span style="color: #008000;">"Very doubtful"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Your question has already been answered"</span><span style="color: #0000FF;">}</span>

 

=={{header|PHP}}==

===CLI===

 

$fortunes = array(

 

echo 'A: ', $fortunes[ array_rand( $fortunes ) ], PHP_EOL;

 

{{Out}}

A: It is certain

</pre>

 

=={{header|PureBasic}}==

"● It is decidedly so."+#LF$+

"● Without a doubt."+#LF$+

If Len(q$)=0 : End : EndIf

PrintN(StringField(Magic8,Random(CountString(Magic8,#LF$),1),#LF$))

{{out}}

<pre>MAGIC8: What would you like To know? Do you want me to take over the world?

 

=={{header|Python}}==

 

s = ('It is certain', 'It is decidedly so', 'Without a doubt', 'Yes, definitely',

question = input('Ask your question:')

if len(question) == 0: break

if question in q_and_a:

print('Your question has already been answered')

else:

q_and_a[question] = answer

 

{{output}}

 

=={{header|Quackery}}==

[ table

$ "Concentrate and ask again." $ "Yes."

$ "Don't count on it." $ "Yes - definitely."

$ "My sources say no." $ "As I see it, yes." ]

 

'''Testing in Quackery shell:'''

 

=={{header|R}}==

{

responses <- c("It is certain", "It is decidedly so", "Without a doubt",

{

eight_ball()

Output:

<pre>Welcome to 8 ball!

 

=={{header|Racket}}==

(list "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" "Yes" "Signs point to yes"

(read-line)

(displayln (magic-eightball))

{{out}}

We'll see if it's right.

{{works with|Rakudo|2018.03}}

 

 

["It is certain", "It is decidedly so", "Without a doubt", "Yes, definitely",

"Better not tell you now", "Cannot predict now", "Concentrate and ask again",

"Don't bet on it", "My reply is no", "My sources say no", "Outlook not so good",

Output very similar to C, Kotlin and zkl examples.

 

=={{header|REXX}}==

===version 1===

/* REXX */

Call mk_a "It is certain", "It is decidedly so", "Without a doubt",,

End

Return

{{out}}

<pre>your question:

 

Also, this REXX version appends a period to the phrase as per the (linked) documentation.

$="It is certain ÷It is decidedly so ÷Without a doubt÷Yes, definitely÷Signs point to yes",

"÷You may rely on it÷ As I see it, yes÷My reply is no÷Outlook good÷Outlook not so good",

"÷Concentrate and ask again÷Don't bet on it÷Most likely÷My sources say no÷Very doubtful"

 

{{out|possible output|text=&nbsp; when invoking the REXX program:}}

<pre>

 

=={{header|Ring}}==

# Project : Magic 8-Ball

 

index = random(len(answers)-1)+1

see answers[index] + nl

Output:

<pre>

It is certain

</pre>

=={{header|Ruby}}==

 

class EightBall

eight_ball = EightBall.new

eight_ball.run

Output:

<pre>Welcome to 8 ball! Ask your question below. Type 'quit' to exit the program.

=={{header|Rust}}==

{{libheader|rand}}

 

use rand::prelude::*;

input_line.clear();

}

{{out}}

<pre>

 

=={{header|Sather}}==

const answers: ARRAY{STR} :=

|

end;

end;

 

=={{Header|Scala}}==

 

object Magic8Ball extends App {

}

}

 

=={{Header|Tcl}}==

 

set answers {

puts "⑧ says “$answer”"

puts -nonewline "Question: "; flush stdout

{{out}}

<pre>$ tclsh magic8.tcl

 

=={{Header|Tiny BASIC}}==

20 INPUT N

30 REM in lieu of a random number generator

1180 PRINT "Outlook not so good."

1185 END

 

 

=={{header|uBasic/4tH}}==

' read the replies

For x = 0 to Used() - 1 : @(x) = Pop(): Next

Until Len(r)=0 ' check for empty line

Print Show(@(Rnd(x))) : Print ' show the reply

=={{header|UNIX Shell}}==

{{works with|Bourne Again Shell}}

"Yes definitely" "You may rely on it" "As I see it yes"

"Most likely" "Outlook good" "Signs point to yes" "Yes"

find the answers you seek. Type 'quit' to exit.\n\n"

 

<pre>Welcome to 8 ball! Enter your questions using the prompt below to

find the answers you seek. Type 'quit' to exit.

=={{header|Wren}}==

{{trans|Kotlin}}

import "io" for Stdin, Stdout

 

var answer = answers[rand.int(20)]

System.print("\n%(answer)")

 

{{out}}

=={{header|XBS}}==

Random Choice

 

while(true){

window->prompt("Ask 8-Ball a question");

log(Responses[rnd(0,?Responses-1)]);

Non-Random Choice

 

func Compile(String){

let N = Compile(Response);

log(Responses[N%(?Responses)]);

 

=={{header|XPL0}}==

Translation of Kotlin and C.

[Answers:= [

"It is certain", "It is decidedly so", "Without a doubt",

Text(0, Answer); CrLf(0);

]

 

{{out}}

=={{header|zkl}}==

{{trans|Raku}}

"It is certain", "It is decidedly so", "Without a doubt",

"Yes, definitely", "You may rely on it", "As I see it, yes",

);

println("Please enter your question or a blank line to quit.");

{{out}}

<pre>