Common Lisp で streem みたいな書き方を実装してみた - Qiita
この文章は、 Lisp Advent Calendar 2014 の 12/18 担当分の記事として書かれました。 背景(順不同) streem 言語 Matz 氏により、 streem という、 stream based concurrent scripting language なるものの設計が進められています。 https://github.com/matz/streem 面白そうですね。 streeem 言語 streem 言語にインスパイヤされた mattn 氏により、 streeem という Go 言語での実装が行われました。 https://github.com/mattn/streeem http://qiita.com/mattn/items/20c7eb056ed8921547a8 なんて素早いんでしょう。かっこいいですね。 Common Lisp でのストリーム処理
git clone した Lem を実行する - Qiita
git clone した Lem を実行する方法 以下のコマンドで GitHub から Lem を git clone して、実行することができます。 $ git clone https://github.com/cxxxr/lem.git $ cd lem $ ros run -e '(setf ql:*local-project-directories* (list #p"."))(ql:quickload :lem-ncurses)(lem:lem)(quit)' 初回の実行時はコンパイルが行われるため、起動に少し時間がかかります。 コンパイルされたプログラムは ~/.cache/common-lisp にキャッシュされるため、次回の起動時からは比較的早く立ち上がります。 Lem のソースコードを編集して起動し直すと、自動で再コンパイルが実行されます。 Lem 自身のソースコードを弄
Lem のビルド方法 - Qiita
Lem は初回起動時に自動でビルドが行われます。 そのため、基本的には手動でビルドを行う必要はありません。 $ lem Making core for Roswell... building dump:/Users/me/.roswell/impls/x86-64/darwin/sbcl-bin/1.4.12/dump/lem-ncurses.core ビルドに使用するソースコードは ~/.roswell/local-projects/cxxxr/lem から取得されます。 このソースコードは ros install cxxxr/lem した際にインストールされたものです。 ros update lem した際も、このソースコードが更新されます。 ビルドされたイメージは、~/.roswell 以下に出力され、2 回目以降の起動時にはこのイメージが使用されます。
EastAsianWidth.txt から全角文字の範囲を示すデータを生成する - Qiita
はじめに Unicode の全角・半角判定ルーチンで使用するため、EastAsianWidth.txt をパースして、全角文字の範囲を示すデータを作成します。 パーサーコンビネーターを使ってみたいので、正規表現は使用しません。 今回実装する内容 以下を実装していきます。 ファイルフォーマットを PEG で定義 定義した PEG をもとにパーサーを作成 作成したパーサで EastAsianWidth.txt をパース パースした結果を加工してデータを作成 PEG 定義 EastAsianWidth.txt のフォーマットを PEG で表すと以下のようになります。 # [ファイル] は [行] の 0 回以上の繰り返しの後に [EOF] FILE <- LINE* EOF # [行] は [文字コードの範囲][セミコロン][文字種][パディング][コメント][改行] または [コメント][改行
Lem エディタから OS コマンドを実行する - Qiita
はじめに Lem エディタのバッファ上から OS のコマンドを実行し、結果をバッファに書き戻す処理を実装します。 実行例 今回実装するプログラムの実行例は以下の通りです。 Lem エディタ内から Bourne Shell を起動し、ls -l を実行させ、結果をバッファに書き戻しています。 ;; load program (load "lemsh") ;; create sub process (lemsh:start "sh") ;; interact with it (lemsh:pwrite "ls -l") -rw-r--r-- 1 me staff 2197 10 21 15:35 lemsh.md -rw-r--r-- 1 me staff 2111 10 21 15:32 lemsh.lisp total 16 ;; quit (lemsh:stop) Bourne Shel
適当に継承例 - Qiita
#runtime "hsp3cl" #cmpopt varinit 1 #module Animal _name,virtualBark,isGrow #define super(%1) \ _name=%1 :\ virtualBark=*overrideBark #modcfunc name return _name #modcfunc bark gosub virtualBark return refstr #global #module Dog _name,virtualBark #modinit str __name super@Animal __name return *overrideBark return "ワオーン" #global #module Cat _name,virtualBark #modinit str __name super@Animal __name
Opusmodusの基本。 - Qiita
はじめに OpusmodusはCommon Lispベースの環境で簡単にMIDIやMusic XMLを生成することのできる統合開発環境です。 手前味噌ですが、Opusmodusを作ってこんな曲とかを作ったりしました。 公式サイトにも色々サンプルがあります。 mac専用で有料ですが、色々実験的なアルゴリズム作曲をしたい時は便利です。 すごく便利なんですが、基本的に日本人のユーザーは今は僕しかいないので、せっかく興味があるのに英語のドキュメントに阻まれてハンズオンできない人を救済するために、簡単なことだけまとめます。 基本のキ ⌘+eでカーソル以下を評価し、コンソールに出力します。⌘+Eでファイル全体を評価します。 OMNという単位で音価、音高、ダイナミクス、奏法を指定します。（以下、公式サイトよりキャプチャ） ダイナミクスと奏法は省略することもできます。 例えば以下のように作ったOMN上にカ
asdfの説明 - Qiita
asdfについて ごきげんよう。今日はasdfについて説明していこうと思う。それにquicklispを使ったライブラリの作り方も説明していく。これを読んで、自分もライブラリを作ろうと思ってくれたら幸いだ。 asdfとは、commonlispのライブラリをインストールするときに使うライブラリでrubyのgemに近いものがある。つまり、複数のソースコードを一括でロードをすることができる。分割したぶつ切りのコードを統合してくれると思ってくれたほうがいいかもしれない。ただし、Pythonやgemのような使い勝手の良さはさほどない。というよりも全く無いに等しい。つまり、初心者には使い勝手が悪すぎる。 だが、今だけは我慢してほしい。いずれは、もっと使いやすいものが生まれてくるから。というのも、おそらくだが、いずれかはPythonのimportのようにimportするだけで使えるライブラリが出てくるかも
Common LispでSingletonなクラスを作る（CLOS） - Qiita
Common LispでSingletonなクラスをCLOSで書くとどうなるのか？ 考えてみた結果以下のような感じになった。 (defpackage foo (:use cl cl-user) (:export foo get-instance)) (in-package :foo) ;; fooクラスを定義する。 (defclass foo () ()) ;; +instance+にインスタンスを格納。（この時点ではコンストラクタは呼び出し可能） (defvar +instance+ (make-instance 'foo)) ;; 新しいインスタンスを作れなくするためにコンストラクタを呼び出せないようにする (defmethod initialize-instance :around ((this foo) &key) (error "can't create instance."))
CommonLispでXML読み込み（CXML、XPATH） - Qiita
; Closure XMLをロード (ql:quickload :cxml) (ql:quickload :cxml-stp) ; Plexippus XPathをロード (ql:quickload :xpath) (let (xml) ; XML読み込み (setf xml (cxml:parse-file "./test.xml" (stp:make-builder))) ; 文字列を取得 (format t "string : ~A~%" (xpath:string-value (xpath:evaluate "/document/string" xml))) ; 数値を取得 (format t "number : ~A~%" (xpath:number-value (xpath:evaluate "/document/number" xml))) ; 複数のノードを処理する (xp
cl-openglでグラフィックス（文字列描画編:GLisph） - Qiita
今回文字列の描画で利用させていただいたライブラリ。 (ql:quickload :glisph) でインストールできる、便利。 成果物 GLisphのGitHubにあるサンプルをみながらごにょごにょしたサンプルコードをGitHubで公開しています。 動かし方 cd ~/quicklisp/local-project git clone https://github.com/singy15/cl-opengl-text-sample.git cd cl-opengl-text-sample sbcl (ql:quickload :cl-opengl-text-sample) (cl-opengl-text-sample:main) ;; Variables for GLisph. (defparameter *font-en* nil) (defparameter *glyph-table-
cl-openglでグラフィックス（画像描画編） - Qiita
先述の記事でも利用したCommon LispからOpenGLを利用するためのライブラリ。 これがないとなにもはじまりません。 成果物 参考にしたサイトにあるサンプルをみながらごにょごにょしたサンプルコードをGitHubで公開しています。 動かし方 cd ~/quicklisp/local-project git clone https://github.com/singy15/cl-opengl-image-sample.git cd cl-opengl-image-sample sbcl (ql:quickload :cl-opengl-image-sample) (cl-opengl-image-sample:main) ;; Variables. (defparameter *tex* nil) ;; RAW画像を読み込む関数 (defun load-rgba-texture (pa
Common Lispで名前に丸括弧を含む関数を定義する - Qiita
はじめに Common Lispなら丸括弧も関数名として利用できるんじゃないかと思って調べました。\あるいは|でエスケープすれば可能です。 試す roswellをインストールして試してみた。 $ros run * (defun \(1\) () 1) |(1)| * (\(1\)) 1 * (defun |(2)| () 2) |(2)| * (|(2)|) 2 * (\(2\)) 2 * (|(1)|) 1 * (defun \(a () 'a) |(A| * (defun |(b| () 'b) |(b| * (\(a) A * (|(b|) B (defun \(a () 'a)では大文字が印字されて、(defun |(b| () 'b)では小文字が印字されるのか、分からないです。 リーダーマクロ エスケープに利用した、\や|はリーダーマクロとして定義してあるようでした。解説はHyp
処理の途中経過を保持して外部に隔離する - Qiita
この記事はLisp Advent Calendar 2017の11日目の記事です。 はじめに 現行のDarkmatterについてはこちらをご覧ください． 開発版のDarkmatter Core/Notebookについては最低限の動作が出来たら追記します． 現在開発中のDarkmatter Core/Notebookには，コード実行の途中経過を手動で保存する機能があります． そのため実行を中断しても途中の結果が見れたり，実行時エラーで死んだりしても途中経過を残しておけば確認が可能です． さらにリアルタイムな可視化にも利用されるため，機械学習の実験などに有用です． 途中経過を保存する領域は単なるhash-tableなので，通常の変数と同様に扱うことが出来ます． トリッキーな実装なので誰得かは分かりませんが，記録として残しておきます． 実装概要 コードの実行はthreadを立ち上げて行う thr
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Lem のキーバインド - Qiita
2018年のCommon Lispへの手引きはこれだ! - Qiita
Wordnet × CommonLispで類義語を抽出してみる - Qiita
CommonLispでCeramicとCaveman2を使ってGUIアプリを作る - Qiita
Opusmodusで便利な関数たち - Qiita
CommonLispのformat関数と*query-io* - Qiita
