diff options
| author | rir <rirans@comcast.net> | 2022-04-30 21:57:12 -0400 |
|---|---|---|
| committer | rir <rirans@comcast.net> | 2022-04-30 21:57:12 -0400 |
| commit | d1e6295420309a3f4bfc5941b5aadc539aeb9e22 (patch) | |
| tree | 1c637cab53dc1dd309caec2be1ccfd26d71055c4 /challenge-162 | |
| parent | e6e3683cb8b559401dfc9a2b1ecebed24635ab79 (diff) | |
| download | perlweeklychallenge-club-d1e6295420309a3f4bfc5941b5aadc539aeb9e22.tar.gz perlweeklychallenge-club-d1e6295420309a3f4bfc5941b5aadc539aeb9e22.tar.bz2 perlweeklychallenge-club-d1e6295420309a3f4bfc5941b5aadc539aeb9e22.zip | |
White space
Diffstat (limited to 'challenge-162')
| -rw-r--r-- | challenge-162/0rir/raku/ch-1.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-162/0rir/raku/ch-1.raku b/challenge-162/0rir/raku/ch-1.raku index d2922eb97a..67986afd90 100644 --- a/challenge-162/0rir/raku/ch-1.raku +++ b/challenge-162/0rir/raku/ch-1.raku @@ -2,7 +2,7 @@ # :vim ft=raku sw=4 expandtab use v6.d; -my constant TEST = False; +my constant TEST = True; # ISBN-13 check or make the checksum. @@ -100,8 +100,8 @@ class ISBN_13 { my $ret = ( ([+] $s.comb[0, 2 … 10]) + ([+] 3 «*« $s.comb[1, 3 … 11]) ) % 10; - ( $ret == 0 ?? 0 !! 10 - $ret - ).Str; + + ( $ret == 0 ?? 0 !! 10 - $ret ).Str; } method check-sum( --> Str) { |