Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

9 lines (9 sloc) 0.212 kB
(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))
Jump to Line
Something went wrong with that request. Please try again.