Verhoeff algorithm: Difference between revisions
→{{header|Raku}}: Oops, order of operations, make a little more concise
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Oops, order of operations, make a little more concise) |
||
Line 274:
}
say "Checkdigit: {@i[$c]}";
+($int ~ @i[$c]);
}
Line 292 ⟶ 293:
## TESTING
for 236
my $check = checksum $int, :verbose( $int.chars < 8 );
validate $check, :verbose( $int.chars < 8 );
validate +($check.chop ~ 9), :verbose( $int.chars < 8 );
}</lang>
{{out}}
<pre>Checkdigit calculation for 236:
Line 321 ⟶ 323:
Checkdigit: incorrect
Checkdigit calculation for
i ni p(i, ni) c
0 0 0 0
1
2
3
4
5
6 1 7 0▼
▲Checkdigit: 0
Validation calculation for
i ni p(i, ni) c
0
1
2
3
4
Checkdigit:
Validation calculation for
i ni p(i, ni) c
0 9 9 9
1
2
3
4
5 1 2 5
Checkdigit: incorrect
| |||