280 touch up

2 files changed, 5 insertions, 6 deletions

diff --git a/challenge-280/0rir/raku/ch-1.raku b/challenge-280/0rir/raku/ch-1.raku
index be79984f82..fae36bf020 100644
--- a/challenge-280/0rir/raku/ch-1.raku
+++ b/challenge-280/0rir/raku/ch-1.raku
@@ -4,7 +4,7 @@ use v6.d;
 use Test;
 
 =begin comment
-280 1: Twice Appearance             Submitted by: Mohammad Sajid Anwar
+280-1: Twice Appearance             Submitted by: Mohammad Sajid Anwar
 You are given a string, $str, containing lowercase English letters only.
 
 Write a script to print the first letter that appears twice.
@@ -40,12 +40,12 @@ multi task( Str:D $in, Bool:D :$case-ck! ) {
 }
 multi task( Str:D $in --> Str ) {
     my $s = ().SetHash;
-    my $e = $s.elems;
+    my $prev = $s.elems;
     for 0..$in.chars -> \i {
         my $c = $in.substr( i, 1);
         $s.set: $c;
-        return $c if $s.elems == $e;
-        ++$e ;
+        return $c if $s.elems == $prev;
+        ++$prev;
     }
     Str;
 }
diff --git a/challenge-280/0rir/raku/ch-2.raku b/challenge-280/0rir/raku/ch-2.raku
index c60a29bdcc..39753e1565 100644
--- a/challenge-280/0rir/raku/ch-2.raku
+++ b/challenge-280/0rir/raku/ch-2.raku
@@ -4,8 +4,7 @@ use v6.d;
 use Test;
 
 =begin comment
-Task 2: Count Asterisks
-Submitted by: Mohammad Sajid Anwar
+280-2: Count Asterisks      Submitted by: Mohammad Sajid Anwar
         REPHASED
 Given a string, $str, where two consecutive vertical bars group the chars
 between them; a bar can only pair with one or none other bar.