Magic 8-ball: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
No edit summary |
||
Line 1,178: | Line 1,178: | ||
Magic.8.Ball |
Magic.8.Ball |
||
</lang> |
</lang> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>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.", "Yes.", |
|||
"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."}; |
|||
q = Input["Please enter your question"]; |
|||
SeedRandom[Hash[q]]; |
|||
Print[RandomChoice[answers]]</lang> |
|||
{{out}} |
|||
<pre>[Are you awesome?]Yes - definitely.</pre> |
|||
=={{header|min}}== |
=={{header|min}}== |