challenge 048 perl and raku

Author: aliciabielsa

challenge-048/alicia-bielsa/perl/ch-1.pl

@@ -0,0 +1,28 @@
+#Survivor
+#There are 50 people standing in a circle in position 1 to 50. The person standing at position 1 has a sword. He kills the next person i.e. standing at position 2 and pass on the sword to the immediate next i.e. person standing at position 3. Now the person at position 3 does the same and it goes on until only one survives.
+#
+#Write a script to find out the survivor.
+use strict;
+use warnings;
+
+my $numberPeople = 50;
+my $numberPeopleAlive = $numberPeople;
+my @aPeople = ();
+foreach my $position (1..$numberPeople){
+    my $nextPosition = $position == $numberPeople ? 1 : $position +1;    
+    my %hTmp = (  'nextPosition' => $nextPosition);
+    push (@aPeople, \%hTmp);
+}
+
+
+my $swordPosition  = 1;
+while ($numberPeopleAlive > 1){  
+
+    my $killPosition = $aPeople[ $swordPosition - 1 ]->{'nextPosition'};
+    $aPeople[ $swordPosition - 1 ]->{'nextPosition'}  = $aPeople[ $killPosition - 1 ]->{'nextPosition'};
+    $swordPosition = $aPeople[ $killPosition - 1 ]->{'nextPosition'};
+    $numberPeopleAlive--;
+
+} 
+
+print "Last Position Alive : $swordPosition\n";

challenge-048/alicia-bielsa/perl/ch-2.pl

@@ -0,0 +1,33 @@
+#Palindrome Dates
+#Write a script to print all Palindrome Dates between 2000 and 2999. 
+#The format of date is mmddyyyy. For example, the first one was on October 2, 2001 as it is represented as 10022001.  
+
+use strict;
+use warnings;
+use DateTime;
+use Try::Tiny;
+use English;
+
+
+foreach my $date (2000..2999){
+    my $palindromeDate = reverse($date).$date;
+    if (isValidDate ($palindromeDate )){
+            print "Palindrome Date $palindromeDate \n";
+    }
+}
+
+sub isValidDate {
+    my $dateToValidate = shift;
+    my $validDate = 1;
+    my $dt = try {
+         DateTime->new(
+        year       => substr($dateToValidate, 4,4),
+        month      => substr($dateToValidate, 0,2),
+        day        => substr($dateToValidate, 2,2));
+    } catch {
+        if ($ARG){
+            $validDate = 0;
+        }
+    };     
+    return $validDate;
+}

challenge-048/alicia-bielsa/raku/ch-1.p6

@@ -0,0 +1,22 @@
+use v6;
+
+
+
+my $numberPeople = 50;
+my $numberPeopleAlive = $numberPeople;
+my @aPeople;
+for 1..$numberPeople {
+    my $nextPosition = $_ == $numberPeople ?? 1 !! $_ +1;    
+    @aPeople.push({'nextPosition' =>  $nextPosition});
+}
+
+my $swordPosition  = 1;
+while $numberPeopleAlive > 1 {  
+    my $killPosition =  @aPeople[ $swordPosition-1 ]<nextPosition>;
+    @aPeople[ $swordPosition-1 ]<nextPosition>  = @aPeople[ $killPosition-1 ]<nextPosition>;
+    $swordPosition = @aPeople[ $killPosition-1 ]<nextPosition>;
+    $numberPeopleAlive--;
+
+} 
+
+print "Last Position Alive : $swordPosition\n";

challenge-048/alicia-bielsa/raku/ch-2.p6

@@ -0,0 +1,14 @@
+#Palindrome Dates
+#Write a script to print all Palindrome Dates between 2000 and 2999. 
+#The format of date is mmddyyyy. For example, the first one was on October 2, 2001 as it is represented as 10022001.  
+
+use v6;
+
+for 2000..2999 {
+    my $mmdd = $_.flip;
+    my $date = Date.new($_,  $mmdd.substr(0,2), $mmdd.substr(2,2));
+    CATCH {
+        default {  }
+    }
+    say $mmdd ~ $_;      
+}