Hunt the Wumpus/Raku: Difference between revisions

m
Thundergnat moved page Hunt The Wumpus/Raku to Hunt the Wumpus/Raku: capitaliztion match
m (Thundergnat moved page Hunt The Wumpus/Perl 6 to Hunt The Wumpus/Raku: Name of the language has changed)
m (Thundergnat moved page Hunt The Wumpus/Raku to Hunt the Wumpus/Raku: capitaliztion match)
 
(2 intermediate revisions by the same user not shown)
Line 1:
{{collection|Hunt_The_Wumpus}}
=={{example|task=Hunt The Wumpus|language=Raku}}==
This is a fairly faithful translation of the code found in [http://www.atariarchives.org/bcc1/showpage.php?page=247 The Best of Creative Computing Volume 1 (published 1976)]. <br>
The text, prompts and game play are very close the the original. <br>
Line 7 ⟶ 8:
 
{{works with|Rakudo|2015-11-20}}
<syntaxhighlight lang="raku" perl6line>#Based on code from http://www.atariarchives.org/bcc1/showpage.php?page=247 copyright Gregory Yob
 
my $intro = q:to/END/;
Line 215 ⟶ 216:
%loc{<YOU WUMPUS PIT1 PIT2 BAT1 BAT2>} = (1..20).pick(*);
%loc;
}</langsyntaxhighlight>
Sample Output:
<pre>INSTRUCTIONS (Y-N) N
10,333

edits