矢印でメソッドチェイン風に記述する
なんどか似たようなネタでコードを書いている気がします。 矢印シンボルを用いて括弧の数を減らしてみます。矢印の`>'の個数で式を挿入する位置を決定するようにしてみました。 (defun arrow-symbol? (sym) (when (symbolp sym) (let ((name (symbol-name sym))) (and (<= 2 (length name)) (= (+ (count #\- name) (count #\> name)) (length name)) (string= (sort (copy-seq name) #'char<) name))))) (defun arrow-count (sym) (count #\> (symbol-name sym))) (defun collect-arrow-clauses (body) (do ((rest (
M-99
M-99 マクロ99問 与えられた引数を全てQUOTEしてリストとして返すLISTQを作成せよ テーマ:引数のクォート (listq a b c d e) ;=> (A B C D E) INCを作成せよ テーマ:変数の捕捉 (let ((x 0)) (inc x) x) ≡ (let ((x 0)) (setq x (+ x 1))) ;=> 1 (let ((x 0)) (inc x 2) x) ;=> 2 ボディの中身を無限に繰り返すDO-FOREVERを作成せよ。 なおボディ内からは、RETURNで脱出できるようにせよ。 テーマ:繰り返し/脱出 (do-forever (print "hello!") (return)) ;-> ; "hello!" ;=> NIL Common LispのWHENを作成せよ テーマ:制御構文の自作 (my-when (< 1 2) (p
Schemeのマクロ - Island Life
About 南の島のプログラマ。 たまに役者。 Practical Schemeの主。 WiLiKi:Shiro 最近のエントリ 無限cxr高校受験Defense振り返ってみると2019年は色々学んで楽...覚えるより忘れる方が難しい(こともある)眼鏡のつると3DプリンタIris Klein Acting ClassSAG-AFTRA conservatory: Voice Acting創作活動って自分を晒け出さねばならないと...ループを使わずに1から100までMore... 最近のコメント shiro on 歳を取ると時間が速く過ぎるのは、新しいことに挑戦しないから? (2023/03/14)1357 on 歳を取ると時間が速く過ぎるのは、新しいことに挑戦しないから? (2023/03/01)ベアトリーチェ on ハイポハイポハイポのシューリンガン (2022/04/02)ベアトリーチ
アナフォリックマクロとpacakge(2) - sileのブログ
半年くらい前に書いた「アナフォリックマクロとpacakge」の続き。この方法だとダメなケースを発見したので、その改善策(?)を考えてみる。 以前の方法 以前の方法は、アナフォリックマクロの定義と使用が別パッケージに分かれる場合に、アナフォリック変数のインターンを使用側パッケージで行う、というようなものだった。 (defpackage :util (:use :common-lisp) (:export a.when)) (in-package :util) (defmacro a.when (expr &body body) `(let ((,(intern "IT") ,expr)) ; ITシンボルは、マクロ展開時に使用側パッケージにインターンされる (when ,(intern "IT") ,@body))) この方法の利点は前回書いた通りなのだが、a.whenマクロを使用する関数が
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Scheme Macros for Common Lisp
Scheme Macros for Common Lisp [Download mbe.lsp] Dorai Sitaram mbe.lsp defines for Common Lisp the macro definers define-syntax, let-syntax, and letrec-syntax, as described in the Scheme report R5RS [3]. These macro definers, also called macro by example (MBE), use simple patterns, including ellipsis, to specify how a macro should be expanded. They were propounded by Eugene Kohlbecker [1, 2] in th
L4uの->とit
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
SERIES Common Lisp Package
A series is a data structure much like a sequence, with similar kinds of operations. The difference is that in many situations, operations on series may be composed functionally and yet execute iteratively, without the need to construct intermediate series values explicitly. In this manner, series provide both the clarity of a functional programming style and the efficiency of an iterative program
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Tutorial for the Common Lisp Loop Macro
Peter D. Karp SRI International pkarp @ ai.sri.com The Loop Macro is one of the most valuable, and least-well documented of the operations in Common Lisp. It is valuable because it is more powerful, more compact, and more readable than comparable Common Lisp constructs such as mapping operations and recursion. It also uses a programming style that will be familiar to programmers who have worked wi
LISPMEMO
LISPUSERLISPMEMOLisp is like a ball of mud - you can throw anything you want into it, and it's still Lisp. -- Anonymous あろはさんところ (http://alohakun.blog7.fc2.com/blog-entry-701.html ) の GCC の最適化関連の話らしいネタ で Shiro さんのコメントに compiler-macro がさらっと出てきいたので。 CommonLisp処理系の多くは、formatの文字列が定数ならコンパイル時に「format文字列をコンパイル」 します。つまりformat文字列を解釈して行われるであろう動作を直接コードとして吐き出します。 前にコメントしたcompiler-macroを使ってるんで、デフォルトの最適化に不満があれば
CL-INTERPOL - String interpolation for Common Lisp - letter
以前http://cadr.g.hatena.ne.jp/g000001/20080318/1205851335でちょっとふれてあった CL-INTERPOL 便利だ。 頭に #? は付けなければならないけど、正規表現中のバックスラッシュを重ねる手間がはぶけるし、変数や式の埋め込みもできる。 これが常に有効でもいいんじゃないだろうか。 (require :cl-interpol) (require :cl-ppcre) (cl-interpol:enable-interpol-syntax) (cl-ppcre:do-register-groups (m) (#?/(\d+)/ "aa12ab34") (princ #?"match is [${m}]\n")) ;; match is [12] ;; match is [34] (princ #?"(+ 1 2) => ${(+ 1 2)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Google Code Archive - Long-term storage for Google Code Project Hosting.
defclass-star
iterate, the extensible iteration construct
Домашнее Порно. Смотреть домашние порно ролики бесплатно онлайн
[Common Lisp] 文字列リテラルを作る
[Common Lisp] lambda と書くのがめんどうなときに。ちょっと考えなおした。
[Common Lisp] lambda と書くのがめんどうなときに。{}
http://snmsts.dreamhosters.com/diary/index.cgi?routine=one&name=2008-05-27-1803