Guessing Game

guessing-game.p6

say "Guess the number!";

my $secret_number = (1..100).pick;

loop {
    my $guess = prompt("Please input your guess: ").Int or next;
    
    say "You guessed: $guess";
    
    given $guess <=> $secret_number {
        when Less { say "Too small!" }
        when More { say "Too big!"   }   
        when Same {
            say "You win!";
            last;
        }   
    }   
}