Where communities thrive


  • Join over 1.5M+ people
  • Join over 100K+ communities
  • Free without limits
  • Create your own community
People
Activity
    七誌
    @7shi_twitter
    明日は渋谷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
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回は8/1(水)です。よろしくお願いします。
    P.86「3.15 評価」から読み進めます。
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    告知ページを公開しました! 次回はP.86「3.15 評価」から読み進めます。
    皆様のご参加をお待ちしております。
    https://twitter.com/furandon_pig/status/1020598859104378881
    わら半紙
    @warabanshi_twitter
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回8/15(水)の告知ページを公開しました!
    今回はお盆休み期間と重なることもあり、8/11(土)時点の参加者の人数で開催・延期を決めようと思います。
    参加者の皆様にはお手数をおかけしますが、ご承知おきのほどよろしくお願いいたします。
    https://twitter.com/furandon_pig/status/1026314979819970560
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    明日(8/15)の読書会は開催いたします!
    皆様の参加申し込みありがとうございます。
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    次回は8/29(水)です。
    P.110 「4.4 局面4:テスト」から読み進めます!
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    遅ればせながら次回の告知ページを公開しました!
    皆様のご参加をお待ちしております。
    https://twitter.com/furandon_pig/status/1031751430942539776
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    遅くなってすみません、次回(9/12)の告知ページを公開しました!
    次回はP.116 『「中間情報の不足」問題』から読み進めます。
    皆様のご参加をお待ちしております。
    https://twitter.com/furandon_pig/status/1037546188642250752
    fireflower0
    @fireflower0
    Hyperspecのリンクです
    Satoshi Imai
    @masatoi
    直積です
    (defun direct-product-2arg (lst1 lst2)
      (let ((product ()))
        (dolist (l1 lst1)
          (dolist (l2 lst2)
        (setf product (cons
                   (if (listp l2)
                   (cons l1 l2)
                   (list l1 l2)) product))))
        (reverse product)))
    
    (defun direct-product (&rest lsts)
      (let ((lsts (reverse lsts)))
        (nlet iter ((lsts (cdr lsts))
            (product (car lsts)))
          (if (null lsts)
          product
          (iter (cdr lsts) (direct-product-2arg (car lsts) product))))))
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    ペアワイズ法でパターンを取り出すツール、「PICT」という名前でした。
    フランドン畜舎内 ヨークシャイヤ
    @furandon_pig_twitter
    告知ページを公開しました!
    次回は9/26(水)開催です。P.116 『「中間情報の不足」問題』から読み進めます。
    皆様のご参加をお待ちしております。
    https://twitter.com/furandon_pig/status/1040211515003920385
    fireflower0
    @fireflower0