IBAN: Difference between revisions
Content added Content deleted
(Add Factor example) |
m (→{{header|Factor}}: slight simplification) |
||
Line 1,424: | Line 1,424: | ||
: valid-checksum? ( str -- ? ) |
: valid-checksum? ( str -- ? ) |
||
4 cut swap append [ digit> ] { } map-as |
4 cut swap append [ digit> number>string ] { } map-as |
||
concat string>number 97 mod 1 = ; |
|||
PRIVATE> |
PRIVATE> |