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 [ number>string ]
map concat string>number 97 mod 1 = ;
 
PRIVATE>
1,808

edits