summaryrefslogtreecommitdiffhomepage
path: root/perl6.html.markdown
diff options
context:
space:
mode:
Diffstat (limited to 'perl6.html.markdown')
-rw-r--r--perl6.html.markdown18
1 files changed, 17 insertions, 1 deletions
diff --git a/perl6.html.markdown b/perl6.html.markdown
index b4918115..76f08248 100644
--- a/perl6.html.markdown
+++ b/perl6.html.markdown
@@ -11,6 +11,9 @@ Perl 6 is a highly capable, feature-rich programming language made for the upcom
Perl 6 runs on [the Parrot VM](http://parrot.org/), the JVM and [the MoarVM](http://moarvm.com).
+Meta-note : the triple pound signs are here to denote headlines, double paragraphs, single notes.
+`#=>` represents the output of a command.
+
```perl
# Single line comment start with a pound
@@ -459,6 +462,19 @@ for <well met young hero we shall meet later> {
# A flip-flop can change state as many times as needed:
for <test start print this stop you stopped printing start printing again stop not anymore> {
.say if $_ eq 'start' ^ff^ $_ eq 'stop'; # exclude both "start" and "stop",
- # this prints "print this printing again"
+ #=> "print this printing again"
+}
+
+# you might also use a Whatever Star, which is equivalent to `True` for the left side or `False` for the right :
+for (1, 3, 60, 3, 40, 60) {
+ .say if $_ > 50 ff *; # Once the flip-flop reached a number greater than 50, it'll never go back to `False`
+ #=> 60 3 40 60
+}
+
+# You can also use this property to create an `If` that'll not execute the first time :
+for <a b c> {
+ .say if * ^ff *; # the flip-flop is `True` and never goes back to `False`,
+ # but the `^` makes it *not run* on the first iteration
+ #=> b c
}
```