chomado

• Haskellは天才過ぎて大学行ってる15歳
• RubyはモテモテJK
• Pythonは真面目委員長、風紀委員
• LISPは部活
• Javaは最近あんまり人気無い
• COBOLは用務員のおばあちゃん

chomado

• Haskellは天才過ぎて大学行ってる15歳
• RubyはモテモテJK
• Pythonは真面目委員長、風紀委員
• LISPは部活
• Javaは最近あんまり人気無い
• COBOLは用務員のおばあちゃん
• C++はよくわからない怖い大先輩

chomado

• Haskellは天才過ぎて大学行ってる15歳
• RubyはモテモテJK
• Pythonは真面目委員長、風紀委員
• LISPは部活
• Javaは最近あんまり人気無い
• COBOLは用務員のおばあちゃん
• C++はよくわからない怖い大先輩
• Perl はひげのおっさん

chomado

(defun a-ikutu (lst)
  (length (filter #'(lambda (x) (eq x 'a)) lst)))


;; filter関数
(defun filter (pred lst)
  (cond ((null lst) nil)
        ((funcall pred (car lst))
         (cons (car ls) (filter pred (cdr lst))))
        (t (filter pred (cdr lst)))))