Number guessing game in Raku

number_guessing_game.p6

put 'Guess the number!';

my Int:D $secret_number := (1..100).pick;

loop {
    with +prompt "Please input your guess.\n" {
        when UInt:D {
            put "You guessed: $_";

            given $_ <=> $secret_number {
                when Order::More { put 'Too big!' }
                when Order::Less { put 'Too small!' }
                when Order::Same { put 'You win!'; last }
            }
        }
    }
}