Magic 8-ball: Difference between revisions
→Add Transd
Thundergnat (talk | contribs) m (→{{header|Forth}}: fix markup) |
|||
Line 2,343:
1190 PRINT "Very doubtful."</syntaxhighlight>
=={{header|Transd}}==
The description of Magic ball never says that the answer must be random. Hey, how can we give the user just random answers?
<syntaxhighlight lang="Scheme">#lang transd
MainModule : {
ans: ["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."],
_start: (lambda locals: sense 0 quest ""
(while true
(lout "Please, ask your question:")
(getline quest)
(if (not (size quest)) break)
(if (neq (back quest) "?") (lout "\nEh?") continue)
(= sense 0)
(tql quest reduce: ["col1"] using: (λ c Char() (+= sense c)))
(lout (get ans (mod sense 20)))
)
)
}</syntaxhighlight>
=={{header|uBasic/4tH}}==
| |||