Validate International Securities Identification Number: Difference between revisions

m
→‎{{header|Perl 6}}: 'bare' regex no longer allowed with ternary
No edit summary
m (→‎{{header|Perl 6}}: 'bare' regex no longer allowed with ternary)
Line 1,471:
 
=={{header|Perl 6}}==
{{works with|Rakudo|2018.0312}}
 
Using the <tt>luhn-test</tt> function from the ''[[Luhn test of credit card numbers#Perl 6|Luhn test of credit card numbers]]'' task.
Line 1,489:
# Testing:
 
say "$_ is { m/$ISIN/ ?? "valid" !! "not valid"}" for <
US0378331005
US0373831005
2,392

edits