Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
9 lines (9 sloc) 212 Bytes
(defun pro17 (n)
(let ((cnt 0))
(loop
:for i from 1 upto n
:do (incf cnt (count-if #'(lambda (c)
(and (char/= #\Space c)
(char/= #\- c)))
(format nil "~R" i))))
cnt))