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