ajs

# Based on Python's itertools.tee, takes a list and a count and returns
# count number of iterators, each of which will "contain" all elements
# of the input list, but without evaluating/flattening the input list
# until needed.
#
sub tee(@list, :$count = 2) {
        my @indices = 0...^$count;
        my @inputs = @indices.map({[]});
        my $maketee = -> $i {
                gather loop {

ajs

role EXPRish is Parser {}
grammar EXPR does EXPRish {
  rule TOP { <expr> }
  rule expr { <num> '+' <num> | <num> }
  token num { (\d+) }
}
class EXPR::Actions does EXPRish {
  action TOP { make $<expr>.ast }
  action expr {
    if $<num>.elems == 1 {

ajs

# A trivial program that breaks when run like so:
#  perl6 --target=PIR --output=broken.pir broken.p6
#  parrot broken.pir

use v6;

BEGIN { say "begin" }
START { say "start" }
ENTER { say "enter" }

ajs

use v6;

class Filename is Str {
    # Do some filename type stuff, here...
}

sub MAIN(
    Filename(Str) :$foo
    #= A filename argument.
  ) {

ajs

use v6;

class Filename is Str {
    # Do some filename type stuff, here...
}

sub MAIN(
    :$foo is copy where { $foo = Filename.new: :value($foo) }
    #= A filename argument.
  ) {

ajs

#Toward a Specification for Perl 6-like Regular Expressions

##Notation

"..." will be used throughout this document to indicate some arbitrary content, which should be explained subsequently.

Otherwise, very little is left to the reader to imagine other than when we get to language-specific concepts.

##Unicode

ajs

class ArgTrie is Hash {
    # A simple Trie that builds a tree from input words (command-line arguments)
    # and can generate a list of unique prefixes mapped to the full words.

    has $.count is rw = 0;

    method gist() { "\{ count={self.count.gist} {self.pairs.gist} \}" }

    method insert(Str $word) {
        my $letter = $word.substr(0,1);

ajs

#!/usr/bin/env perl6
#
# Demonstrate a bug in defualt handling. One failure:
#
# ok 1 - My something isa Something
# ok 2 - My something does Pingable
# ok 3 - Something starts at zero
# ok 4 - Ping the something
# ok 5 - Something incremented to 1
# not ok 6 - Starts at zero

ajs

$ perl6 -e 'role Thrower { submethod BUILD(|c) { die; } }; use Test; for <Any Hash Set Int List Routine Mu> -> $name { my $type = ::($name); my $thing = $type.^mixin(Thrower); dies-ok {$thing.new }, "Expect BUILD on ({$thing.perl})" }'
ok 1 - Expect BUILD on (Any+{Thrower})
not ok 2 - Expect BUILD on (Hash+{Thrower})

# Failed test 'Expect BUILD on (Hash+{Thrower})'
# at -e line 1
not ok 3 - Expect BUILD on (Set+{Thrower})

# Failed test 'Expect BUILD on (Set+{Thrower})'
# at -e line 1

ajs

use v6;

# Empty list sorts to the empty list
multi quicksort([]) { () }

# Called on a scalar item (not a list of one item) return it as a list
multi quicksort($item) { $item, }
 
# Otherwise, extract first item as pivot...
multi quicksort([$pivot, *@rest]) {