One of These Things is not Like the Others


TITLE

AUTHOR

This event is a matching game. We'll provide you with some arrays, and you
have to write a script that reports which element in each array is different
from the others.


If you have an apple, an orange, and a carrot, which one doesn't belong?
We'd have to say the carrot, because the apple and the orange are fruits,
whereas the carrot is a vegetable. In this event you'll take groups of three
elements and determine which element is different from the others. You'll
start with five arrays, with three elements in each array:


$a1 = ("monday", "MONDAY", "monday");
$a2 = ("TUESDAY", "tuesday", "tuesday");
$a3 = ("WEDNESDAY", "wednesday", "wednesday");
$a4 = ("thursday", "thursday", "THURSDAY");
$a5 = ("friday", "FRIDAY", "friday");


To receive the 5 points for this event you must write a script that reports
which of the three elements in each array is different from the other two.
For example, the second element in array 1 is different, so your output
would look something like this:


L<http://web.archive.org/web/20070228055412/http://www.microsoft.com/technet/scriptcenter/funzone/games/games07/bevent3.mspx>


code

=begin code :lang<raku>
use v6;



sub find_unique (@x) {
    my %test;
    %test{$_}++ for @x;
    return %test.pairs.first( { .value == 1 });
};

my @a1 = ("monday", "MONDAY", "monday");
my @a2 = ("TUESDAY", "tuesday", "tuesday");
my @a3 = ("WEDNESDAY", "wednesday", "wednesday");
my @a4 = ("thursday", "thursday", "THURSDAY");
my @a5 = ("friday", "FRIDAY", "friday");


find_unique(@a1).key.say;
find_unique(@a2).key.say;
find_unique(@a3).key.say;
find_unique(@a4).key.say;
find_unique(@a5).key.say;

# vim: expandtab shiftwidth=4 ft=perl6

=end code


root

Could I Get Your Phone Number?


advanced-2008

Skating on Thin Ice


You Call That a Strong Password?


Blackjack!


Pairing Off


beginner-2008

Pairing off


Let's Get Together


Coffee Break


Random Guess


Bowling


README.md

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

L<http://web.archive.org/web/20080324231941/http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/bevent1.mspx>


This is one of the less-complicated events, both to explain and to perform.
In this event we'll be working with a standard deck of playing cards. A
standard deck consists of four suits: Hearts, Spades, Clubs, and Diamonds.
Within each suit are the numbers two through ten, plus a Jack, a Queen, a
King, and an Ace.


Given a random set of five cards, your task is to find out how many pairs
are in that set. In other words, if your five cards are the 2 of hearts, the
4 of spades, the 4 of clubs, the queen of diamonds and the queen of spades,
you have 2 pairs: 2 fours and 2 queens. As another example, you might have a
3 of clubs, a 3 of diamonds, a 3 of hearts, a 10 of spades and an ace of
hearts. In that case you have 3 pairs: 3 of clubs and 3 of diamonds; 3 of
diamonds and 3 of hearts; and 3 of clubs and 3 of hearts.


For this event you should assume you've been dealt the following five cards:


item

Using this set of cards, your script should display the number of pairs.
Keep in mind that we will look at the scripts as we test them. A script that
simply displays the number 3 will receive a score of 0; you actually have to
do the calculations based on these cards. Not only that, but it shouldn't
matter what the cards are: if we substitute any other set of five cards your
script should still return the correct number of pairs.


=begin code :lang<raku>
use v6;



my @cards = qw{6 5 6 6 K};
my $p = 0;
for @cards.kv -> $k, $v {
    $p += @cards[$k+1 .. *].grep: {$_ eq $v}
}
say "Total: $p";

# vim: expandtab shiftwidth=4 ft=perl6

=end code


beginner-2007

In Blackjack! competitors must write a script that deals and plays a single
hand of Blackjack (Twenty-One).


For the final event in the Advanced Division you must write a script that
can deal – and play – a single hand of Blackjack (also known as Twenty-One).
For the purposes of this event, we’ll be playing a simplified version of
Blackjack, one that features the following rules:


Oh, OK: if you want to you can make aces worth 1 or 11. But you don’t have
to do this unless you want to.


Your script should start by “shuffling” a standard deck of playing cards and
then dealing two cards to the player and two more to the dealer. (Not sure
what cards make up a ‘standard deck of playing cards?” Then click here for
more information.) As in regular blackjack, the two cards to the player
should be dealt “face up;” that is, both cards should be revealed:


Your cards:
Seven of Spades
Eight of Spades


By contrast, only one of the dealer’s cards should be revealed:


Note. Notice that we specified the cards by name. Don’t just list card
values, like this:


That will cause your script to fail. Be specific when it comes to listing cards.


Again, following standard Blackjack rules, the player should be given the
option to stay (play the two cards he or she was dealt) or hit (be dealt
another card). In other words:


If the player chooses “hit,” then he or she should be dealt another card. If
the sum total of the three cards is more than 21, then the player
automatically loses:


Stay (s) or hit (h) ?h
Seven of Spades
Eight of Spades
Seven of Diamonds
Over 21. Sorry, you lose.


If the sum total is 20 or less, then the player is given another opportunity
to hit or stay. (If the sum total is 21 the player wins.) As soon as the
player chooses to stay, the dealer (the computer) checks to see if its point
total exceeds that of the player. For example, suppose the player has the
seven of spades and the eight of spades; that means that the player has 15
points. Now suppose that the dealer has the ace of hearts and the six of
diamonds. That means that the dealer has 17 points (11 + 6), which also
means that the dealer automatically wins.


Now, suppose the player has 16 points and the dealer has 13. In that case,
the dealer must be dealt another card. Let’s examine some possibilities for
that next card:


A complete hand might play out something like this:


=begin code
Your cards:
King of Hearts
Seven of Hearts

Dealer's cards:
Nine of Hearts

Stay (s) or hit (h)?s

You have 17.

Dealer's cards:
Nine of Hearts
Seven of Diamonds

Dealers' cards:

Nine of Hearts
Seven of Diamonds
Five of Diamonds
The dealer has 21. Sorry, you lose.
=end code


See? That shouldn't be too terribly hard, especially not for anyone who made
it through the first nine events.


L<http://web.archive.org/web/20080406020248/http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/aevent10.mspx>


=begin code :lang<raku>
use v6;



sub MAIN(Bool :$computer-player = False) {
    my $player_is_human = not $computer-player;

    my @values = (
        ace => 1|11,
        two => 2,
        three => 3,
        four => 4,
        five => 5,
        six => 6,
        seven => 7,
        eight => 8,
        nine => 9,
        ten => 10,
        jack => 10,
        queen => 10,
        king => 10,
    );

    my @suites = < spades clubs diamonds hearts >;

    my @deck = ( @values X @suites ).flat.map: {
        my ($name, $value) = $^a.kv;
        $name ~= " of $^b";
        $name => $value
    };

    my @cards = $computer-player ?? default-cards() !! @deck.pick( @deck.elems );

    my @dealer;
    my @player;

    @dealer.push( @cards.shift );
    @player.push( @cards.shift );
    @dealer.push( @cards.shift );

    say "DEALER:";
    say @dealer[0].key;
    say "";

    say "PLAYER:";
    .key.say for @player;

    my $player_value = [+] @player.map: { .value };

    loop {
        my $card = @cards.shift;

        @player.push( $card );
        say $card.key;

        $player_value += $card.value;

        say "current value is { $player_value.perl }";

        if $player_value == 21 {
            say "congratulations, you win!";
            exit 0;
        }
        elsif $player_value < 21 {
            say "hit (h) or stay (s)";
            my $choice;
            if ($player_is_human) {
                loop {
                    $choice = lc $*IN.get;
                    last if $choice eq "h" | "s";
                    say "invalid entry: 'h' or 's'";
                }
            }
            else {
                $choice = $player_value < 16 ?? "hit" !! "stay";
            }
            say $choice;
            last if $choice ~~ /s/;
        }
        else {
            say "sorry, you bust!";
            exit 0;
        }
    }

    say "";

    $player_value = max (4 .. 21).grep: { $_ == $player_value };

    say "DEALER:";
    .key.say for @dealer;

    my $dealer_value = [+] @dealer.map: { .value };

    loop {
        say "dealer value: {$dealer_value.perl}";

        if $dealer_value == any( $player_value ^.. 21) {
            say "you lose!";
            exit 0;
        }
        elsif $dealer_value < 21 {
            my $card = @cards.shift;
            @dealer.push( $card );
            say $card.key;
            $dealer_value += $card.value;
        }
        else {
            say "dealer bust: you win!";
            exit 0;
        }
    }
}

sub default-cards {
    return [
    "three of diamonds" => 3,
    "five of diamonds" => 5,
    "seven of diamonds" => 7,
    "ten of diamonds" => 10,
    "two of diamonds" => 2,
    "jack of spades" => 10,
    "five of clubs" => 5,
    "five of hearts" => 5,
    "eight of diamonds" => 8,
    "six of spades" => 6,
    "five of spades" => 5,
    "king of hearts" => 10,
    "nine of diamonds" => 9,
    "two of hearts" => 2,
    "king of clubs" => 10,
    "eight of clubs" => 8,
    "two of spades" => 2,
    "ace of hearts" => any(1, 11),
    "nine of hearts" => 9,
    "eight of spades" => 8,
    "jack of diamonds" => 10,
    "jack of hearts" => 10,
    "nine of clubs" => 9,
    "ten of hearts" => 10,
    "eight of hearts" => 8,
    "king of spades" => 10,
    "ace of spades" => any(1, 11),
    "queen of hearts" => 10,
    "nine of spades" => 9,
    "two of clubs" => 2,
    "queen of diamonds" => 10,
    "three of spades" => 3,
    "queen of clubs" => 10,
    "three of clubs" => 3,
    "ten of spades" => 10,
    "ace of clubs" => any(1, 11),
    "ace of diamonds" => any(1, 11),
    "four of hearts" => 4,
    "six of clubs" => 6,
    "ten of clubs" => 10,
    "seven of hearts" => 7,
    "king of diamonds" => 10,
    "four of diamonds" => 4,
    "seven of spades" => 7,
    "queen of spades" => 10,
    "four of spades" => 4,
    "six of hearts" => 6,
    "four of clubs" => 4,
    "seven of clubs" => 7,
    "six of diamonds" => 6,
    "three of hearts" => 3,
    "jack of clubs" => 10]<>;
}

# vim: expandtab shiftwidth=4 ft=perl6

=end code


The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


AUTHOR

See Also