initial commit

Greet.pm

@@ -0,0 +1,5 @@
+unit module Greet;  
+
+sub hey($name) is export { 
+    say "Hey, $name!"; 
+} 

Math.pm

@@ -0,0 +1,5 @@
+unit module Math;  
+
+our sub sum(*@a) { 
+    return [+] @a; 
+} 

N.pm

@@ -0,0 +1,5 @@
+unit module N;  
+
+our sub n() { 
+    say "N::n()"; 
+} 

arr1.pl

@@ -0,0 +1,4 @@
+my @a = 1, 2, 3, 5, 7, 11;
+say @a.Int; # array length
+say @a.Str; # space-separated values
+

arr2.pl

@@ -0,0 +1,4 @@
+my @a = 1, 2, 3, 5, 7, 11;
+
+say @a;
+say "This is @a: {@a}";

bool1.pl

@@ -0,0 +1,7 @@
+my $b = Bool::True;
+$b--;
+say $b; # prints False
+
+$b = Bool::False;
+$b++;
+say $b; # True

bool2.pl

@@ -0,0 +1,7 @@
+say 42.Bool; # True
+
+my $pi = 3.14;
+say $pi.Bool; # True
+
+say 0.Bool; # False
+say "00".Bool; # True

bool3.pl

@@ -0,0 +1 @@
+say Bool::True.Int; # 1

dot-say.pl

@@ -0,0 +1,5 @@
+my @a = 10, 20, 30;
+.say for @a;
+.say() for @a;
+$_.say for @a;
+$_.say() for @a;

ex1.pl

@@ -0,0 +1,7 @@
+my @squares = 0, 1, 4, 9, 14, 25;
+say @squares[3]; # This prints the 4th element, thus 9
+
+my %capitals = 
+    'France'  => 'Paris', 
+    'Germany' => 'Berlin';
+say %capitals{'Germany'};

ex10.pl

@@ -0,0 +1 @@
+.say for @*ARGS;

ex11.pl

@@ -0,0 +1,4 @@
+for @*ARGS {
+    $_.say;
+}
+

ex12.pl

@@ -0,0 +1,3 @@
+for @*ARGS {
+    .say if /\d/;
+}

ex13.pl

@@ -0,0 +1,4 @@
+for @*ARGS {
+    $_.say if $_ ~~ /\d/;
+}
+

ex14.pl

@@ -0,0 +1,5 @@
+"Perl’s Birthday: 18 December 1987" ~~ 
+    /(\d+)\s(\D+)\s(\d+)/;
+say $/.Str;
+say $/[$_] for 0..2;
+

ex2.pl

@@ -0,0 +1,5 @@
+my %length-abbrs = 
+    :m('meter'), 
+    :km('kilometre'), 
+    :cm('centimetre');
+say %length-abbrs<km>; # prints kilometre

ex3.pl

@@ -0,0 +1,8 @@
+my $hello-world = "Hello, World";
+say $hello-world;
+
+my $don't = "Isn’t it a Hello?";
+say $don't;
+
+my $привет = "A Cyrillic Hi!";
+say $привет;

ex4.pl

@@ -0,0 +1,6 @@
+my $scalar = 42;
+my $hello-world = "Hello, World";
+
+say $scalar.WHAT;
+say $hello-world.WHAT;
+

ex5.pl

@@ -0,0 +1,5 @@
+my @list = 10, 20, 30;
+my @squares = 0, 1, 4, 9, 14, 25;
+
+say @list.WHAT;
+say @squares.WHAT;

ex6.pl

@@ -0,0 +1,6 @@
+my %hash = 'Language' => 'Perl';
+my %capitals = 'France'  => 'Paris';
+
+say %hash.WHAT;
+say %capitals.WHAT;
+

ex7.pl

@@ -0,0 +1,2 @@
+my $value = 42;
+say "OK" if $value.WHAT === Int;

ex8.pl

@@ -0,0 +1,2 @@
+my $value = 42;
+say "OK" if $value.isa(Int);

ex9.pl

@@ -0,0 +1,3 @@
+my $scalar = 42;
+say $scalar.VAR.name;
+

hash.pl

@@ -0,0 +1,5 @@
+my %hash = 
+    'Language' => 'Perl', 
+    'Version'  => '6';
+say %hash;
+

hash1.pl

@@ -0,0 +1,8 @@
+my %hash = 
+    Language => 'Perl',
+    Version => 6;
+
+say %hash.elems;  # number of pairs in the hash
+say %hash.keys;   # the list of the keys
+say %hash.values; # the list of the values
+

hash2.pl

@@ -0,0 +1,8 @@
+my %hash = 
+    Language => 'Perl',
+    Version => 6;
+
+for %hash.pairs {
+    say $_.key;
+    say $_.value;
+}

hash3.pl

@@ -0,0 +1,8 @@
+my %hash = 
+    Language => 'Perl',
+    Version => 6;
+
+for %hash.invert {
+    say $_.key;
+    say $_.value;
+}

hash4.pl

@@ -0,0 +1,5 @@
+my %hash = 
+    Language => 'Perl',
+    Version => 6;
+
+say %hash.kv;

hello.pl

@@ -0,0 +1 @@
+say "Hello, Perl 6!";

int1.pl

@@ -0,0 +1,3 @@
+my Int $x = 
+    12389147319583948275874801735817503285431532;
+say $x;

int2.pl

@@ -0,0 +1 @@
+say :16<D0CF11E0>

int3.pl

@@ -0,0 +1,2 @@
+my Int $x = 735_817_503_285_431_532;
+say $x;

int4.pl

@@ -0,0 +1,8 @@
+my Int $a = 65;
+say $a.chr; # A
+
+my Int $i = 17;
+say $i.is-prime; # True
+
+say 42.is-prime; # False
+

interp.pl

@@ -0,0 +1,2 @@
+my $x = 42;
+say "this is $x"

list.pl

@@ -0,0 +1,2 @@
+my @list = (10, 20, 30);
+say @list;

list1.pl

@@ -0,0 +1,5 @@
+my @list1 = <10 20 30>;
+say @list1;
+
+my @list2 = 10, 20, 30;
+say @list2;

mod1.pl

@@ -0,0 +1,5 @@
+unit module X;  
+
+sub x() {
+    say "X::x()";
+} 

mod2.pl

@@ -0,0 +1,5 @@
+module X { 
+    sub x() { 
+        say "X::x()"; 
+    } 
+} 

mod3.pl

@@ -0,0 +1,5 @@
+unit module X;  
+
+sub x() is export { 
+    say "X::x()"; 
+} 

mod4.pl

@@ -0,0 +1,3 @@
+use Greet;  
+
+hey("you"); # Hey, you! 

mod5.pl

@@ -0,0 +1,5 @@
+use Greet; 
+use Greet::Polite;  
+
+hey("you");     # a sub from Greet 
+hello("Mr. X"); # from Greet::Polite 

mod6.pl

@@ -0,0 +1,9 @@
+my module M { 
+    sub f($x) is export { 
+        return $x; 
+    } 
+}  
+
+import M;  
+
+say f(42); 

mod7.pl

@@ -0,0 +1,8 @@
+my module M { 
+    sub f($x) is export { 
+        return $x; 
+    } 
+}  
+say f(1); 
+import M; 
+say f(2); 

mod8.pl

@@ -0,0 +1,3 @@
+need N; 
+
+N::n(); 

mod9.pl

@@ -0,0 +1,3 @@
+require Math;  
+
+say Math::sum(24..42); # 627 

op1.pl

@@ -0,0 +1,3 @@
+say !True;     # False 
+say !(1 == 2); # True 
+

op10.pl

@@ -0,0 +1,3 @@
+my $x = 10; 
+my $y = +^$x; 
+say $y; # -11 (but not -10) 

op11.pl

@@ -0,0 +1,4 @@
+my $x = 10; 
+my $y = ?^$x; 
+say $y;       # False 
+say $y.WHAT;  # (Bool) 

op12.pl

@@ -0,0 +1 @@
+.print for ^5; # 01234 

op13.pl

@@ -0,0 +1 @@
+.print for 0..4; # 01234 

op14.pl

@@ -0,0 +1,6 @@
+sub sum($a, $b) { 
+    $a + $b 
+}  
+
+my @data = (10, 20); 
+say sum(|@data); # 30 

op15.pl

@@ -0,0 +1,6 @@
+my $x = 'x';
+{ 
+    temp $x = 'y'; 
+    say $x; # y 
+} 
+say $x;     # x 

op16.pl

@@ -0,0 +1,6 @@
+my $var = 'a'; 
+try { 
+    let $var = 'b'; 
+    die; 
+} 
+say $var; # a 

op17.pl

@@ -0,0 +1,3 @@
+my $x = 42; 
+say $x++; # 42 
+say $x;   # 43 

op18.pl

@@ -0,0 +1,4 @@
+my $filename = 'file01.txt'; 
+for 1..10 { 
+    say $filename++; 
+} 

op19.pl

@@ -0,0 +1,9 @@
+say "0.0".Numeric; # 0 
+say 42.Bool;       # True  
+
+class C { 
+    method m() {say "m()"} 
+} 
+my $c = C.new; 
+$c.m(); # m() 
+

op2.pl

@@ -0,0 +1,2 @@
+my Str $price = '4' ~ '2'; 
+say -$price; # -42 

op20.pl

@@ -0,0 +1,13 @@
+class D { }  
+
+class C { 
+    method m() { 
+        return D.new; 
+    } 
+}  
+
+my $o = C.new; 
+say $o.WHAT;  # (C)  
+
+$o .= m(); 
+say $o.WHAT;  # (D) 

op21.pl

@@ -0,0 +1,3 @@
+my Int $i; 
+say $i.^methods(); 
+say $i.HOW.methods($i); 

op22.pl

@@ -0,0 +1,7 @@
+class C { 
+    method m() {'m'} 
+}  
+
+my $c = C.new(); 
+say $c.?m(); # m 
+say $c.?n(); # Nil 

op23.pl

@@ -0,0 +1,10 @@
+class A { 
+    method m($x) {"A::m($x)"} 
+} 
+class B is A { 
+    method m($x) {"B::m($x)"} 
+}  
+
+my $o = B.new; 
+my @a = $o.+m(7); 
+say @a; # Prints [B::m(7) A::m(7)] 

op24.pl

@@ -0,0 +1,2 @@
+say 10 div 3;  # 3 
+say -10 div 3; # 4 

op25.pl

@@ -0,0 +1,2 @@
+say 10 % 3;   # 1 
+say 10 mod 3; # 1 

op26.pl

@@ -0,0 +1 @@
+say 10 % "3"; # 1 

op27.pl

@@ -0,0 +1 @@
+say 10 mod "3";

op28.pl

@@ -0,0 +1 @@
+say 10 div "3";

op29.pl

@@ -0,0 +1,2 @@
+say 10 mod +"3"; # 1 
+say 10 mod "3".Int; # 1 

op3.pl

@@ -0,0 +1 @@
+say ?42; # True 

op30.pl

@@ -0,0 +1,3 @@
+say 10 %% 3; # False 
+say 12 %% 3; # True 
+

op31.pl

@@ -0,0 +1,2 @@
+say 8 +< 2;    # 32 
+say 1024 +> 8; # 4 

op32.pl

@@ -0,0 +1 @@
+say 50 gcd 15; # 5 

op33.pl

@@ -0,0 +1 @@
+say 1043 lcm 14; # 2086 

op34.pl

@@ -0,0 +1 @@
+say "a" ~ "b"; # ab 

op35.pl

@@ -0,0 +1,3 @@
+say "N" ~ 1; # N1 
+say 4 ~ 2;   # 42 
+

op36.pl

@@ -0,0 +1 @@
+say "A" x 5; # AAAAA 

op37.pl

@@ -0,0 +1 @@
+say 0 x 5; # 0000 

op38.pl

@@ -0,0 +1,4 @@
+say "a" leg "b";        # Less 
+say "abc" leg "b";      # Less 
+say "bc" leg "b";       # More 
+say "abc" leg "ABC".lc; # Same 

op39.pl

@@ -0,0 +1,2 @@
+say 42 leg "+42"; # More 
+say 42 leg "42";  # Same 

op4.pl

@@ -0,0 +1,3 @@
+say so 42;   # True 
+say so True; # True 
+say so 0.0;  # False