☺唐鳳☻
and 1 contributors

Explanation of How Hangman Operates

sub cls

Returns nothing.

Checks the magical lexical (S02) $?OS against a junction consisting of 3 values. Use the ternary operator ?? :: to decide what system command to use to clear the screen.

sub get_committer_list

err is the low precedence form of // (S03). // is especially useful in its assignment form:

    $x //= $y;

To summarize, || and or relate to truth, while // and err relate to definedness.

Next, we use smart matching, ~~, to skip all of the lines from the beginning of the file which have something other than whitespace.

In the loop that follows:

    for (=$dict) -> $name {

we use the unary = to perform a readline operation on the filehandle.

sub draw_board

We look over the numbers which are the indices to the elements of the array @letters by forcing the array into numerical context:

    for (0 .. (+@letters - 1)) -> $i {

Now, ~= might throw you. You Perl 5'ers are seeing the regexp matching operator in reverse. But what you should be seeing is the Perl 6 string concatenation operator (~) followed by an equal sign. Which therefore means that

  $output ~= @letters[$i]; 

translates to:

  $output = $output ~ @letters[$i] ;

sub has_won

In the grep here:

    @letters == @solution.grep:{ $_ ne '' };

the block beginning with a colon is called an adverbial block. It is equivalent with:

    grep(@solutions: { $_ ne '' })

In both cases, @solutions is the invocant, and the block is the argument.

sub guess

The loop construction (S04) is used without the the statement modifiers until or <while> which it can take.

sub draw_if_greater_than

    sub draw_if_greater_than (Str $char, Int $num) returns Bool { 
        ($number_of_bad_guesses >= $num) ?? $char :: ' ';
    }

The character for blank should be a constant, e.g.:

    my ($BLANK) is constant = ' ';

but it is not implemented yet.

sub draw_hangman

Here we see function interpolation, i.e. the use of { ... } blocks inside strings.

## main loop

Note that the list-context x in Perl 5 is now xx in Perl 6:

    @solution = ('' xx +@letters);

ERRATA

If you read Apocalypse 03, you will see strong motivation for changing the ternary operator syntax.

AUTHOR

Terrence "metaperl" Brannon

Substantial #perl6 help from

  mauke, ninereaons, revdiablo, autrijus, stevan