aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Variable-declaration-reset/Raku/variable-declaration-reset-1.raku Normal file
View file

@ -0,0 +1,9 @@
my @s = 1, 2, 2, 3, 4, 4, 5;
loop (my $i = 0; $i < 7; $i += 1) {
my $curr = @s[$i];
my $prev;
if $i > 1 and $curr == $prev {
say $i;
}
$prev = $curr;
}

9
Task/Variable-declaration-reset/Raku/variable-declaration-reset-2.raku Normal file
View file

@ -0,0 +1,9 @@
my @s = 1, 2, 2, 3, 4, 4, 5;
quietly loop (my $i = 0; $i < 7; $i += 1) {
my $curr = @s[$i];
my $prev;
if $i > 1 and $curr == $prev {
say $i;
}
$prev = $curr;
}

9
Task/Variable-declaration-reset/Raku/variable-declaration-reset-3.raku Normal file
View file

@ -0,0 +1,9 @@
my @s = 1, 2, 2, 3, 4, 4, 5;
loop (my $i = 0; $i < 7; $i += 1) {
my $curr = @s[$i];
our $prev;
if $i > 1 and $curr == $prev {
say $i;
}
$prev = $curr;
}

9
Task/Variable-declaration-reset/Raku/variable-declaration-reset-4.raku Normal file
View file

@ -0,0 +1,9 @@
my @s = 1, 2, 2, 3, 4, 4, 5;
loop (my $i = 0; $i < 7; $i += 1) {
my $curr = @s[$i];
state $prev;
if $i > 1 and $curr == $prev {
say $i;
}
$prev = $curr;
}

9
Task/Variable-declaration-reset/Raku/variable-declaration-reset-5.raku Normal file
View file

@ -0,0 +1,9 @@
no strict;
@s = 1, 2, 2, 3, 4, 4, 5;
loop ($i = 0; $i < 7; $i += 1) {
$curr = @s[$i];
if $i > 1 and $curr == $prev {
say $i;
}
$prev = $curr;
}