diff options
| author | Kang-min Liu <gugod@gugod.org> | 2020-12-18 12:09:50 +0900 |
|---|---|---|
| committer | Kang-min Liu <gugod@gugod.org> | 2020-12-18 12:09:50 +0900 |
| commit | d72e57d649d992caff11d2b6c613f57784eea42e (patch) | |
| tree | 42f428bdded76ba2014941119a9845070e7c8a10 | |
| parent | 22a80372d42bc7ba6ffd52d1d6c7ce5fe303b6d0 (diff) | |
| download | perlweeklychallenge-club-d72e57d649d992caff11d2b6c613f57784eea42e.tar.gz perlweeklychallenge-club-d72e57d649d992caff11d2b6c613f57784eea42e.tar.bz2 perlweeklychallenge-club-d72e57d649d992caff11d2b6c613f57784eea42e.zip | |
tweak comments
| -rw-r--r-- | challenge-091/gugod/raku/ch-1.raku | 7 | ||||
| -rw-r--r-- | challenge-091/gugod/raku/ch-2.raku | 3 |
2 files changed, 3 insertions, 7 deletions
diff --git a/challenge-091/gugod/raku/ch-1.raku b/challenge-091/gugod/raku/ch-1.raku index 4ce70b4d76..ed5592279a 100644 --- a/challenge-091/gugod/raku/ch-1.raku +++ b/challenge-091/gugod/raku/ch-1.raku @@ -1,15 +1,12 @@ - sub MAIN (Int $N) { + # [1] my @chars = $N.comb; - # [1] my Str $out; - - # [2] $i..$j my $i = 0; my $j = 0; - # [3] invariant: @chars[$i..$j] eq (@chars[$i] x ($j - $i)) + # [2] invariant: @chars[$i..$j] eq (@chars[$i] x ($j - $i)) while $j < @chars.elems { $j++ while $j < @chars.elems && @chars[$i] eq @chars[$j]; diff --git a/challenge-091/gugod/raku/ch-2.raku b/challenge-091/gugod/raku/ch-2.raku index a904142290..09b18af75d 100644 --- a/challenge-091/gugod/raku/ch-2.raku +++ b/challenge-091/gugod/raku/ch-2.raku @@ -1,8 +1,7 @@ sub play-jump-game (@N) { - my Bool @reachable = @N.map({ False }); - # [1]: $reachable[$i] = solution of the sub-problem: $i .. @N.end + my Bool @reachable = @N.map({ False }); @reachable[ @reachable.end ] = True; # [2]: Solve the lightly bigger sub-problem each time |