计算大写字母的总个数--Common Lisp与C的行数差异

忙里偷闲，重拾Common Lisp，直接上代码，该代码来源于互联网，看完之后，也许你也会跟着喜欢上Common Lisp了

C代码：

// upper_char_counter.c

int upper_char_counter(const char *str) {

    int result = 0;
    int len = strlen(str);

    int i = 0;
    while (i < len) {
        if (str[i] >= 'A' && str[i] <= 'Z') {
            result++;
        }
        i++;
    }

    return result;

}

Common Lisp代码：

;; upper-char-counter.lisp
(defun upper-char-counter (str)
   (count-if #'upper-case-p str))