Acme-Glue

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

        [   1   ],
    );

    my $skip = @court.[1..*].pick.pick;
    my @play;

    for @court.reverse -> $hop {
        @play.push( $hop.map( *.subst( /^$skip$/,'🚫' ).list ) );
    }

    say @play.reverse.join( "\n" );

## LEEJO (vec and pack examples from perldoc vec)

    #!/usr/bin/env perl -wl

    print <<'EOT';
                                      0         1         2         3
                       unpack("V",$_) 01234567890123456789012345678901
    ------------------------------------------------------------------
    EOT

lib/Acme/Glue.pm  view on Meta::CPAN

        [   1   ],
    );

    my $skip = @court.[1..*].pick.pick;
    my @play;

    for @court.reverse -> $hop {
        @play.push( $hop.map( *.subst( /^$skip$/,'🚫' ).list ) );
    }

    say @play.reverse.join( "\n" );

=head2 LEEJO (vec and pack examples from perldoc vec)

    #!/usr/bin/env perl -wl

    print <<'EOT';
                                      0         1         2         3
                       unpack("V",$_) 01234567890123456789012345678901
    ------------------------------------------------------------------
    EOT

snippets/LEEJO/hopscotch.p6  view on Meta::CPAN

	[   1   ],
);

my $skip = @court.[1..*].pick.pick;
my @play;

for @court.reverse -> $hop {
	@play.push( $hop.map( *.subst( /^$skip$/,'🚫' ).list ) );
}

say @play.reverse.join( "\n" );

snippets/LEEJO/transform.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/ say /;

my $required_order = [ @ARGV ];
my $chaos = [
	{
		1 => 'Liz',
		2 => 'Nat',
		3 => 'Lee',
	},
];

# transform an array of hashes into an array of arrays where each array
# contains the values from the hash sorted by the original hash keys or
# the passed order of columns (hash slicing)
my @ordered = @{ $required_order // [] }
    ? map { [ @$_{ @{ $required_order } } ] } @{ $chaos }
    : map { [ @$_{sort keys %$_} ] } @{ $chaos };

say join( ",",map { @{ $_ } } @ordered );