Jump to content

IBAN: Difference between revisions

IBAN (view source)

Revision as of 21:56, 16 December 2015

3 bytes removed ,  8 years ago
→‎{{header|Common Lisp}}: better check for IBAN-characters
(→‎{{header|Common Lisp}}: better check for IBAN-characters)
Line 1,082:
;;
(defun IBAN-characters (iban)
(flet ((valid-alphanum (ch) (or (and (char<= #\A ch) (char>= #\Z ch)) (and (char<= #\0 ch) (char>= #\9 ch)))))
(loopor :for(and (char<= :across#\A ibanch)
:finally (returnchar>= #\Z tch))
:do (and (char<= #\0 ch)
(when (not (valid-alphanum (char>= #\9 ch)))))
(loop for char across iban
(return nil)))))
always (valid-alphanum char))))
 
;;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/228451"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information