challenge-250/deadmarshal/cl/ch2.lisp


1
2
3
4
5
6
7
8
9
10
11

(defun alphanumeric-string-value (list)
  (apply #'max (mapcar
		#'(lambda (x) (if (every #'(lambda (c) (digit-char-p c)) x)
			     (parse-integer x)
			     (length x)))
		list)))

(progn
  (print (alphanumeric-string-value '("perl" "2" "000" "python" "r4ku")))
  (print (alphanumeric-string-value '("001" "1" "000" "0001"))))