Data commit

Task/Inverted-syntax/Raku/inverted-syntax-1.raku

@@ -0,0 +1,4 @@
+if $guess == 6 { say "Wow! Lucky Guess!" }          # Traditional
+say 'Wow! Lucky Guess!' if $guess == 6;             # Inverted
+unless $guess == 6 { say "Huh! You Guessed Rong!" } # Traditional
+say 'Huh! You Guessed Rong!' unless $guess == 6;    # Inverted

Task/Inverted-syntax/Raku/inverted-syntax-2.raku

@@ -0,0 +1,8 @@
+while $i { --$i }
+--$i while $i;
+
+until $x > 10 { $x++ }
+$x++ until $x > 10;
+
+for 1..10 { .say if $_ %% 2 }
+.say if $_ %% 2 for 1..10;  # list comprehension

Task/Inverted-syntax/Raku/inverted-syntax-3.raku

@@ -0,0 +1 @@
+42 R= $_; say $_;   # prints 42

Task/Inverted-syntax/Raku/inverted-syntax-4.raku

@@ -0,0 +1,2 @@
+my @a = 1,2,3;
+(1,2,3) R= my @a;

Task/Inverted-syntax/Raku/inverted-syntax-5.raku

@@ -0,0 +1,2 @@
+my @a <== 1,2,3;
+1,2,3 ==> my @a;

Task/Inverted-syntax/Raku/inverted-syntax-6.raku

@@ -0,0 +1,7 @@
+repeat {
+    $_ = prompt "Gimme a number: ";
+} until /^\d+$/;
+
+repeat until /^\d+$/ {
+    $_ = prompt "Gimme a number: ";
+}

Task/Inverted-syntax/Raku/inverted-syntax-7.raku

@@ -0,0 +1,3 @@
+repeat until my $answer ~~ 42 {
+    $answer = prompt "Gimme an answer: ";
+}

Task/Inverted-syntax/Raku/inverted-syntax-8.raku

@@ -0,0 +1,4 @@
+my $answer;
+repeat {
+    $answer = prompt "Gimme an answer: ";
+} until $answer ~~ 42;