IBAN: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,303: | Line 2,303: | ||
c = c*100+ch-55 |
c = c*100+ch-55 |
||
} else c=-1: exit |
} else c=-1: exit |
||
⚫ | |||
} |
} |
||
⚫ | |||
} |
} |
||
=Iban0$ + If$(c=1 ->" (Valid)", " (Invalid)") |
=Iban0$ + If$(c=1 ->" (Valid)", " (Invalid)") |
||
Line 2,316: | Line 2,316: | ||
Print IbanCheck$("MK11 2222 3333 4444 555") |
Print IbanCheck$("MK11 2222 3333 4444 555") |
||
</lang> |
</lang> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |