Image

head

code

root

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

README

use Array::Sorted::Util:ver<0.0.7>:auth<zef:lizmat>;

class Array::Sorted::Map:ver<0.0.1>:auth<zef:lizmat> does Associative {
    has $.keys   is built(:bind) is required;
    has $.values is built(:bind) is required;

    method AT-KEY(\key) {
        (my $pos := finds($!keys, key)).defined
          ?? $!values[$pos]
          !! Nil
    }

    method kv() {
        gather for ^$!keys.elems {
            take $!keys[$_];
            take $!values[$_];
        }
    }
    method anti-pairs() {
        (^$!keys.elems).map: -> int $i { $!values[$i] => $!keys[$i] }
    }
    method pairs() {
        (^$!keys.elems).map: -> int $i { $!keys[$i] => $!values[$i] }
    }
    method iterator() {
        self.pairs.iterator
    }
}



Array::Sorted::Map - Provide a Map interface for 2 sorted lists


=begin code :lang<raku>

use Array::Sorted::Util;
use Array::Sorted::Map;

my @keys;
my @values;

inserts(@keys, "a", @values, 42);  # "inserts" from Array::Sorted::Util
inserts(@keys, "b", @values, 666);

my %map := Array::Sorted::Map.new(:$keys, :$values);

say %map<a>;  # 42;
say %map<b>;  # 666;
say %map<c>;  # Nil

say %map.keys;    # (a b)
say %map.values;  # (42 666)

=end code


Array::Sorted::Map provides a class that can be used to provide a C<Map>
interface to two sorted lists: one for keys, and one for values, such as
typically created / maintained by the subroutines offered by the
C<Array::Sorted::Util> distribution.


Source can be located at: https://github.com/lizmat/Array-Sorted-Map .
Comments and Pull Requests are welcome.


This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


unit module Array::Shaped::Console:ver<0.0.3>;

constant @grayscale is export= chr(0x25A1)..chr(0x25A9);
constant @dashes is export = '–'..'―';
constant @lines is export = '⎽'...'⎺';
constant @shades is export = '░'..'▓';
constant @lower is export = '▁'..'█';
constant @left is export = '▏'...'█';
constant @squares is export = <▪ ◾ ◼>;
constant @circles is export = <◌ ○ ◍ ●>;
constant $inf-char is export = chr(0x25A0);
constant @chars is export = ".:-=+*#%@".comb;

sub printed( @array where @array.shape.elems == 2,
             @symbols = @grayscale,
             $non-symbol = $inf-char
            ) is export returns Str {
    my @shape = @array.shape;
    my $min = @array.grep( * ≠ -∞).min;
    my $max = @array.grep( * ≠ ∞).max;
    my $convert = { ($_ - $min) * @symbols.elems / (1 + $max - $min ) };
    my $render;
    for ^@shape[0] -> $i {
        for ^@shape[1] -> $j {
	        if ( @array[$i;$j] ≠ any(∞, -∞) ) {
		        $render ~= @symbols[$convert(@array[$i;$j])];
	        } else {
		        $render ~= $non-symbol;
	        }
        }
        $render ~= "\n";
    }
    return $render;
}



Array::Shaped::Console - Renders 2d arrays to a console using block symbols


=begin code :lang<perl6>

use Array::Shaped::Console;

my @array[2;2] = (-1,1;1,-1);
# Prints "□▧\n▧□\n"  using default "grayscale" console symbols array
printed(@array).say;

# Prints "□■\n■□\n" with infinity having a special default symbol.
@array = (-1,Inf;Inf,-1);
say printed( @array );


=end code


Array::Shaped::Console includes functions and ranges to easily render numeric 2d arrays to the console, using the same shape of the array, and adapting the array range to the number of symbols that are also handled in the function.


These arrays and "infinity" symbol are predefined;


@grayscale = chr(0x25A1)..chr(0x25A9);
@dashes  = '–'..'―';
@lines  = '⎽'...'⎺';
@shades  = '░'..'▓';
@lower  = '▁'..'█';
@left  = '▏'...'█';
$inf-char  = chr(0x25A0);


method printed( @array, @shapes = @grayscale, $non-symbol = $inf-char)


Returns a string that collates, using the array shape, in a single string that separates rows by a carriage return.


Console

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


README

NAME

SYNOPSIS

DESCRIPTION

method printed( @array, @shapes = @grayscale, inf-char)

AUTHOR

COPYRIGHT AND LICENSE

Array::Shaped::Console v0.0.3

Authors

License

Dependencies

Test Dependencies

Provides

Documentation