Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 9 lines (9 sloc) 0.212 kb
1 2 3 4 5 6 7 8 9
(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))
Something went wrong with that request. Please try again.