How to resolve the algorithm Magic 8-ball step by step in the Factor programming language

Published on 12 May 2024 09:40 PM
#Factor

How to resolve the algorithm Magic 8-ball step by step in the Factor programming language

Table of Contents

Problem Statement

Create Magic 8-Ball.

See details at:   Magic 8-Ball.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Magic 8-ball step by step in the Factor programming language

Source code in the factor programming language

USING: io kernel random sequences ;
IN: rosetta-code.magic-8-ball

CONSTANT: phrases {
    "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"
}

"Please enter your question or a blank line to quit." print

[ "? : " write flush readln empty? [ f ]
[ phrases random print t ] if ] loop

You may also check:How to resolve the algorithm Draw a clock step by step in the Locomotive Basic programming language
You may also check:How to resolve the algorithm AKS test for primes step by step in the Wren programming language
You may also check:How to resolve the algorithm Trigonometric functions step by step in the BQN programming language
You may also check:How to resolve the algorithm Fibonacci word step by step in the Oforth programming language
You may also check:How to resolve the algorithm Guess the number step by step in the C++ programming language