Validate International Securities Identification Number: Difference between revisions
Content added Content deleted
(Add bruijn) |
(added RPL) |
||
Line 2,828: | Line 2,828: | ||
AU0000VXGZA3 -> Valid |
AU0000VXGZA3 -> Valid |
||
FR0000988040 -> Valid |
FR0000988040 -> Valid |
||
</pre> |
|||
=={{header|RPL}}== |
|||
<code>LUHN?</code> is defined at [[Luhn test of credit card numbers#RPL|Luhn test of credit card numbers]] |
|||
{{works with|RPL|HP48-R}} |
|||
« '''IF''' DUP SIZE 12 ≠ '''THEN''' DROP 0 |
|||
'''ELSE''' |
|||
"" |
|||
1 3 PICK SIZE '''FOR''' j |
|||
OVER j DUP SUB |
|||
'''IF''' "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" SWAP POS '''THEN''' LASTARG 1 - + '''END''' |
|||
'''NEXT''' |
|||
<span style="color:blue">LUHN?</span> |
|||
{ "AD" "AT" "AU" "BE" "CA" "DE" "ES" "FR" "GB" "HK" "IT" "US" "ZW" } <span style="color:grey">@ country codes sample </span> |
|||
ROT 1 2 SUB POS AND |
|||
'''END''' |
|||
» '<span style="color:blue">ISIN?</span>' STO |
|||
{"US0378331005" "US0373831005" "U50378331005" "US03378331005" "AU0000XVGZA3" "AU0000VXGZA3" "FR0000988040"} |
|||
1 « <span style="color:blue">ISIN?</span> » DOLIST |
|||
{{out}} |
|||
<pre> |
|||
1: { 1 0 0 0 1 1 1 } |
|||
</pre> |
</pre> |
||