Where communities thrive


  • Join over 1.5M+ people
  • Join over 100K+ communities
  • Free without limits
  • Create your own community
People
Activity
    Satoshi Imai
    @masatoi
    (defun square (x)
      (* x x))
    
    (defun power (x n)
      (cond  ((= n 0) 1)
             ((evenp n) (square (power x (/ n 2))))
             (:else (* x (power x (- n 1))))))
    
    (power 2 10)
    Kent OHASHI
    @lagenorhynque
    (def atom? (complement sequential?))
    
    (defn count-atoms [expr]
      (cond
        (atom? expr) 1
        (empty? expr) 0
        :else (+ (count-atoms (first expr))
                 (count-atoms (rest expr)))))
    Satoshi Imai
    @masatoi
    ズルするとこうなります
    (defun count-atom (lst)
      (count-if #'atom lst))
    七誌
    @7shi_twitter

    次回は4/4(水) 20:00からです。
    https://jitsucl.connpass.com/event/82964/
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    今読んでいるところのLISPコードは↓ですかね。
    https://github.com/norvig/paip-lisp/blob/master/lisp/simple.lisp

    七誌
    @7shi_twitter
    次回は4/18(水) 20:00です。 https://jitsucl.connpass.com/event/84345/
    七誌
    @7shi_twitter
    会場の都合により一週間延期とさせていただきました。
    次回は4/25(水) 20:00です。 https://jitsucl.connpass.com/event/85528/
    Kent OHASHI
    @lagenorhynque
    CL-USER> (let ((v 42))
               v)
    42
    CL-USER> ((lambda (v) v) 42)
    42
    Satoshi Imai
    @masatoi
    ちなみにここまでのコードはここです
    Kent OHASHI
    @lagenorhynque
    ;; Exercise 2.3
    (def simple-japanese-grammar
      '((sentence -> (subject predicate))
        (subject -> (noun-phrase ParticleForSubject))
        (predicate -> (noun-phrase ParticleForObject Verb))
        (noun-phrase -> (NounModifier Noun))
        (NounModifier -> その ある)
        (Noun -> 男 ボール 女 テーブル)
        (ParticleForSubject -> が)
        (ParticleForObject -> を)
        (Verb -> 打った 取った 見た 好んだ)))
    
    (reset! grammar simple-japanese-grammar)
    
    (generate 'sentence)
    > (generate 'sentence)
    (ある テーブル が その 女 を 好んだ)
    七誌
    @7shi_twitter
    七誌
    @7shi_twitter
    5月は9と23です。
    明日は渋谷LISPです。 https://lisp.connpass.com/event/84395/

    七誌
    @7shi_twitter
    次回は5/9(水) 20:00からです。 https://jitsucl.connpass.com/event/86596/
    七誌
    @7shi_twitter
    Common Lisp the Language, 2nd Edition
    https://www.cs.cmu.edu/Groups/AI/html/cltl/cltl2.html
    Kent OHASHI
    @lagenorhynque
    クロージャの典型例といえばカウンターでしょうか。
    CL-USER> (defun make-counter (n) 
               (lambda ()
                 (incf n)))
    MAKE-COUNTER
    CL-USER> (defparameter c (make-counter 0))
    C
    CL-USER> (funcall c)
    1
    CL-USER> (funcall c)
    2
    CL-USER> (defparameter c2 (make-counter 0))
    C2
    CL-USER> (funcall c2)
    1
    Kent OHASHI
    @lagenorhynque
    七誌
    @7shi_twitter
    Satoshi Imai
    @masatoi
    ((lambda (x) ((lambda (y) (+ x y)) (* x x))) 6)
    Kent OHASHI
    @lagenorhynque
    ;; Exercise 3.1
    ((fn [x]
       ((fn [y]
          (+ x y))
        (* x x)))
     6)
    七誌
    @7shi_twitter
    hylang


    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    6/6(水)『実用Common Lisp』読書会(8) を公開しました!
    次回は主催者の7shiさんがリモート参加されるという、新しい試みにチャレンジする予定です。
    皆様のご参加をお待ちしております。
    https://jitsucl.connpass.com/event/89328/
    Kent OHASHI
    @lagenorhynque
    CL-USER> (labels ((my-oddp (n)
                        (if (zerop n)
                            nil
                            (my-evenp (1- n))))
                      (my-evenp (n)
                        (if (zerop n)
                            t
                            (my-oddp (1- n)))))
               (my-oddp 2))
    NIL
    CL-USER> (labels ((my-oddp (n)
                        (if (zerop n)
                            nil
                            (my-evenp (1- n))))
                      (my-evenp (n)
                        (if (zerop n)
                            t
                            (my-oddp (1- n)))))
               (my-oddp 3))
    T
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回はP.64 「3.3 リストを扱う関数」から読み進めます!
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回は6/20(水)開催です!皆さまぜひぜひご参加ください。
    https://twitter.com/furandon_pig/status/1005385909083049985
    七誌
    @7shi_twitter
    複数の処理系で逆アセンブルして比較
    https://qiita.com/7shi/items/d503c83c1befe1cdb284
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回は7/4(水)です。よろしくお願いします。
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    告知ページを公開しました! 次回はP.71「3.7 木構造を扱う関数」から読み進めます。
    皆様のご参加をお待ちしております。
    https://twitter.com/furandon_pig/status/1009638240293249025
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回は7/18(水)の開催です。
    P.77「3.11 データ型の概要」の続きから読み進めます。
    皆様のご参加をお待ちしております。
    https://twitter.com/furandon_pig/status/1014716172661501952