From 7243f13fc6462e9fee8d463e13446ab7339e9d67 Mon Sep 17 00:00:00 2001 From: ronaldxs Date: Fri, 20 Mar 2015 16:40:25 -0400 Subject: thrice .... gather ^3 counts three times "0 1 2" not 5 Probably just a paste-o mistake. Want to count 3 times not 5. --- perl6.html.markdown | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl6.html.markdown') diff --git a/perl6.html.markdown b/perl6.html.markdown index 85ab1d79..1b320028 100644 --- a/perl6.html.markdown +++ b/perl6.html.markdown @@ -963,7 +963,7 @@ say join ',', gather if False { # But consider: constant thrice = gather for ^3 { say take $_ }; # Doesn't print anything # versus: -constant thrice = eager gather for ^3 { say take $_ }; #=> 0 1 2 3 4 +constant thrice = eager gather for ^3 { say take $_ }; #=> 0 1 2 # - `lazy` - Defer actual evaluation until value is fetched (forces lazy context) # Not yet implemented !! -- cgit v1.2.3 From 965d7972d1ef7dfbfc9c07de72bbce81898eb703 Mon Sep 17 00:00:00 2001 From: Jeff Erickson Date: Wed, 25 Mar 2015 16:53:46 -0400 Subject: Minor typo: fixed curly bracket direction (} -> {) --- perl6.html.markdown | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl6.html.markdown') diff --git a/perl6.html.markdown b/perl6.html.markdown index 1b320028..f0ef6600 100644 --- a/perl6.html.markdown +++ b/perl6.html.markdown @@ -560,7 +560,7 @@ subset VeryBigInteger of Int where * > 500; multi sub sayit(Int $n) { # note the `multi` keyword here say "Number: $n"; } -multi sayit(Str $s) } # a multi is a `sub` by default +multi sayit(Str $s) { # a multi is a `sub` by default say "String: $s"; } sayit("foo"); # prints "String: foo" -- cgit v1.2.3 From 4c46a456bd5e33aec2a3cab7b7c33a375d5a97ed Mon Sep 17 00:00:00 2001 From: Philippe Bricout Date: Wed, 1 Apr 2015 15:13:59 +0200 Subject: Update perl6.html.markdown ($_.chars > 50) ~~ True : this is always True. --- perl6.html.markdown | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl6.html.markdown') diff --git a/perl6.html.markdown b/perl6.html.markdown index f0ef6600..8404f9f8 100644 --- a/perl6.html.markdown +++ b/perl6.html.markdown @@ -253,7 +253,9 @@ given "foo bar" { when $_.chars > 50 { # smart matching anything with True (`$a ~~ True`) is True, # so you can also put "normal" conditionals. # This when is equivalent to this `if`: - # if ($_.chars > 50) ~~ True {...} + # if $_ ~~ ($_.chars > 50) {...} + # Which means: + # if $_.chars > 50 {...} say "Quite a long string !"; } default { # same as `when *` (using the Whatever Star) -- cgit v1.2.3