ちょまど | Madoka Chiyoda chomado

## gist:5546190
(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)))))

## gijinka.md

      
              1 file
            
          
              1 fork
            
          
              0 comments
            
          
              0 stars
            
          
                chomado
                / gijinka.md
            
            
              Created
              April 9, 2013 02:35
            
          
Haskellは天才過ぎて大学行ってる15歳
RubyはモテモテJK
Pythonは真面目委員長、風紀委員
LISPは部活
Javaは最近あんまり人気無い
COBOLは用務員のおばあちゃん
C++はよくわからない怖い大先輩
Perl はひげのおっさん


## gijinka.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                chomado
                / gijinka.md
            
            
              Created
              April 9, 2013 02:34
            
          
Haskellは天才過ぎて大学行ってる15歳
RubyはモテモテJK
Pythonは真面目委員長、風紀委員
LISPは部活
Javaは最近あんまり人気無い
COBOLは用務員のおばあちゃん
C++はよくわからない怖い大先輩


## gijinka.md

      
              1 file
            
          
              0 forks
            
          
              1 comment
            
          
              1 star
            
          
                chomado
                / gijinka.md
            
            
              Last active
              December 15, 2015 23:39
                — forked from pasberth/gijinka.md
            
          
Haskellは天才過ぎて大学行ってる15歳
RubyはモテモテJK
Pythonは真面目委員長、風紀委員
LISPは部活
Javaは最近あんまり人気無い
COBOLは用務員のおばあちゃん
	(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)))))