Merge branch 'master' of github.com:perl6/perl6-examples

Author: paultcochrane

categories/cookbook/01strings/01-05namedunicode.pl

@@ -0,0 +1,15 @@
+use v6;
+
+=begin pod
+
+=TITLE Using Named Unicode Chars
+
+=AUTHOR stmuk
+
+=end pod
+
+say "\c[REGISTERED SIGN]";
+
+say uniname("\x1f63E"); # POUTING CAT FACE
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/01strings/01-13upper-lower-case.pl

@@ -0,0 +1,21 @@
+use v6;
+
+=begin pod
+
+=TITLE Upper/Lower Case
+
+=AUTHOR stmuk
+
+You have a string and what to upper/lower case it
+
+=end pod
+
+my $string = "the cat sat on the mat";
+
+say $string=$string.uc; # THE CAT SAT ON THE MAT 
+
+say $string.=lc; # the cat sat on the mat 
+
+say $string.wordcase; # The Cat Sat On The Mat 
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/01strings/01-22soundex-matching.pl

@@ -0,0 +1,21 @@
+use v6;
+
+=begin pod
+
+=TITLE Soundex Matching
+
+=AUTHOR stmuk
+
+You have two surnames and want to know if they sound similar
+
+=end pod
+
+use Algorithm::Soundex;
+
+my Algorithm::Soundex $s .= new();
+
+say  $s.soundex("Smith");
+say  $s.soundex("Smythe");
+say  $s.soundex("Bloggs");
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/02numbers/02-14complex-number.pl

@@ -0,0 +1,17 @@
+use v6;
+
+=begin pod
+
+=TITLE Complex Numbers
+
+=AUTHOR stmuk
+
+Math with Complex Numbers
+
+=end pod
+
+say (3+5i) * (2-2i); # 16+4i
+
+say sqrt(3+4i); # 2+1i
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/02numbers/02-15convert-bases.pl

@@ -0,0 +1,21 @@
+use v6;
+
+=begin pod
+
+=TITLE Convert Bases
+
+=AUTHOR stmuk
+
+Convert between various numerical bases
+
+=end pod
+
+say 0xDEADBEEF;
+
+say 0o755;
+say 493.fmt("%o");
+
+say :16<FEEDFACE>;
+say 4277009102.base(16);
+
+# vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/05hashes/05-05traversing.pl

@@ -25,7 +25,7 @@
 }
 
 for %hash {
-    say $_; # hmm ...
+    .say;
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6