Planet Perl Six

lazy

sub Fibonacci($n) {
    return $n if $n == 0 | 1;
    Fibonacci($n - 1) + Fibonacci($n - 2);
}

> my @Fibonacci := (0, 1, -> $a, $b { $a + $b } ... *); 1;
1
> say @Fibonacci[5]
5
> say @Fibonacci[10]
55
> say @Fibonacci[30]
832040

my $x = 1;
for $*IN.lines {
    when /^X\:/ { say "X: { $x++ }"; }
    say $_;
}

for $*IN.lines -> $line {
    # say (~$line).trans("C..GABc..gab" => "FGABc..gab");  # from D to G
    say (~$line).trans("C..GABc..gab" => "D..GABc..gabh"); # from G to A
}

sub pascal { [1], -> @p { [0, @p Z+ @p, 0] } ... * };
say pascal[^10].perl
# output (reformatted for easy readbility):
# ([1],
#  [1, 1],
#  [1, 2, 1],
#  [1, 3, 3, 1],
#  [1, 4, 6, 4, 1],
#  [1, 5, 10, 10, 5, 1],
#  [1, 6, 15, 20, 15, 6, 1],
#  [1, 7, 21, 35, 35, 21, 7, 1],
#  [1, 8, 28, 56, 70, 56, 28, 8, 1],
#  [1, 9, 36, 84, 126, 126, 84, 36, 9, 1])

class LinesIter is Iterator {
    has $!filehandle;
    has $!value;

    method infinite() { False } # or should this be True?

    method reify() {
        unless $!value.defined {
            $!value := pir::new('Parcel');
            my $line = $!filehandle.get;
            if $line.defined {
                pir::push($!value, $line);
                pir::push($!value, LinesIter.new(:filehandle($!filehandle)));
            }
        }
        $!value;
    }
}

class LinesIter is Iterator {
    has $!filehandle;
    has $!value;

    method infinite() { False }

    method reify() {
        unless $!value.defined {
            $!value := pir::new('Parcel');
            my $line = $!filehandle.get;
            if $line.defined {
                pir::push($!value, $line);
                $line = $!filehandle.get;
                if $line.defined {
                    pir::push($!value, $line);
                    $line = $!filehandle.get;
                    if $line.defined {
                        pir::push($!value, $line);
                        pir::push($!value, LinesIter.new(:filehandle($!filehandle)));
                    }
                }
            }
        }
        $!value;
    }
}

my $count = 0;
for $*IN.lines {
    $count++;
}

say :$count.perl;

my $count = 0;
loop {
    $*IN.get // last;
    $count++;
}

say :$count.perl;

$*IN.slurp;

if 'ABC' ~~ /:i abc/ {
    say "case insensitive match";
}

if 'ABC' ~~ rx:i/abc/ {
    say "case insensitive match";
}

$_ = 'ab12fg34';
s:g/\d/X/;
.say; # output: abXXfgXX

$_ = 'Hello, World';
# :ii is the same as :samecase
s:ii/world/perl/;
.say; # output: Hello, Perl

$_ = 'I did not know that that work together';
s:2nd/that/they/;
.say; # output: I did not know that they work together

  "szabgab" .oO "Perl 6 is cool";

  szabgab thinks Perl 6 is cool

  2.78  ~~ 10 +- 3 ?? 't' !! 'f'     # f
  7.5   ~~ 10 +- 3 ?? 't' !! 'f'     # t
  13    ~~ 10 +- 3 ?? 't' !! 'f'     # t
  13.1  ~~ 10 +- 3 ?? 't' !! 'f'     # f

    use v6;

    sub f($a, $b) {
        return "$a - $b";
    }

    say f(4, 2);

    say f(4, 2, 5);

    Too many positional parameters passed; got 3 but expected 2
      in 'f' at line 3:script.p6
      in main program body at line 8:script.p6

    say f(4);

    Not enough positional parameters passed; got 1 but expected 2
      in 'f' at line 3:script.p6
      in main program body at line 8:script.p6

    use v6;

    sub f {
        return @_.perl
    }

    say f(4, 2);     # [4, 2]
    say f(4);        # [4]
    say f(4, 2, 3);  # [4, 2, 3]

    use v6;

    sub f($a, $b?) {
        return defined $b ?? "$a - $b" !! "$a - na";
    }

    say f(4, 2);    # 4 - 2
    say f(4);       # 4 - na

    use v6;

    sub f($a, $b?) {
        $b //= 17;
        return defined $b ?? "$a - $b" !! "$a - na";
    }

    say f(4, 2);    # 4 - 2
    say f(4);       # 4 - na

    Cannot modify readonly value
      in '&infix:<=>' at line 1
      in 'f' at line 4:02.p6
      in main program body at line 8:02.p6

    use v6;

    sub f($a, $b = 17) {
        return defined $b ?? "$a - $b" !! "$a - na";
    }

    say f(4, 2);    # 4 - 2
    say f(4);       # 4 - 17

    use v6;

    sub f($a, $b? is copy) {
        $b //= 17;
        return defined $b ?? "$a - $b" !! "$a - na";
    }

    say f(4, 2);    # 4 - 2
    say f(4);       # 4 - 17

    use v6;

    sub f($a, Int $b) {
        return "$a - $b";
    }

    say f(4, 2);
    say f(4, "foo");

    4 - 2
    Nominal type check failed for parameter '$b'; expected Int but got Str instead
      in 'f' at line 4:03.p6
      in main program body at line 9:03.p6

    use v6;

    sub f($a, Int $b where { $b < 10 }) {
        return "$a - $b";
    }

    say f(4, 2);
    say f(4, 11);

    4 - 2
    Constraint type check failed for parameter '$b'
      in 'f' at line 4:03.p6
      in main program body at line 9:03.p6

    sub infix:<.oO>($name, $thought) {  
        say "$name thinks $thought"
    }

    sub infix:<+->($a, $b) { ($a-$b) .. ($a+$b) }

   5 +- 2

    perl6-users-subscribe@perl.org

say uc 34;      # coerces 34 to a string, and upper-cases it
say 1 + "2";    # converts "2" to a number before adding

> my $fact = gather { take 1; my $a = 1; for 1..* { $a *= $_; take $a + 0 } }; say $fact[3];
6
> say $fact[3]
6
> say $fact[4]
24
> say $fact[10]
3628800
> say $fact.munch(20).perl
(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6.402373705728e+15, 1.21645100408832e+17)

> my $fact = [\*] 1..*; say $fact[3]
24
> $fact.munch(20).perl
(1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6.402373705728e+15, 1.21645100408832e+17, 2.43290200817664e+18)

  my %h = "Foo" => 1, "Bar" => 2;

  say %h.perl;    # {"Foo" => 1, "Bar" => 2}

  say %h{"Foo"};  # 1

  say %h{Foo};    # Could not find sub &Foo

  my $name = "Foo";
  say %h{$name};   # 1

  say <Foo Bar>;   # FooBar

  say %h<Foo>;     # 1

  say %h<Foo Bar>;  # 1 2

  say %h<Foo Bar>.perl;  # (1, 2)

  for %h.keys -> $k { say "$k %h{$k}"; }

  for %h.values -> $v { say $v; }

  for %h.kv -> $k, $v { say "$k - $v"; }

  %h<Moo> = 3;

  say %h.perl;    # {"Moo" => 3, "Foo" => 1, "Bar" => 2}

  %h<Moo> = 4;
  say %h.perl;   # {"Moo" => 4, "Foo" => 1, "Bar" => 2}

  %h.push( 'Moo' => 5 );
  say %h.perl;   # {"Moo" => [4, 5], "Foo" => 1, "Bar" => 2}

class FiniteIntRangeQuadIter is Iterator {
    has $!value;
    has $!max;
    has $!nextIter;

    method infinite() { False }

    method reify() {
        return ($!value,) if $!value ~~ EMPTY;
        unless $!nextIter.defined || $!nextIter ~~ EMPTY {
            if $!value != $!max {
                my $s = $!value + 4;
                $!nextIter =
                    $s < $!max
                        ?? FiniteIntRangeQuadIter.new( :value($s),
                                                       :max($!max) )
                        !! EMPTY;
            } else {
                $!nextIter = EMPTY;
            }
        }
        $!value, $!value + 1, $!value + 2, $!value + 3, $!nextIter;
    }
}

class ConsIter is Iterator {
    has $!value-parcel;
    has $!nextIter;

    method infinite() { $!nextIter ~~ EMPTY ?? False !! $!nextIter.infinite; }

    method reify() {
        &infix:<,>(|$!value-parcel, $!nextIter);
    }
}

sub MakeSmartIter($a, $b) {
    return EMPTY if ($b < $a);

    my $mod = ($b - $a + 1) % 4;
    if $mod == 0 {
        FiniteIntRangeQuadIter.new(:value($a), :max($b));
    } else {
        my @parcel-to-be;
        my $i;
        loop ($i = 0; $i < $mod; $i++) {
            @parcel-to-be.push($a + $i);
        }

        my $parcel = &infix:<,>(|@parcel-to-be);
        my $next-iter = $a + $mod < $b ?? FiniteIntRangeQuadIter.new(:value($a + $mod),
                                                                     :max($b))
                                       !! EMPTY;
        ConsIter.new(:value-parcel($parcel),
                     :nextIter($next-iter));
    }
}

        my $parcel := pir::new__Ps('Parcel');
        my $i;
        loop ($i = 0; $i < $mod; $i++) {
             pir::push($parcel, $a + $i);
        }

for 1..10000 {
    my $a = $_ + 1;
}

class FiniteIntRangeIter is Iterator {
    has $!value;
    has $!max;
    has $!nextIter;

    method infinite() { False }

    method reify() {
        return ($!value,) if $!value ~~ EMPTY;
        unless $!nextIter.defined || $!nextIter ~~ EMPTY {
            if $!value != $!max {
                my $s = $!value.succ;
                $!nextIter =
                    $s < $!max
                        ?? FiniteIntRangeIter.new( :value($s),
                                                   :max($!max) )
                        !! EMPTY;
            } else {
                $!nextIter = EMPTY;
            }
        }
        $!value, $!nextIter;
    }
}

<pmichaud> 早安, #perl6
<jnthn> 早, pmichaud
<PerlJam> pm 你好
<colomon> o/
<mathw> o/ pmichaud
<moritz_> /o/
<mathw> \o\
<jnthn> \o/ |\o/| o< /o\
<jnthn> ;-)
<mathw> 啊啊啊啊
* mathw 躲起來
<okeCay> o/\o !

for 1..10000 {
   # do something
}

my $i;
loop ($i = 0; $i < 10000; $i++) {
    my $a = $i + 1;  # this line just to give the loop something to do!
}

for 1..* {
    last if $_ > 10000;
}

class InfiniteIntRangeIter is Iterator {
    has $!value;
    has $!nextIter;

    method infinite() { True; }

    method reify() {
        unless $!nextIter.defined {
            $!nextIter = InfiniteIntRangeIter.new( :value($!value.succ) );
        }
        $!value, $!nextIter;
    }
}

class InfiniteIntRangeIter is Iterator {
    has $!value;
    has $!nextIter;

    method infinite() { True; }

    method reify() {
        unless $!nextIter.defined {
            $!nextIter = InfiniteIntRangeIter.new( :value($!value + 2) );
        }
        $!value, $!value + 1, $!nextIter;
    }
}

  use v6;

  my &f := &substr.assuming('Hello, World');
  say f(0, 2);                # He
  say f(3, 2);                # lo
  say f(7);                   # World

  say <a b c>.map: * x 2;     # aabbcc
  say <a b c>.map: *.uc;      # ABC
  for ^10 {
      print <R G B>.[$_ % *]; # RGBRGBRGBR
  }
  sub f(*@a) {
      substr('Hello, World', |@a)
  }
  my &f := &substr.assuming('Hello, World');
  my &add_two := &infix:<+>.assuming(2);
  my &add_two := * + 2;
  say add_two(4);         # 6
  my $c = * * 5 + *;
  say $c(10, 2);                # 52
  my $star = *;
  my $code = $star + 2
  Can't take numeric value for object of type Whatever
  say  ~(1, 3).map: 'hi' x *    # hi hihihi
  say <a b c>.map: *.uc;      # ABC
<audreyt> Alias_：我的眼鏡是 style="border: none"
<Alias_> 無所謂
<Alias_> 人眼的感光邊界會自動加上 border: solid 1px #9999
<audreyt> 說得對
<audreyt> 不過以我的視力來說，更像是 ridged
* audreyt 望著頻道上的高度技客傾向嘆氣
...
<audreyt> 這顯然要 blame malaire++
<audreyt> 我的意思是 praise
<audreyt> 不然說 annotate 好了

<autrijus> 歡迎上船！
<masak> 謝謝。因為 Pugs 的關係，我幾乎整晚沒睡。:-)
<autrijus> 開心嗎？
<masak> 太興奮了
<autrijus> 這感覺我懂 :)))

<autrijus> 待會見 - 洗澡去 &
<geoffb> 所以說唐鳳在浴室連 IRC 的謠言不是真的嘍...
<geoffb> 也許他把筆記型電腦放在浴簾外，邊洗邊看螢幕。
<autrijus> 沒錯。
<autrijus> 通常是這樣。
<autrijus> 我都拿牙刷按鍵盤，以免鍵盤進水。
<geoffb> *大笑*
...
<Juerd> 每本講 Perl 6 的書都太舊了。
<Juerd> 它們送印後兩小時就過時了。
<Juerd> 等它們進到書店，已經過期一個月了。
<Juerd> 等你買到書準備看時，autrijus 已經把 Perl 6 實作出來了。:)
<mauke> 在睡夢裡實作的！
<castaway> autrijus 會睡覺？
<nothingmuch> castaway: 有時候他宣稱自己去睡了。
* castaway 完全不信
<mauke> 也許他和電腦之間有神經界面，讓他在夢裡寫程式。
<castaway> 這我一點都不意外 :)
<Juerd> castaway: 嗯，有時後他說要去睡，可是沒幾個小時後
              就出現了一大份提交。所以我才不信呢。:)
<castaway> 嘻嘻
<castaway> 據我看來，他每次最多只睡 30 分鐘。
<Juerd> 我想他有超線程功能。

<avar> ?eval <物美 迅速 價廉>.pick(2)
<evalbot_r16148>（"物美", "價廉")
<TimToady> 這是在說我們沒錯...

  use v6;

  my $content = slurp "text.txt";
  say $content.chars;

  use v6;

  my @content = slurp "text.txt";
  say @content.elems;
  say @content[0].chars;

  use v6;

  my @content = lines "text.txt";
  say @content.elems;
  say @content[0].chars;

  use v6;

  for lines "text.txt" -> $line {
    say $line.chars;
  }

  use v6;
  my $fh = open "text.txt";

  my $first_line = $fh.get;
  say $first_line;

  for $fh.lines -> $line {
    say $line.chars;
  }

  use v6;

  my $fh = open "out.txt", :w;
  $fh.say("text 4");
  $fh.close;

  say slurp "out.txt";

  use v6;

  my $content = slurp "text.txt";
  say $content.chars;

  use v6;

  my @content = slurp "text.txt";
  say @content.elems;
  say @content[0].chars;

  use v6;

  my @content = lines "text.txt";
  say @content.elems;
  say @content[0].chars;

  use v6;

  for lines "text.txt" -> $line {
    say $line.chars;
  }

  use v6;
  my $fh = open "text.txt";

  my $first_line = $fh.get;
  say $first_line;

  for $fh.lines -> $line {
    say $line.chars;
  }

  use v6;

  my $fh = open "out.txt", :w;
  $fh.say("text 4");
  $fh.close;

  say slurp "out.txt";

  use v6;

  my $content = slurp "text.txt";
  say $content.chars;

  use v6;

  my @content = slurp "text.txt";
  say @content.elems;
  say @content[0].chars;

  use v6;

  my @content = lines "text.txt";
  say @content.elems;
  say @content[0].chars;

  use v6;

  for lines "text.txt" -> $line {
    say $line.chars;
  }

  use v6;
  my $fh = open "text.txt";

  my $first_line = $fh.get;
  say $first_line;

  for $fh.lines -> $line {
    say $line.chars;
  }

  use v6;

  my $fh = open "out.txt", :w;
  $fh.say("text 4");
  $fh.close;

  say slurp "out.txt";

  # create a hash from a list of keys and values:
  # solution 1: slices
  my %hash; %hash{@keys} = @values;
  # solution 2: meta operators
  my %hash = @keys Z=> @values;

  # create a hash from an array, with
  # true value for each array item:
  my %exists = @keys Z=> 1 xx *;

  # limit a value to a given range, here 0..10.
  my $x = -2;
  say 0 max $x min 10;

  # for debugging: dump the contents of a variable,
  # including its name, to STDERR
  note :$x.perl;

  # sort case-insensitively
  say @list.sort: *.lc;

  # mandatory attributes
  class Something {
      has $.required = die "Attribute 'required' is mandatory";
  }
  Something.new(required => 2); # no error
  Something.new()               # BOOM
  # create a hash from a list of keys and values:
  # solution 1: slices
  my %hash; %hash{@keys} = @values;
  # solution 2: meta operators
  my %hash = @keys Z=> @values;
  my %exists = @keys Z=> 1 xx *;
  my $in-range = $lower max $x min $upper;
 $x max= 0;
 $x min= 10;
    # WARNING: Perl 5 code ahead
    my @sorted = sort { transform($a) cmp transform($b) } @values;

    # or the so-called Schwartzian Transform:
    my @sorted = map { $_->[1] }
                 sort { $a->[0] cmp $b->[0] }
                 map { [transform($_), $_] }
                 @values
    my @sorted = sort &transform, @values;
    has $.attr = die "'attr' is mandatory";
  use v6;
  my @people = ;
  for @people -> $n {
    say $n;
  }

  use v6;
  my @people = ;
  for 0 .. @people.elems/2 -> $i {
    say "@people[$i*2] -  @people[$i*2+1]";
  }

  use v6;
  my @people = ;
  for @people -> $name, $phone {
    say "$name - $phone";
  }

  use v6;
  my @names = ;
  my @phones = <123 456 789 512>;
  for @names Z @phones -> $name, $phone {
    say "$name - $phone";
  }

  use v6;
  for 1 .. 10 -> $n {
    say $n;
  }

  use v6;
  for 1,3 ... Inf -> $n {
    say $n;
    last if $n > 10;
  }

  use v6;
  my @people = ;
  for @people -> $n {
    say $n;
  }

  use v6;
  my @people = ;
  for 0 .. @people.elems/2 -> $i {
    say "@people[$i*2] -  @people[$i*2+1]";
  }

  use v6;
  my @people = ;
  for @people -> $name, $phone {
    say "$name - $phone";
  }

  use v6;
  my @names = ;
  my @phones = <123 456 789 512>;
  for @names Z @phones -> $name, $phone {
    say "$name - $phone";
  }

  use v6;
  for 1 .. 10 -> $n {
    say $n;
  }

  use v6;
  for 1,3 ... Inf -> $n {
    say $n;
    last if $n > 10;
  }

  use v6;
  my @names = "Foo", "Bar", "Moo";
  say @names[];
  say "Hello {@names} how are you?";
  say "Hello { join('; ', @names) } how are you?";

  use v6;
  my @names = ;
  say "Hello {@names} how are you?";
  for @names -> $n {
    say $n;
  }

  use v6;
  my @names = "Foo", "Bar", "Moo";
  say @names[];
  say "Hello {@names} how are you?";
  say "Hello { join('; ', @names) } how are you?";

  use v6;
  my @names = ;
  say "Hello {@names} how are you?";
  for @names -> $n {
    say $n;
  }

sub sine-power($x) {
    my $sign = 1;
    gather for 1, 3 ... * -> $n {
        take $sign * $x ** $n / [*] (1 ... $n);
        $sign *= -1;
    }
}

sub sine-power($x) {
    my $sign = 1;
    my $x-part = $x;
    my $denom = 1;
    gather for 3, 5 ... * -> $n {
        take $sign * $x-part / $denom;
        $sign *= -1;
        $x-part *= $x * $x;
        $denom *= $n * ($n - 1);
    }
}

> say sine-power(0.1).munch(4).perl;
(1/10, -1/6000, 1/12000000, -1.98412698412698e-11)

> say ([+] sine-power(0.1).munch(3)).perl;
1198001/12000000

> say [+] sine-power(0.1).munch(3);
0.0998334166666667

say sin(0.1);
0.0998334166468282

  use v6;
  say "Hello world";

  use v6;
  my $name = prompt "Please type in your name: ";
  say "Hello $name, how are you?";

  use v6;
  my $year = prompt "When were you born? ";
  if $year > 1987 {
    say "You are younger than Perl by { $year - 1987 } years";
  }

  use v6;
  my $year = prompt "When were you born? ";
  if 1995 > $year > 1987 {
    say "You are younger than Perl 1 but older than Perl 5";
  }

  use v6;
  my $luck = prompt "What is your lucky number? ";
  if $luck == 3 or $luck == 7 or $luck == 13 {
    say "Oh, that's like mine";
  }

  if $luck == 3|7|13 {
    say "Oh, that's still like mine";
  }

  use v6;
  say "Hello world";

  use v6;
  my $name = prompt "Please type in your name: ";
  say "Hello $name, how are you?";

  use v6;
  my $year = prompt "When were you born? ";
  if $year > 1987 {
    say "You are younger than Perl by { $year - 1987 } years";
  }

  use v6;
  my $year = prompt "When were you born? ";
  if 1995 > $year > 1987 {
    say "You are younger than Perl 1 but older than Perl 5";
  }

  use v6;
  my $luck = prompt "What is your lucky number? ";
  if $luck == 3 or $luck == 7 or $luck == 13 {
    say "Oh, that's like mine";
  }

  if $luck == 3|7|13 {
    say "Oh, that's still like mine";
  }

<TimToady> masak: 對了，那些杯子是前一天扔的。

<jnthn> 那些？我以為只扔了一個杯子!

<masak> jnthn: 五個。

<masak> jnthn: 不過，只有一個摔破了。

<masak> TimToady: 感謝。這樣我還來得及寫周年紀念文。

<jnthn> masak: 礸!

<TimToady> 我當時應該把碎片留作紀念的。

<masak> 「Perl 6: 相容性、咖啡杯，2000 年起都砸碎。」

* pmichaud 打開 photoshop, 準備放上 cafepress

<masak> pmichaud: 「Perl 6: 打破杯具，再創豐杯。」

<pmichaud> 「語言有難時，請擊碎此杯。」

<jnthn> 「Perl 6: 比 Perl 5 更牆一杯。」

<pmichaud> 「Perl 6 大破大立、碎碎平安!」

<masak> "if $杯 === all @碎片 {say '夠了，太杯撞了!'}

<jnthn> 你杯得動的。:P

* masak 笑到杯桁了

<TimToady> 「Jon 為什麼要扔甜甜圈呢？」 -- 拓樸學家

<masak> :P

<TimToady> 「這是碎杯。<mug> 這是你嗑了碎杯的腦袋。              <camelia> 有問題嗎？」

<masak> 「Perl 6: 十年聖杯碎，今請尋其蹤。」

<jnthn> 「杯比怎麼昇出來的？」

<masak> 都被 Jon Orwant 搞大了。

<jnthn> 五杯無寸鐵，何人竟害之!

<masak> 我為清潔工祈倒。

<masak> 「Perl 6: 杯已擲下。」

my @foo = 0,5,2,4,1,3;
my @sorted-squares = sort map { $_ ** 2 }, @foo;
say @sorted-squares.perl;
my @foo = 0,5,2,4,1,3;
@foo ==> map { $_ ** 2 }
     ==> sort
     ==> my @sorted-squares;
say @sorted-squares.perl;
my @foo = 0,5,2,4,1,3;
@foo ==> map { $_ ** 2 }
     ==> my @unsorted-squares
     ==> sort
     ==> my @sorted-squares;
say @unsorted-squares.perl;
say @sorted-squares.perl;

[0, 25, 4, 16, 1, 9]
[0, 1, 4, 9, 16, 25]
for TrigTest::cosines() -> $angle
{
    my $desired-result = $angle.result;

    # Num.cos tests -- very thorough
    is_approx($angle.num(Radians).cos, $desired-result,
              "Num.cos - {$angle.num(Radians)} default");
    for TrigTest::official_bases() -> $base {
        is_approx($angle.num($base).cos($base), $desired-result,
                  "Num.cos - {$angle.num($base)} $base");
    }
}

# Rat tests
is_approx((-0.785398163404734).Rat(1e-9).cos, 0.707106781186548, "Rat.cos - -0.785398163404734");
is_approx((0).Rat(1e-9).cos(Circles), 1, "Rat.cos(Circles) - 0");
is_approx((0.785398163404734).Rat(1e-9).cos(:base(Radians)), 0.707106781186548, "Rat.cos(:base(Radians)) - 0.785398163404734");
is_approx(cos((1.57079632680947).Rat(1e-9)), 0, "cos(Rat) - 1.57079632680947");
is_approx(cos((135).Rat(1e-9), Degrees), -0.707106781186548, "cos(Rat, Degrees) - 135");
is_approx(cos(:x((3.14159265361894).Rat(1e-9))), -1, "cos(:x(Rat)) - 3.14159265361894");
is_approx(cos(:x((250).Rat(1e-9)), :base(Gradians)), -0.707106781186548, "cos(:x(Rat), :base(Gradians)) - 250");

<a b c>.pick;       # pick one random element
<a b c>.pick(2);    # pick two distinct, random elements
<a b c>.pick(2, :replace); # pick two random elements, it's ok
                           # if they are the same
<a b c>.pick(*);    # return a random permutation of the elements
<a b c>.pick(*, :replace); # infinite, random stream of elements

{a => 1, b => 2}.pick;  # returns 'a' with probability 1/3
                        # and 'b' with probability 2/3

{a => 1, b => 2}.pick(*);  # <a b b> with probability 1/3
                           # <b a b> with probability 1/3
                           # <b b a> with probability 1/3
{a => 1, b => 0.5}.pick(*) # dies, because the weights aren't all integers
{a => 1, b => 0.5}.pick(*, :replace)  # ok 

{a => 1, b => 2.5, c => 1}

# could translate to 
my @keys = ('a', 'b', 'c');
my @accumulated_weights = (1, 3.5, 4.5);

# now pick a random number between 0 and 4.5,
# find the next-highest index in @accumulated_weights
# with a binary search, and then use that to obtain the key.

class POC::Tester does App::Pls::Tester {
    method test($project --> Result) {
        my $target-dir = "cache/$project<name>";
        if "$target-dir/Makefile" !~~ :e {
            return failure;
        }
        unless run-logged( relative-to($target-dir, "make test"),
                           :step('test'), :$project ) {
            return failure;
        }

        return success;
    }
}
role POC::TestAnnouncer {
    method test($project --> Result) {
        announce-start-of('test', $project&lt;name&gt;);
        my $result = callsame;
        announce-end-of('test', $result);
        return $result;
    }
}
POC::Tester.new() does POC::TestAnnouncer

Planet Perl Six

Yapsi 2010.09 Released!

Rakudo Star 2010.08 released

New: rakudo-star-201007-1, Updated: rakudo-201007_47-1 (aka perl6) by Reini Urban

The Series Operator and Memoization

Idiomatic Perl 6

Fixing Rakudo Memory Leaks

Quick ABC fixes

Pascal's Triangle in Perl 6

On the language wars

Programming Languages Are Not Zero Sum

Thank you/TPF

Where in the world is the package lexpad?

Rakudo’s meta-model: The Road Ahead

Timing Text File Reads, Part 3

Timing Text File Reads, Part 2

Timing Text File Reads

The State of Regex Modifiers in Rakudo

Perl 6 subroutines and home made operators

Welcome back to the Perl 6 Tricks and Treats

The Thought operator

The +- operator

Subroutines in Perl 6

Perl 5 style in Perl 6

Optional parameter

Parameters are read-only

Default value of a parameter

Making the parameter a copy and thus changeable

Type restrictions on parameters

Other constraints on parameters

Creating operators in Perl 6

Comments and Discussion

Weeks 8..12 of GSoC work on Buf -- not packing it in yet

What is the "Cool" class in Perl 6?

There's just no way to keep up with all you people

Perl::Staff - Upcoming events for promoting Perl

Perl 6 Questions on Perlmonks

Factorial and Memoizing

So You want to write a Perl 6 module?

Perl 6 – ready enough for me

Notes from the YAPC::EU 2010 Rakudo hackathon

Attendees

Speed

What do we need to keep hacking?

Rakudo Star feedback

Proto/Pls

Backend diversity

Attracting contributors

Documentation

My first YAPC - YAPC::EU 2010 in Pisa

Perl 6 and Perl 5 are different languages

Yapsi 2010.08 Released!

Re: "Perlito" MiniPerl6 5.0 - more bootstrapped backends, morePerl 6 compatibility by Guy Hulbert

Community boost

Perl 6 screencast - part 5 - hashes

Perl 6 Code examples

Rakudo Star：Perl 6 正式起飛（五之五）

Rakudo Star, and where from here

Rakudo Star is here

Rakudo Star - an "early adopter" distribution of Perl 6

A more complete design

Optimizing Range Iteration, Part 2

Perl 6 十周年慶: Rakudo：白銀年代 (五之四)

Optimizing Range Iteration

Currying

Vector.pm working again

Happy 2nd birthday to Padre - Get on an IRC channel

Happy 2nd birthday to Padre - Get on an IRC channel

Perl 6 十周年慶: Pugs：黃金年代 (五之三)

How to connect to the #perl6 IRC channel and try Perl 6 on-line

How to connect to the #perl6 IRC channel and try Perl 6 on-line

Perl 6 screencast - part 4 - files

Perl 6 Code examples

Perl 6 screencast - part 4 - files

Perl 6 Code examples

Perl 6 screencast - part 4 - files

Perl 6 Code examples

6 built-ins in Perl 6 that you never knew you needed

Announce: Rakudo Perl 6 compiler development release #31 ("Atlanta") by Will Coleda

Common Perl 6 data processing idioms