scratchpad
cLive ;-)
<code>
s#(<img[^>]+src\s*=\s*(?:"|'))/img#$1/foo#s
</code>
<h1>Perl6 sample code...</h1>
<p>Simple stab:</p>
<code>
#!/home/clive/rakudo-star/bin/perl6
my $number = 100.rand.ceiling;
say "I'm thinking of a number between 1 and 100 inclusive. What is it?";
for ^7 {
my $guess = +prompt("Enter your guess:");
given $guess {
when ! *.isa(Int) { say "Hey, that's not an integer!" }
when * > $number { say "Too high!" }
when * < $number { say "Too low!" }
default { say "You got it!!!"; exit }
}
}
say "Really? I was thinking of $number";
</code>
<p>Class version (note, unfinished - allows infinite guesses)</p>
<code>
#!/home/clive/rakudo-star/bin/perl6
class GuessNumGame {
has $number = 100.rand.ceiling;
has $guess-count = 0;
has $.running is rw = True;
method guess ($guess) {
given $guess {
when ! *.isa(Int) { say "Hey, that's not an integer!" }
when * > $number { say "Too high!" }
when * < $number { say "Too low!" }
default { say "You got it!!!"; $.running=False }
}
}
}
my $game = GuessNumGame.new;
say "I'm thinking of a number between 1 and 100 inclusive. What is it?";
while $game.running {
$game.guess( +prompt("Enter your guess:") );
}
</code>