TITLE

SUBTITLE

All types of formatting codes. Only the indexing terms should be processed in
order to find definitions. The other ones are ignored.


head

All heads below should be parsed as possible definitions, but ignored afterwards.


Unambiguous definition without meta info (this has to be indexed as category only)


All definitions below should be indexed as valid definitions, following => https://github.com/antoniogamiz/Perl6-Documentable.


# vim: expandtab softtabstop=4 shiftwidth=4 ft=perl6

root

IO related error


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

role X::IO


use v6;

use Druid::Game;
use Druid::View;

#| A textual view of a C<Druid::Game>. Draws a large isometric 3D view, with
#| the pieces rendered as ASCII blocks, and two smaller 2D views giving
#| information about the colors and heights of the pieces on the board.
unit class Druid::View::Text is Druid::View;

has $!cached-board;

my $v-piece = '
 +-----+
/|#v#v#|
||#v#v#|
|+-----+
/-----/
';

my $h-piece = '
 +-----+
/|#h#h#|
||#h#h#|
|+-----+
/-----/
';

my $cover-right = '

       #
       #
';

my $cover-top = '
  #####
';

my $cover-top-right = '
       #
';

#| Returns a string containing an ASCII picture of an empty Druid board of
#| the given size.
sub make-empty-board($size) {
    # The 'join $sep, gather { ... }' pattern allows us to put a long
    # string together, without having to refer to the same variable over
    # and over.
    return join "\n", gather {
        take '';
        take my $heading
            = [~] '   ', map {"   $_ "}, ("A".."Z")[^$size];
        take my $line = [~] '   ', '+-----' x $size, '+';
        for (1..$size).reverse -> $r {
            take [~] (sprintf '%2d |', $r),
                     '      ' x ($size) - 1,
                     "     | $r";
            take [~] '   |', '      ' x ($size) - 1,  '     |';
            if $r > 1 {
                take [~] '   +', '     +' x $size;
            }
        }
        take $line;
        take $heading;
        take '';
    };
}

submethod new($game) {
    self.bless(:$game);
}

submethod BUILD(:$game) {
    $!cached-board = make-empty-board($game.size);
}

#| Prints the 3D game board and the two smaller sub-boards, reflecting the
#| current state of the game.
method show() {
    .print for $!cached-board, self.colors-and-heights();
}

#| Returns the 3D game board and the two smaller sub-boards, reflecting the
#| current state of the game.
method Str() {
    return [~] $!cached-board, self.colors-and-heights();
}

method build-layers($board is copy, $from) {
    my @layers = @.layers[$from .. @.layers.end];
    for @layers.kv -> $relheight, $layer {
        my $height = $relheight + $from;
        for $layer.kv.reverse -> $line, $row {
            for $line.kv.reverse -> $cell, $column {
                next if $cell == 0;

                given ($v-piece, $h-piece)[$cell-1] -> $piece {
                    $board = put( $piece, $board, $height, $row, $column );
                    if $column < $.size - 1
                       && $layer[$row][$column] == $layer[$row][$column+1] {
                        $board = put( $cover-right, $board,
                                      $height, $row, $column );
                    }
                    if $row < $.size - 1
                       && $layer[$row][$column] == $layer[$row+1][$column] {
                        $board = put( $cover-top, $board,
                                      $height, $row, $column );
                    }
                    if $row & $column < $.size - 1
                       && $layer[$row][$column]
                          == $layer[$row+1][$column]
                          == $layer[$row][$column+1]
                          == $layer[$row+1][$column+1] {
                        $board = put( $cover-top-right, $board,
                                      $height, $row, $column );
                    }
                }
            }
        }
    }

    return $board;
}

#| Given a string representing a piece and one representing the board,
#| returns a new board with the piece inserted into some coordinates. This
#| sub assumes that pieces are drawn in an order that makes sense, so that
#| pieces in front cover those behind.
sub put($piece, $board, $height, $row, $column) {
    my @lines = $board.split("\n");

    my $coord-line = +@lines - 8 - 3 * $row - $height;

    return put($piece, "\n" ~ $board, $height, $row, $column)
        if $coord-line < 0;

    my $coord-column = 3 + 6 * $column + $height;

    for $piece.split("\n").kv -> $line-no, $piece-line {
        my $board-line = @lines[$coord-line + $line-no];
        @lines[ $coord-line + $line-no ]
            = merge($board-line, $piece-line, $coord-column);
    }

    return @lines.join("\n");
}

#| Given a string (assumed to contain no newlines), replaces a section of
#| that string, starting from $column, with the contents of $new.
#| When replacing characters, two excpetions are made:
#|
#| 

|     spaces in $new are treated as 'transparent', so that they
#|     don't replace the old character,
#| =for item
#|     octothorpes '#' insert actual spaces, i.e. act as a sort of
#|     escape character for spaces.
sub merge($old, $new, $start) {
    my @old = $old.comb;
    my @new = $new.comb;


item


    push @old, ' ' xx $start + @new - @old;

    for @new.kv -> $i, $char {
        @old[$start + $i] = $char unless $char eq ' ';
        @old[$start + $i] = ' ' if $char eq '#'
    }

    return @old.join('');
}

#| Prints two smaller boards representing
#| 

who owns each location, and
#| =item how many stones have been piled on each location.
method colors-and-heights() {



    my &from-pretty    = { $^pretty.trans( ['>>',   '<<', '.']
                                        => ['%2d','%-2d','%s'] ) };

    my &format-colors  = { <. v h>[$^color] };
    my &format-heights = { $^height || '.' };

    my $letters = ('A'..'Z')[^$.size];

    my $inter-board-space
        = ' ' x (1 + 6*$.size - 2*$.size - 2*($.size-1) - 14);
    my $board-line = [~] '>>  ', ('.' xx $.size).join(' '), '  <<';

    my $footer = [~] "\n      ", $letters.join(' '),
                     ' ' x 8, $inter-board-space,
                     $letters.join(' '), "\n";
    my $header = "$footer\n";

    return gather {
        take $header;
        for (1..$.size).reverse -> $row {
            take sprintf from-pretty(
                    [~] '  ', $board-line, $inter-board-space, $board-line
                ),
                $row, (map &format-colors,  @.colors[$row-1].values),  $row,
                $row, (map &format-heights, @.heights[$row-1].values), $row;
            take "\n";
        }
        take $footer;
    };
}

method add-piece($height, $row, $column, $color) {
    $!cached-board = self.build-layers($!cached-board, $height);
}

method reset() {
    $!cached-board = self.build-layers($!cached-board, 0);
}

# vim: filetype=perl6


Text

Immutable mapping from strings to values


class Map does Associative does Iterable { }


# vim: expandtab softtabstop=4 shiftwidth=4 ft=perl6


 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file
 # comment to modify the file

class Map


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


role X::IO

Formatting::Different::X

`Formatting::Different::X`

〹

Formatting::Different::X

`Formatting::Different::X`

Formatting::Different::X

^[1]

P<Formatting::Different::X>

`Formatting::Different::X`

`Formatting::Different::X`

Formatting::Different::X

INTRODUCTION

p6doc

The arrow operator

The `anon` declarator

Block phasers

postcircumfix `( )`

trait is export

Formatting::Different::X

Formatting::Different::X

〹

Formatting::Different::X

Formatting::Different::X

Formatting::Different::X

[1]

P<Formatting::Different::X>

Formatting::Different::X

Formatting::Different::X

Formatting::Different::X

INTRODUCTION

p6doc

The arrow operator

The anon declarator

Block phasers

postcircumfix ( )

trait is export

`Formatting::Different::X`

`Formatting::Different::X`

^[1]

`Formatting::Different::X`

`Formatting::Different::X`

The `anon` declarator

postcircumfix `( )`