プログラマ未満

処理系に質問する方法

2012-02-17T01:08:00.006+09:00

いろいろなプログラミング言語を利用していると、同じような機能の関数の名前が言語間で異なることがしばしばあります。ブラウザを立ち上げてドキュメントを探して、としても良いかもしれませんが、ちょっとど忘れした名前を調べるだけならば、使っている処理系に問いあわせるだけで目的を達成できそうです。ということで、各処理系でのヘルプ機能を調べてみました。RubyRubyのオブジェクトにはメソッドやメンバ変数の一覧を取得するメソッドが備わっています。methods メソッドを返すpublic_methods publicなメソッドを返すprivate_methods privateなメソッドを返すprotected_methods protectedなメソッドを返すinstance_methods メソッドを返すincluded_modules インクルードしているモジュールを返すconstants

RacketでSQLite3

2012-02-13T23:45:00.002+09:00

RacketでDBアクセスを行ってみます. Windows版だとインストールしただけでSQLite3が使えるようです.#lang racket(require (prefix-in db: db))(define con (db:sqlite3-connect #:database "sqlte3-test" #:mode 'create))(define (create-table con) (db:query-exec con "create table kv(key text, value text)"))(define (insert-values con) (let ((q (db:prepare con "insert into kv(key, value) values($1, $2)"))) (db:query-exec con

Racketでファイル名入力ダイアログ

2012-01-28T01:16:00.002+09:00

get-file関数でファイル名入力ダイアログを利用できます.戻り値はパスまたは#fです.オブジェクト指向風にファイル名入力用テキストフィールド+ボタンをまとめたクラスを作成してみます.#lang racket(require racket/gui/base)(define file-input-pane% (class vertical-pane% (init-field button-label) (init-field parent) (init-field [label #f]) (super-new [parent parent] [stretchable-height #f] [stretchable-width #f]) (when label (new message% [

Racketで画像作成(racket/draw)

2012-01-25T00:32:00.002+09:00

Racketで画像を作成します.いくつか手段がありそうですが、racket/drawを利用します.フォントを指定すれば日本語も出力できるようです.#lang racket(require racket/draw)(define target (make-bitmap 150 30))(define dc (new bitmap-dc% [bitmap target]));; 長方形(send dc draw-rectangle 1 1 149 29);; フォントの設定(define ms-font (make-object font% 10 "ＭＳゴシック" 'default))(send dc set-font ms-font);; 文字列(send dc draw-text "こんにちはせかい" 5 10);; 保存(send target save-file "

Racketでコマンドライン引数のパース

2012-01-25T00:09:00.003+09:00

Racketにはコマンドライン引数をパースするための機能が備わっているようです.ためしに簡易catコマンドを作ってみます.#lang racket(define line-number? #f)(define files (command-line #:program "cat" #:once-each (("-n" "--number") "show line number" (set! line-number? #t)) ;; 残りの引数.command-lineの戻り値になる. #:args args args))(define output-lines (if line-number? (lambda (port) (define n 1) (for ((line (

Racket(Scheme)でGUI

2012-01-20T00:49:00.001+09:00

Racketでウィンドウを表示し、線を引いてみます. "draw"ボタンをクリックするたびにランダムな色と位置で線が表示されます.#lang racket(require racket/gui/base srfi/27)(define frame (new frame% [label "Example"] [width 300] [height 300]))(define cvs (new canvas% [parent frame]))(define pen-styles '(transparent solid xor hilite dot long-dash short-dash dot-dash xor-dot xor-long-dash xor-short-dash

Racket(Scheme)でWebサーバ+formlets

2012-01-19T01:24:00.002+09:00

RacketでWebサーバ+formletsを使ってみます。以下のコードで、ローカルホストの8000ポートでWebサーバが立ち上がります。#lang racket(require web-server/servlet web-server/servlet-env web-server/dispatch web-server/formlets)(define-values (dispatcher _) (dispatch-rules [("input") show-input] [("output") show-output] [else show-default]))(define form (formlet (div "input:" ,{=> input-string input}) input))(define (show-input req) (response

package.elのレポジトリの構成

2011-12-23T02:50:00.002+09:00

Emacs 24から標準でついてくるとどこかで耳にしたpackage.elを眺めました。簡単そうだったので、ためしにgithubにレポジトリを作ってみました。

MochiWebで学ぶErlang(mochiweb_http)

2011-11-16T23:41:00.001+09:00

はじめにMochiWebはErlangで書かれた軽量HTTPサーバーです。Erlang使いを志すならMochiWebのコードを読むと良いらしいので読んでみます。MochiWebはMITライセンスのようです。HTTPサーバーの起動はmochiweb_httpモジュールのstart関数により行います。なので、mochiweb_httpから順に流れを追ってみます。mochiweb_http.erlは単体テストを入れて250行程度。ファイルの先頭部分参考http://www.erlang.org/doc/reference_manual/modules.htmlhttp://www.erlang.org/doc/reference_manual/macros.htmlhttp://d.hatena.ne.jp/m-hiyama/20070922/1190432025%% @author Bob

Erlang+TCP

2011-11-10T00:08:00.001+09:00

Erlangã§TCPãµã¼ããæ¸ãã¦ã¿ã¾ãããã¼ã«ã«ãããã·ãä½ã£ã¦ã¿ããã§ãã-module(serv).-compile(export_all).-compile([start/1]).-define(TCP_OPTIONS, [binary, {packet, raw}, {active, false}, {reuseaddr, true}]).start (Port) -> spawn(?MODULE, init, [Port, self()]).init(Port, Pid) -> {ok, Listen} = gen_tcp:listen(Port, ?TCP_OPTIONS), accept_loop(Listen, Pid).

自力で末尾再帰をループにしてみた ver C

2011-10-27T02:17:00.001+09:00

コールスタックについて理解するためにスタックをいじって遊んでみました。C言語で末尾再帰関数を呼び出す際にスタックを使い果たさないようにしてみます。もっとも、gccだと-O2を付けてコンパイルすると最適化がかかって勝手にループになるみたいではありますが。関数呼び出し後のスタックに積まれている値とesp,ebpの値は以下のようになるらしいです。 ...ebp + 8 : 第1引数ebp + 4 : リターンアドレスebp + 0 : 呼び出し元でのebpの値ebp - 4 : ローカル変数...ebp - x : ローカル変数このへん <- ESPバッファオーバーフローやoff-by-oneエラーではreturn時に復帰するリターンアドレス(returnする際に移るアドレスを変える)や呼び出し元のebp(呼び出し元関数がreturnする際に移るアドレスを変える)を書き換えることで

Emacsのヘルプ

2011-10-20T00:02:00.001+09:00

Emacsに助けを求めるためのコマンド。apropos,find-functionあたりはよく使ってます。情報を表示する describe-ほげほげコマンド。色々な情報を表示してくれます。たくさんありそうなのでEmacsLispを書くときに使いそうなものを列挙。- describe-bindings キーシーケンスのコマンド(Anythingが入ってると一覧表示してくれる) - describe-function 指定した関数の情報 - describe-variable 指定した変数の情報 - describe-char カーソル位置にある文字の情報(文字コードなど) 定義場所を探す Emacs Lispの関数や変数が定義された場所を探すコマンド。- find-function 指定した関数の定義された場所に飛ぶ -

同じ単語(シンボル)をハイライト表示する(マイナーモード版)

2011-10-19T23:29:00.001+09:00

最近LispといえばEmacsLispしか触っていません。この間書いたカーソル位置の単語と同じ単語をハイライト表示する機能をマイナーモードにしてみました。コードはgithubに置きました。 (require 'hl-same-symbol-mode);; emacs-lisp-modeで有効にしたい場合(add-hook 'emacs-lisp-mode-hook 'hl-same-symbol-mode);; ハイライトするまでのアイドル時間を変更する(setf hl-same-symbol-delay 0.10);; ハイライトの表示を変更する(setf hl-same-symbol-face '何か)

同じ単語(シンボル)をハイライト表示する

2011-10-13T09:00:00.001+09:00

EmacsのOverlayを使ってみるテスト。カーソル位置にある単語(symbol-at-pointで取得できるもの)と同じ単語をハイライト表示させます。show-paren-modeみたいにタイマーを使ったほうが良いかも。 (eval-when-compile (require 'cl))(defvar *hl-same-symbol::text* "")(defvar *hl-same-symbol::list* nil)(defvar hl-same-symbol-face 'highlight)(defun hl-same-symbol::highlight (text) (setf *hl-same-symbol::text* text) ;; (highlight-regexp (regexp-quote text) hl-same-symbol-face) (let

popup.elで右クリックのようななにか

2011-10-05T00:19:00.001+09:00

popup.elでコマンドメニューを表示させてみます。 (require 'popup)(defvar *rclick-command-tree*)(setf *rclick-command-tree* `( [org-capture "org-capture" (lambda () (featurep 'org))] ("Erlang" [:major-mode erlang-mode] [run-erlang "run-erlang-shell"]) ("Org" [:feature org] [org-sparse-tree "org-sparse-tree"] [org-schedule "org-schedule"] [org-deadline "org-deadline"] [org-time-stamp "org-time-stamp"]) ("VC

popup.elで遊んでみる

2011-09-18T01:24:00.002+09:00

overlayを使ってポップアップメニューを表示するpopup.elを使ってみました。rclk:rclkコマンドを実行すると、*rckl:clauses*に設定されている条件にしたがってメニューを表示します。右クリックをイメージしています。;; (require 'popup)(defvar *rclk:clauses* nil)(defvar *rclk:format-function* nil)(defun rclk:rclk ()(interactive)(rclk:popup-menu*(rclk:select *rclk:clauses*)))(defun rclk:clause-name (clause)(if (<= (length clause) 2) (second clause) (third clause)))(defun rclk:select (

Windows Power Shell で Word の表に書き込む

2011-08-29T23:18:00.000+09:00

大量のWordやExcelファイルを一括で処理する方法が知りたいです。とりあえず、Power Shell で頑張るための第一歩。既存のファイルを開いて、Word中の表の(1,1)に文字列を挿入します。 $w = New-Object -ComObject "Word.Application" $d = $w.Documents.open("filename") $d.Tables.Item(1).Cell(1,1).Range.Text = "hoge" 1日の間に更新されたファイルをカレントディレクトリ以下から探します。 $d = (date).AddDays(-1) Get-ChildItem -Recurse | Where-Object { $_.LastWriteTime -gt $d }

F#でキーボードフック

2011-08-14T01:28:00.002+09:00

C#でできるらしいので、F#でもできるだろうということでやってみました。 .Net上の言語でキーボードフックしてるプログラムを載せてる色々なWebページを参考にしました。 F#のコンソールにコピペしてhook_start関数を実行すると,PrintScreenをフックするようになります。 open System open System.Diagnostics open System.Runtime.InteropServices [] let WH_KEYBOARD_LL = 13 [] let HC_ACTION = 0 [] let WM_KEYDOWN = 0x0100 [] let WM_KEYUP = 0x0101 [] let WM_SYSKEYDOWN = 0x0104

Emacsのコマンド2

2011-07-03T22:51:00.001+09:00

1つのキーストロークに複数コマンドを割り当ててみる試みその2。変数の真偽に応じて2種類のうちどちらかの動作をするコマンドを作成しました。 (require 'cl)(defvar *toggle-command-flag* nil)(defun toggle-command-flag () (interactive) (setf *toggle-command-flag* (not *toggle-command-flag*)))(defun parse-body (body) (let (fst scd rest) (setf fst (car body) scd (cadr body) rest (cddr body)) (unless (stringp fst) (when scd (push scd rest)) (setf scd

Emacsのコマンド

2011-06-30T00:12:00.001+09:00

貴重なC-a,C-eといったキーが行頭/行末移動しかしないのはもったいない、ということで、 sequential-command.elなどのように、多少空気を読んで動作を変えるようなコマンドを定義します。 (defmacro as-this-command (cmd &rest args) `(progn (setq this-command ',cmd) (call-interactively ',cmd ,@args)))(defun buffer-empty? () (= (point-min) (point-max)))(defun initialize-buffer () (interactive) (call-interactively 'auto-insert))(defun at-line-start? () (= (point) (

cl-gtk2 + Glade

2011-06-15T01:57:00.001+09:00

cl-gtk2はgladeで作成したファイルを利用できるようなので遊んで見ました。ソースコード (asdf:load-system :cl-gtk2-glib)(asdf:load-system :cl-gtk2-gdk)(asdf:load-system :cl-gtk2-cairo)(asdf:load-system :closure-html)(asdf:load-system :cxml-stp)(asdf:load-system :drakma)(asdf:load-system :cl-ppcre)(asdf:load-system :cl-interpol)(defpackage :gtk-user (:use :cl) (:export run))(in-package :gtk-user)(cl-interpol:enable-interpol-syntax)(

ネタ言語 primefu*k

2011-06-11T15:22:00.001+09:00

ネタ言語を実装しました。 ;; 素数リストの作成(defun make-prime-list (n) (let ((arr (make-array n :initial-element 0 :element-type '(integer 0 1)))) (setf (aref arr 0) 1) (setf (aref arr 1) 1) (loop :for i from 2 below n :when (zerop (aref arr i)) :do (loop :for j from (* i 2) below n by i :do (setf (aref arr j) 1))) (loop :for i from 0 below n :when (zerop (aref

いまさら Arc Challenge を考える

2011-06-10T00:31:00.001+09:00

時代は継続らしいので、cl-contを利用してこんな感じで書いてみます。 (defvar top-page (load-html #p"top.html"))(defvar link-page (load-html #p"link.html"))(defvar result-page (load-html #p"result.html"))(defapp arc (state) (show top-page state) (let ((text state.reply$text)) (show link-page state) (show result-page state `(:text ,text))))(start #'arc)

defclassとdefmethodをいじくる

2011-06-09T02:23:00.001+09:00

特定のシンボルを特別扱いして、省略表記として利用できるような defclassとdefmethodを定義してみました。似たようなネタばかりやっている気がします。 (asdf:load-system :alexandria);; セッターとゲッター(defgeneric get-slot (obj slot))(defgeneric set-slot (obj slot new))(defmethod get-slot (obj slot) (slot-value obj slot))(defmethod set-slot (obj slot new) (setf (slot-value obj slot) new))(defmethod (setf get-slot) (new obj slot) (set-slot obj slot new))(defgeneric

Common Lispは自由過ぎてわかりづらいという思い

2011-06-07T02:49:00.001+09:00

ブログがソースコード貼り付け場所と化しているので、文章を書く努力。推測とか感覚とかなんとなくがミックスされてるので文章としてどうなんだろう。本文 Common Lispは数多くあるプログラミング言語の中でも、自由度という点では(大量の括弧を気にしなければ)トップクラスの言語ではないかと思います。例えば、Common Lispには、プログラマが手を加えることのできる処理のタイミングが3つあります。 1つ目は普通に処理が実行される時、2つ目はコンパイル時(マクロ(※1)/コンパイラマクロ)、3つ目は読み込み時です。多くの言語では、2つ目と3つ目の処理に手を加える機能は存在しないか、限定的なものです。また、Common Lispでは、プログラマが望むならば、大抵のものは自分で作成できます。組み込みのオブジェクトシステム(CLOS)が気にくわなければ、新しいオブジェクトシステムを作成して組み込

リクエストパラメータを引数として扱う

2011-06-04T00:32:00.001+09:00

HTTPの説明の際に、URLを関数、リクエストパラメータを引数と例えることがあるようなので、実際に引数=リクエストパラメータとなるようにしてみました。 (asdf:load-system :cl-annot)(asdf:load-system :alexandria)(asdf:load-system :clack)(defpackage annotation (:nicknames a) (:export httpfn/clack))(defpackage http-as-function (:use :cl) (:nicknames httpfn) (:export :with-http-parameters :*env* :*request*))(in-package :http-as-function)(defparameter *request* nil)

バイト列を画像に変換する

2011-05-31T00:57:00.001+09:00

目grepはできませんが、画像を作るくらいならできそうなのでやってみました。入力を1バイトずつ、値に応じた色のピクセルに変換して画像を作成します。値と表示色の関係はbin2colorをいじると変更できます。ひさびさにPythonを使ってみました。 #!/usr/bin/pythonimport sysimport os.pathimport Imageargvs = sys.argvargc = len(argvs)if (argc != 3) : print 'Usage : %s [input-file] [output-file]' % argvs[0] quit()in_file = argvs[1]out_file = argvs[2]filesize = os.path.getsize(in_file)x = 160y = filesize/x + 1print

リストの作成

2011-05-28T00:20:00.001+09:00

F#のyieldやyield!っぽいなにかを書いてみました。値を集めることしかしませんが、 loopマクロよりもリストを作りやすいのではないか、という気はします。 (defmacro yielding (&body body) (let ((gtail (gensym)) (ghead (gensym)) (garg (gensym)) (gtmp (gensym))) `(let* ((,ghead (cons nil nil)) (,gtail ,ghead)) (macrolet ((yield (,garg) `(setf (cdr ,',gtail) (cons ,,garg nil) ,',gtail (cdr ,',gtail))) (yield! (,garg) `(loop :for ,',gtmp :in ,,

F#入門

2011-05-18T23:26:00.001+09:00

F#はじめました。とりあえずFizzBuzz。 let fizzbuzz1 (tgt : int) = [1..tgt] |> List.map (fun n -> if n % 15 = 0 then printf "FizzBuzz\n" else if n % 5 = 0 then printf "Buzz\n" else if n % 3 = 0 then printf "Fizz\n" else printf "%d\n" n) |> ignorelet fizzbuzz2 (tgt : int) = [1..tgt] |>

cl-annotを使ってインターフェースと実装を分離する

2011-05-12T23:50:00.000+09:00

cl-annotを使ってみるテストその2。機能を表す名前(関数名)と実際の実装を分離して、利用する際はアノテーションで実装を選択させてみます。試しにソケットを利用するための関数(インターフェース)を定義し、 2種類のライブラリを用いた実装(バックエンド)を作成して利用するようにしてみました。 (asdf:load-system :cl-annot)(use-package :cl-annot)(defun mk-impl-annot-name (sym) (values (intern (format nil "~A-IMPL" (symbol-name sym)))))(defun mk-use-annot-name (sym) (values (intern (format nil "USE-~A" (symbol-name sym)))))(defun

cl-annotを使ってみる

2011-05-12T21:50:00.000+09:00

Common Lispでアノテーションを付け加えるライブラリ、cl-annotを使って遊んでみました。`注釈'でどこまでコードをいじっていいのかよく分からないので、便利なリーダマクロな扱いになってしまっているような。 (asdf:load-system :cl-annot)(use-package :cl-annot)(defpackage a (:use) (:export curry replace-symbol subst-symbol with-dot-slot-value-syntax));;;; シンボルの置き換えを行う(defun replace-symbol (fn sexp &key (test (constantly t))) (typecase sexp (symbol (if (funcall test sexp) (funcall

矢印でメソッドチェイン風に記述する

2011-05-05T23:21:00.002+09:00

なんどか似たようなネタでコードを書いている気がします。矢印シンボルを用いて括弧の数を減らしてみます。矢印の`>'の個数で式を挿入する位置を決定するようにしてみました。 (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

deftypeとtypecaseを使ってfizzbuzz

2011-05-05T22:32:00.002+09:00

Common Lispのdeftypeを利用してみます。fizz,buzz,fizzbuzzをdeftypeで型として定義して、 typecaseを使って値を判別します。 (defun fizz? (n) (zerop (mod n 3)))(defun buzz? (n) (zerop (mod n 5)));;; 型定義;; fizz型は0以上の整数かつ関数fizz?に引数として渡すと真を返す値であると定義(deftype fizz () '(and (integer 0 *) (satisfies fizz?)))(deftype buzz () '(and (integer 0 *) (satisfies buzz?)))(deftype fizzbuzz () '(and (integer 0 *) (satisfies fizz?) (satisfies buzz

ユニットテストの記法を考える

2011-04-13T01:15:00.001+09:00

しばらくテストばかりしていたせいか、 Common Lispを触っているときもテストネタについて考えています。Common Lispには既にかなりの数のユニットテストツールがありますが、車輪の再開発上等というか、自分で考えるのも良いだろうということで、括弧の数を減らすような書き方を考えてみました。 (defpackage net.phorni.unittest (:use :cl) (:nicknames :ut) (:export test run-test))(in-package :net.phorni.unittest)(defparameter *test-table* (make-hash-table));;;; condition(define-condition (simple-condition) ((form :

hippie-expandでSLIMEの補完を利用する

2011-04-10T16:56:00.001+09:00

モードごとに補完関数を切り替えるelispを書いたので、 Common Lisp編集中にはelisp用のtry-complete-lisp-symbolではなく SLIMEの補完を行えるようなelispも書いてみました。補完候補を探す箇所以外はほとんどtry-complete-lisp-symbolと違いはありません。 (defun try-complete-slime-symbol (old) (unless old (he-init-string (he-lisp-symbol-beg) (point)) (unless (he-string-member he-search-string he-tried-table) (setq he-tried-table (cons he-search-string he-tried-table))) (setq

hippie-expandの略語展開関数をmodeごとに指定する

2011-04-01T22:31:00.001+09:00

Emacsの補完機能の一つにhippie-expandというものがあります。hippie-expandは補完用関数のリストを設定すると、そのリストの先頭から順番に補完を試してくれます。私は主にlisp系言語で遊んでいるので、補完用関数のリストに lispのシンボル補完用関数を設定していたのですが、lispプログラミング以外を行っている時にもlispのシンボルが候補にあがってしまいます。Emacsのことなのですでに解決策はあるのでしょうが、とりあえず自作でmojor-mode/minor-modeごとに補完用関数を切り替えられるようなelispを書いてみました。 (require 'cl)(defvar mode-specified-try-functions-table (make-hash-table))(defun set-mode-specified-try-functions (

エターナル・フォース・コントロール

2011-02-23T02:06:00.002+09:00

Emacsのキーマップについて調べていたら、入力イベントを変換する機能というのを見つけたので無駄機能を使って遊んでみます。 (defun enable-force-ctrl ()(interactive)(aset keyboard-translate-table ?a ?\^a)(aset keyboard-translate-table ?b ?\^b)(aset keyboard-translate-table ?c ?\^c)(aset keyboard-translate-table ?d ?\^d)(aset keyboard-translate-table ?e ?\^e)(aset keyboard-translate-table ?f ?\^f)(aset keyboard-translate-table ?g ?\^g)(aset

CommonQtでコンテキストメニュー

2011-02-09T01:01:00.001+09:00

CommonQtでコンテキストメニュー(右クリック時に出てくるメニュー)を出してみます。 (asdf:load-system :qt)(defpackage :test (:use :cl :qt) (:export main))(in-package :test)(enable-syntax)(defvar *qapp*)(defclass test-window () ((quit-action :accessor quit-action-of :initform nil) (file-menu :accessor file-menu-of :initform nil)) (:metaclass qt-class) (:qt-superclass "QMainWindow") (:override ("contextMenuEvent"

CommonQtでHello world!

2011-01-19T23:35:00.001+09:00

Common LispのQtバインディングであるCommonQtを触ってみました。 QtならマルチプラットフォームなのでどこでもGUIが使えます(たぶん)Qtのチュートリアルにある以下のようなC++のコードは // C++#include #include int main(int argc, char *argv[]){ QApplication app(argc, argv); QPushButton hello("Hello world!"); hello.resize(100, 30); hello.show(); return app.exec();}このように書けるようです。 ;; Common Lisp (CommonQt)(asdf:load-system "qt")(defpackage :qt-user (:

本日の酒：鎌倉ビール花

2010-12-21T21:08:00.001+09:00

本日の酒鎌倉ビール花(神奈川/鎌倉ビール醸造株式会社)

本日の酒:世界ビール紀行ベルジャンエール

2010-12-19T18:57:00.001+09:00

本日の酒世界ビール紀行ベルギーベルジャンエールタイプ(アサヒビール/福島工場) 琥珀ヱビス(サッポロビール) 今日も酒がおいしいです。

昨日の続き(syntax-table)

2010-12-15T23:37:00.001+09:00

word-at-pointやsymbol-at-pointはメジャーモードごと、というかsyntax-tableごとに動きをかえてしまうので、適当なsyntax-tableを定義してつねにそいつを利用するようにしてみました。https://gist.github.com/740118

Emacsで単語の省略形を定義する

2010-12-15T00:19:00.001+09:00

最近どうにかして同じようなコードを何度も何度も何度も書くような真似をしなくて良い方法はないだろうかと考えています。基本的にEmacsユーザーなので、Elispでそれっぽい機能を書けばいいんじゃないかと考えて思いついたネタの一つが、劣化yasnippetといいますか、単にある文章(単語)の省略形を登録しておいて、それを展開してもとの文章(単語)になるようにする、というものでした。まぁ、補完があるのでたいして役に立たないかもしれません。 (require 'cl);;; メジャーモードで分けたほうがよいだろうか(defvar shorthand:*shorthand-expand-ht* (make-hash-table :test 'equal))(defvar shorthand:*shorthand-fold-ht* (make-hash-table :test 'equal))(

最近飲んでいる(いた)日本酒リスト

2010-12-08T21:19:00.001+09:00

賀儀屋無濾過純米吟醸 (愛媛/成龍酒造株式会社) 古緑川(平成9年度産) (新潟/緑川酒造株式会社) 櫻室町吟醸純米酒 (岡山/室町酒造株式会社) 幻の瀧山田錦大吟醸袋しぼり(製造No.0428) (富山/皇国晴酒造株式会社) 伝兵衛純米 (石川/合名会社中島酒造店) 霧筑波特別純米酒 (茨城/合名会社浦里酒造店) 「皇国晴」は「みくにはれ」と読むらしい。

cl-gtk2

2010-12-06T23:55:00.001+09:00

cl-gtk2を使ってウィンドウに絵を書いてみます。 ;;(asdf:load-system :cl-gtk2-glib);;(asdf:load-system :cl-gtk2-gdk);;(asdf:load-system :cl-gtk2-cairo)(defun run-test-1 () (let ((out *standard-output*)) (gtk:within-main-loop (let ((window (make-instance 'gtk:gtk-window :type :toplevel :window-position :center :title "run-test-1" :default-width 300 :default-height 100)) (area

たくさんの閉じ括弧を不快に思う人のためのリーダマクロ

2010-11-28T00:30:00.001+09:00

本日(2010/11/27)はShibuya.lisp TT6に参加してきました。Lisperばかりが70以上も集まるという、とても楽しいイベントでした。運営、発表者、会場、その他参加者の皆様、どうもありがとうございました。内容についてはきっとどなたかがナイスな感じでまとめてくださるはずなので、帰宅して書いてみたネタを晒そうと思います。今日のTTで Programming 2.0 という話題がでました。自分の中で要約すると、「おいコンパイラ、そのくらいのタイポでエラーをだすな。俺がやりたいことくらいわかるだろ？」という感じになりましたが、そのあたりに関連して、「Lispのネストした閉じ括弧をたくさん書くのが面倒、わかりにくい」というようなつぶやきが聞こえてきたので、なんとかしてみようと頑張ってみました。 (defparameter *unclose-parenthesis* 0)(

LOLを参考に間接参照

2010-11-26T21:28:00.001+09:00

Let Over Lambda(LOL)のalambda,aletあたりを読んで間接参照を定義する単純な方法を考えてみました。 (let ((set-sym (gensym)) (deref-sym (gensym))) (defun ref (fn) (let ((this fn)) (lambda (&rest args) (cond ((eq (car args) set-sym) (setf this (cadr args))) ((eq (car args) deref-sym) this) (T (apply this args)))))) (defun deref (ref) (funcall ref deref-sym)) (defun (setf deref) (fn ref) (funcall ref

#`..`で外部コマンドの出力を取得する

2010-11-25T00:13:00.001+09:00

Perlのバッククオートをパクってみました。とりあえず、kmrclのcommand-outputを使いめんどくさいところを丸投げします。 (asdf:oos 'asdf:load-op :kmrcl)(defun |#`-reader| (stream ch numarg) (declare (ignore ch numarg)) (let (acc-fmt acc-args) (loop :for curr = (read-char stream) :until (char= curr #\`) :do (if (char= curr #\\) (let ((c (read-char stream))) (case c ((#\n) (push #\Newline acc-fmt))

ASDF-INSTALLでhttpsからのインストールを行う

2010-11-20T06:26:00.001+09:00

asdf-installはURLを指定するとそこからパッケージをダウンロードしてインストールしてくれますが、httpsには対応していません(たぶん)GitHubがいつの間にかhttpsのみのサポートに切り替わっていたので、 URLを指定してプロジェクトをインストールすることができなくなりました。とりあえず、CL+SSLを利用してhttpsでも動かせるようなコードを書いてみました。パッケージ名が文字列かつ"https://"から始まっている場合の動きを若干追加しています。 (asdf:oos 'asdf:load-op :cl+ssl)(in-package :asdf-install)(setf (symbol-function 'make-stream-from-url-old) #'make-stream-from-url)(setf (symbol-function '

テストツールその2

2010-11-18T22:06:00.001+09:00

関数を簡単にテストするなら、このくらい単純で良いような気もしました。 (defvar *test-function-table* (make-hash-table));; clause -> ((arg1 arg2 ... ) result) = ((arg1 arg2 ... ) :eq result);; clause -> ((arg1 arg2 ... ) :not result);; clause -> ((arg1 arg2 ... ) :test test-fn)(defparameter *test-report-function* #'(lambda (fn-name args expected actual) (format t "TEST FAILED. Form: (~A ~{~A~^ ~}), Expected: ~A, Actual: ~A~%"

Common Lispで図形を描くための27の方法

2010-11-18T21:47:00.001+09:00

ありがちなタイトルの付け方ですね。Common Lispで図形を描くために取り得る手段を列挙してみました。一部現在は使えないか、使うために努力が必要なものがあるかもしれません。 CUIで充分だよ派表示されれば良いよ派 format関数 Cursesを使うよ派 cl-Ncurses ファイルに書き出すよ派 Lispで何とかするよ派 PNG派 zpng JPEG派 cl-jpeg PDF派 cl-pdf なんでも来いよ派 ch-image, IMAGO ベクタイメージで書いてPNGにするよ派 vecto 外部ライブラリを使うよ派 ImageMagic派 cl-magic libpng派 CL-PNG グラフを書くよ派(Graphviz) cl-dot, s-dot, cl-graphviz GDを使うよ派 cl-gd ウィンドウに表示するよ派 Lispでなんとかするよ

ユニットテストツールのようななにか

2010-11-08T20:50:00.001+09:00

動的言語を使う人達は、簡単なユニットテストくらいなら言語自体の機能をつかってぱぱっと書いてしまうのではないかと想像しています。私は趣味で適当なプログラムを書いているだけでろくにテストをしませんが、カバレッジのとりかたもわかったことなのでテストツールを書いてみました。前のエントリでは、SBCLでのカバレッジの結果の出力先はファイルパスと書きましたが、どうもSBCLでもディレクトリのパスっぽいです。どうしてファイルを指定すると思い込んでいたのでしょう。 (defpackage unit-test (:use :cl) (:shadow cl:assert) (:nicknames :utest) (:export test-error assert do-as-test define-test-case *unit-test-error-port* *

メソッドがクラスに属しているかのような錯覚をおこす為のマクロ

2010-11-08T20:12:00.001+09:00

タイトルどおりのものを作ろうとしてみましたが案の定ぐだぐだに。Common Lispのインスタンス変数(スロット)は :allocation :class と指定することで同じクラスのオブジェクトで共有されますが、共有されるだけで実際にインスタンスを生成しなければアクセスすることができません(たぶん)。なので、クラス変数をメタクラスのインスタンス変数とすることで他のオブジェクト指向言語に近付こうとしてみました。ソースコードはgistに置きました。https://gist.github.com/662369 ;; example(class () (def sum () (+ @@a @b)) (setf @@a 10) (def set-b (b) (setf @b b)))(defvar *obj* (make-instance ' :b 20)

SBCLとCCLでのカバレッジの取りかた

2010-11-03T14:35:00.001+09:00

SBCLとClozure Common Lisp(以下CCL)にはファイルのカバレッジを取り、HTMLで出力してくれる機能があるようです。CCLでは ccl:*compile-code-coverage*をTにしてからカバレッジを取りたいファイルをコンパイル->ロードして、テストの実行とカバレッジの集計結果出力を行います。SBCLでは、SB-COVERパッケージを読み込んでから、ファイルのコンパイル、ロード、テスト実行、結果の出力を行います。結果の出力時に指定するパスは、CCLではファイル名ですが、SBCLではディレクトリ名のようです。 (defun compile-and-load (path) (compile-file path) (load path));;; clozure common lisp(setf ccl:*compile-code-coverage* t)(

lengthとeltのgeneric-function版

2010-11-03T14:22:00.001+09:00

Common Lispパッケージの内容を上書きするのはよろしく無いのではと思い、適当な名前でタイトル通りのものを書いてみました。 (defun defmethods-args-expander (args specifiers) (when (< (length args) (length specifiers)) (error "Too many specifiers")) (labels ((inner (ar sr acc)(if (null ar)(nreverse acc)(inner (cdr ar)(cdr sr)(cons(if (null sr)(car ar)(list (car ar) (car sr)))acc))))) (inner args specifiers nil)))(defun

McCLIMで接続するディスプレイを選択する

2010-10-25T22:28:00.001+09:00

McCLIMはX11プロトコルをしゃべるためにCLXを利用しています。なのでディスプレイ番号などを指定するのは最終的にはCLXの役割です。McCLIMからCLXのopen-displayがどのように呼ばれるかを眺めることで、接続するディスプレイを選択する方法がわかったような気分になりました。 (asdf:oos 'asdf:load-op :mcclim)(sb-posix:getenv "DISPLAY");;=> ":0.0";; .Xauthorityを読み込み、ホスト名、ディスプレイ番号、プロトコルに対応する;; :authorization-nameと:authorization-dataを取得する(xlib::get-best-authorization "localhost" 0 :local);; =>"MIT-MAGIC-COOKIE-1";; =>#(161 76

CLOSでオブジェクトのクラスを変更する

2010-10-23T00:44:00.001+09:00

Common LispのオブジェクトシステムであるCLOSには、実行時にオブジェクトのクラスを変更する機能や、クラスを再定義するとそのクラスのオブジェクトが新しいクラスのオブジェクトへ変更されるという機能があるそうです。それぞれの動作を制御するためのメソッドが update-instance-for-different-class と update-instance-for-redefined-class です。ともに関数名が35文字で、Common Lispの仕様上最長の関数名です。ちなみに、変数名を含めれば least-positive-normalized-double-float などの38文字が最長であるようです。 ;;;; update-instance-for-different-class(defclass class-a () ((a :accessor a-of :

動的束縛なlabels

2010-10-15T23:58:00.001+09:00

fletやlabelsはlexical bindingなので、定義した関数の名前は字面上現れる位置でないと利用できません。 >(defun hoge () (print 3))>(defun fuga () (hoge))>(fuga)3>(labels ((hoge () (print 10))) (fuga))3変数ならばdeclareでspecial変数だと宣言すれば良いけれど、関数の場合どうすれば良いか分からなかったのでマクロを書いてみました。 (defun generic-function-p (x) #+SBCL (sb-pcl::generic-function-p x) #-SBCL nil)(defmacro dynamic-labels ((&rest definitions) &body body) (let ((olds (

(Lisp (を書いて学ぶ) Ruby)

2010-10-15T20:36:00.001+09:00

Peter Norvigせんせーの記事の邦訳、((Pythonで) 書く (Lisp) インタプリタ) を写経してみました。Rubyで。 class String def tokenize() return self.gsub(/($|$)/){|s| " " + s + " " }.split(' '); endenddef parse(tokens) if(tokens.length == 0) raise "error" end tk = tokens.shift if(tk == "(") acc = [] while ( (tk = tokens.shift) != ")") if(tk == "(") acc.unshift(parse(tokens.unshift(tk))) else

Common Lispでexpect的ななにか

2010-10-04T22:20:00.001+09:00

最近存在を知りましたが、鯖やってる人にはお馴染み?らしいexpectというプログラムが存在するそうです。TCLで書かれたプログラムで、Passwordという文字列が表示されたらxxxを入力する、というような形で、対話的なコマンドを自動実行するために利用するものとのことです。PerlやPython、Rubyなどにもそれっぽいライブラリが存在し、なんとGuileにまでexpect.scmというファイルにモジュールが存在します。Common Lispにもあるよね・・・と思っていたら見つからないので、Guileのプログラムを一部パクって簡単なものを書いてみました。 (asdf:oos 'asdf:load-op :cl-ppcre)(defpackage expect (:use :cl :cl-ppcre) (:export expect expect-strings))(

Common Lispで (object method args...)の形式でメソッド呼び出し

2010-09-24T22:59:00.001+09:00

Common Lispのオブジェクトシステムはそのまんまのネーミングで、 Common Lisp Object System (CLOS:シーロス、クロス)と言います。CLOSでは、メソッド呼び出しが普通の関数呼び出しと同じように (method object args...) という形式になっていますが、これは他のオブジェクト指向言語から見たらへんてこな順序で、わかりにくいかもしれません。 Javaを触ってきた人からすると、(object method args...)と書きたいでしょう。たぶん。当然、用意されている書き方が気にくわないならば自分で書き換えてしまうのがCommon Lisp なので、解決方法はいくつかあるかと思います。仕様にはなっていませんが、CLOSに加えて Meta Object Protocol(MOP)という、デファクトスタンダード的なメタプログラミングの方法が

EmacsからGhostScriptを利用する

2010-09-23T21:06:00.001+09:00

make-comintを使ってみたかったので。 (defun postscript-process () (get-buffer-process (get-buffer "*postscript*")))(defun run-postscript () (interactive) (require 'comint) (switch-to-buffer (make-comint "postscript" "gs")))(push '("postscript" . utf-8) process-coding-system-alist)(defun to-postfix (s) (if (atom s) `(,s) `(,@(cdr s) ,(car s))))(defun send-postscript-no-newline (s &optional ps) (

ELispでobjdumpを呼んでバイト列を逆アセンブルする

2010-09-17T21:53:00.001+09:00

Linuxなどでプログラムを逆アセンブルする際には、objdumpを使うと便利です、たぶん。Twitterなどでバイナリアンな方々が16進数で会話をしているのについていけなくて困るときのために、 Emacsからobjdumpを呼んでバイト列を逆アセンブルするようなELispを書いてみました。バイト列といってもリストしか対応していませんが。 (defvar *arch-type* "i386")(defun make-disasm-command (target file) (format "objdump -b binary -m %s -D %s" target file))(defun make-perl-command (lst tmp-file) (concat "perl -e 'print \"" (apply 'concat (mapcar

超リードマクロに対抗してchar-codeの限界までリードマクロ

2010-09-17T00:08:00.001+09:00

CLerはもっと他人のネタに反応すべきらしいので対抗してみた。元ネタは @nitro_idiot さんの:　SBCLのリーダを上書きして"超リードマクロ"を実装組み込みのリーダを書き換えるのは敷居が高いので、ごく普通の方法にしました。正規表現ライブラリのcl-ppcreを利用していますが、それ以外はごく標準的なCommon Lispです。私はSBCLで動かしましたが、CL処理系なら大抵は動くのではないでしょうか。 (asdf:oos 'asdf:load-op :cl-ppcre)(defun range-symbol-name-p (str) (and (= (length (cl-ppcre:all-matches "\\.\\." str)) 2) (= (length (cl-ppcre:split "\\.\\." str)) 2)))(defun

list処理マクロ

2010-09-13T23:12:00.001+09:00

map系関数のような処理をするマクロを作ってみました。いつもどおり毒にも薬にもならない感じです。 (defvar *mapping-action-keywords* `(:collect :collect-if :remove :remove-if :reverse :append :funcall :action))(defvar *mapping-action-optional-keywords* `(:if :key))(defvar *mapping-action-optional-sub-keywords* `(:else))(defun action-keyword-p (sym) (member sym *mapping-action-keywords*))(defun action-optional-keyword-p (sym)

古い値を利用する更新処理(Common Lisp)

2010-09-08T23:25:00.001+09:00

Clojureのswap!はアトムの古い値を引数にして関数を呼び出し、その結果を新しい値とします。たしか。似たような値の更新方法をCommon Lispで計4パターン書いてみました。 (defmacro update/fn-1! (generaized-variable update-fn &rest args) (let ((old-val (gensym))) `(let ((,old-val ,generaized-variable)) (setf ,generaized-variable (funcall ,update-fn ,old-val ,@args)) ,old-val)))(defmacro update/fn-2! (generaized-variable update-fn &rest args) `(setf ,

Common Lisp でC風switch その2

2010-09-08T22:10:00.001+09:00

C風switchをgoを使わない形に書き直して見ました。caseの実行する式の部分に、後続で処理するすべての式をぶち込んでいます。今回は明示的にブロックを抜けない限り、最後に評価された値が返ります。 (defmacro switch-2 (val &body clauses) (let ((break (gensym))) `(block ,break (macrolet ((break-switch () `(return-from ,',break nil))) (case ,val ,@(maplist #'(lambda (rest) `(,(caar rest) ,@(loop :for i in rest :append (cdr i)))) clauses))))));; example(

Common Lisp で C 風のswitch

2010-09-08T00:06:00.001+09:00

Twitterを眺めていたらネタに出会ったので書いてみました。 (defmacro switch (val &body clauses) (let ((syms (loop :repeat (length clauses) :collect (gensym)))) `(tagbody (case ,val ,@(mapcar #'(lambda (clause sym) `(,(car clause) (go ,sym))) clauses syms)) ,@(mapcan #'(lambda (clause sym) `(,sym ,@(cdr clause))) clauses syms) break)))switchのclauses部にはCommon Lispのcaseと同様の式を書

Common Lispでforマクロその2

2010-09-07T23:00:00.001+09:00

昨日の続きのforマクロ。昨日のままだと、外側のletのbinding内でそんなシンボル無いです、と怒られて動かないことがあると思われるので修正．せっかくなのでgithubを活用する事にしました。http://github.com/kurohuku/for-loop現状の動作はこんな感じです。 (for ((a :in (list 1 2)) (b :range 4 6) (c :across #(10 11))) (list a b c));; => ((1 4 10) (1 4 11) (1 5 10) (1 5 11);; (2 4 10) (2 4 11) (2 5 10) (2 5 11))

Common Lispでオレオレforマクロを定義する

2010-09-06T23:57:00.001+09:00

Common Lispにはやたらと高機能なかわりに構文がおかしなloopマクロが存在します。loopマクロは高機能なのですが、多重ループを処理しようとすると collect や nconc などのキーワードを使ってネストさせる必要があります(多分)。Clojureのforは多重ループ(のようなもの)を簡潔に記述できるので、似たような構文をマクロで定義してみようと思います。 (defun enumrate (from to) (loop :for i from from to to :collect i))(defun pattern-binding (form pattern) (if (/= (length form) (length pattern)) nil (let ((binding (mapcar #'(lambda (f p)

Common Lisp でC++風出力

2010-09-01T23:29:00.001+09:00

githubを試しに使ってみるテスト。C++のストリーム出力っぽい雰囲気になるように gray streamsを使ってみました。http://github.com/kurohuku/manip-stream動作させるには trivial-gray-streams が必要です。 >(<< (make-instance 'manip-output-stream :stream *standard-output*) +binary+ (set-width 8) (set-fill #\0) +left+ 3)00000011#stream-write-stringの引数がstream-manipulatorクラスのオブジェクトの場合、manip-streamを引数としてactionスロットの関数

ClojureでJWindowを作る

2010-08-28T22:58:00.001+09:00

ふせんちっくなウィンドウを作ってみます。無駄にクリック時の動作をかえられるようにしたりしてみました。 ;;; MouseAdapter(ns example.MouseAdapter (:gen-class :extends java.awt.event.MouseAdapter :init init :state actionTable :constructors {[clojure.lang.Atom][] [][]} :main false;; :expose-methods {mouseClicked mouseClicked} :methods [ [clickAction [java.awt.event.MouseEvent] void] [doubleClickAction [java.awt.event.MouseEvent] void] [

Clojureのメソッドチェイン風マクロをCommon Lispのマクロで書いてみる

2010-08-28T19:41:00.001+09:00

すでにいろいろなところで書かれているネタな気はしますが、書いてみました。->はexpを次の式の第一引数の位置に挿入し、 ->>はexpを次の式の最後の引数の位置に挿入します。 (defmacro -> (exp &rest rest) (if rest (let ((fst (car rest)) (rest (cdr rest))) (typecase fst (symbol `(-> (,fst ,exp) ,@rest)) (atom `(-> (,fst ,exp) ,@rest)) (list `(-> (,(car fst) ,exp ,@(cdr fst)) ,@rest)))) exp))(defmacro ->> (exp &rest rest) (if rest (let ((fst (car rest))

Clojureでバイナリファイルを読み込む

2010-08-28T18:05:00.001+09:00

実践Common Lisp(Practical Common Lisp)のバイナリファイルのパースっぽいものを書こうとしてみました。 (defmulti read-binary-class (fn [class in] class))(defmulti read-binary-raw (fn [class in] class))(def *class-list* (atom []))(def *direct-super-classes-map* (atom {}))(defn defined-class-p [sym] (some #(= sym %1) @*class-list*));; Symbol like means forward declaration(defn forward-declaration-symbol-p [sym] (let [tmp (str

符号的プログラミングのすすめ on Common Lisp

2010-08-26T23:41:00.001+09:00

初めに Lispの括弧ネタ(注1)に触発されて思い浮かんだネタを書いていきます。注1: @nitro_idiotさん http://e-arrows.sakura.ne.jp/2010/08/is-lisp-really-has-too-many-parenthesis.html 符号的プログラミングについて Perlは非常にリッチな言語です。世界はPerlでかかれているらしいです。Perl最強ですね。このPerl言語のエキスパートたちが、Perlの持つリッチな機能をフル活用するプログラミングスタイルを符号的プログラミングと呼びます。Perlには及ばないかもしれませんが、私の大好きなCommon Lispも非常にリッチな言語なため、符号的プログラミングを行うことができます。これから、一般的なスタイルのCommon Lispプログラムをいかにして符号的なスタイルに変換していくかを見

文体

2010-08-26T22:33:00.000+09:00

文体をですます風味に変更してみます．こっちのほうが適当っぽさがでるので．

Emacsで指定した正規表現が現れる場所までkillする

2010-08-19T22:24:00.001+09:00

C-hやC-dを連打するのに疲れたので、タイトルどおりのEmacs Lisp関数を作ってみた。 M-dなどをうまく駆使すれば連打の必要はなかったのかもしれないけれど。実は組み込みで求めている機能がある、なんてことはないと信じたい。 (defun kill-to-regexp-forward (regexp) (interactive "sRegexp:") (let ((start-point (point))) (when (re-search-forward regexp nil t) (re-search-backward regexp nil t) (kill-region start-point (point)))))(defun kill-to-regexp-backward (regexp) (interactive "sRegexp:")

旅行履歴(2010/08/11 - 2010/08/15)

2010-08-17T22:58:00.001+09:00

青春18切符で京都と長野に行ってきました。とりあえず記録を残しておこう。 1日目京都夕食　錦魚亭飲み　酒Bar よらむ飲んだ酒麒麟時醸酒十酒(とき) 1988 開春純米蝶辛口舞美人純米常温生熟おりがらみ能登 3年酒宿泊：FIRST CABIN 2日目京都八坂神社平安神宮お神酒(橘酒)購入吉田山大文字の形は見えず伏見稲荷大社飲みたかはし (日本酒酒バー) 飲んだ酒竹鶴(日本酒) 純米原酒出置桜強力純米竹鶴純米吟醸古酒勝駒宿泊:FIRST CABIN 3日目京都 -> 長野(岡谷) 岡谷太鼓祭り宿泊:岡谷セントラルホテル 4日目長野諏訪大社春宮、秋宮、前宮、本宮北斗神社。本宮の近くの急な階段を昇ったところ。日本酒購入@二葉屋酒店: 黒松仙醸寒造り純米新春仕込みだるま市しぼり(低温熟成)

本日の酒(2010/08/04)

2010-08-04T21:52:00.001+09:00

本日の酒は、はるばるドイツからやってきたビール、ヴァルシュタイナー。輸入してるのはアイコン・ユーロパブ株式会社というとこらしい。

McCLIMで升目を描く

2010-08-03T23:55:00.001+09:00

formatting-tableを利用すれば良さそうだけど、無理やりな感じが現れてる。LispworksのCLIMのページを参考にした。 (asdf:oos 'asdf:load-op :mcclim);;(asdf:oos 'asdf:load-op :mcclim-truetype)(in-package :clim-user)(defun output-table (&key (stream *standard-output*) inter-row-spacing inter-column-spacing) (clim:formatting-table (stream :x-spacing inter-row-spacing :y-spacing inter-column-spacing) (dotimes (i 3)

ClojureでBrainf*ck

2010-07-31T12:51:00.001+09:00

プログラミング言語の勉強する時は、 Hello World! FizzBuzz Brainfu*k というのを最初に書いてみることにしている。ClojureでもBrainfu*kを書いてみた。 (defstruct env :inst :pc :program :last :ptr :memory)(defmulti execute :inst)(defmethod execute \> [{pc :pc ptr :ptr :as env}] ;increment pointer (merge env {:pc (inc pc), :ptr (inc ptr)}))(defmethod execute \< [{pc :pc ptr :ptr :as env}] ;decrement pointer (merge env {:pc (inc pc),

clojureでコンパイル

2010-07-29T00:37:00.001+09:00

clojureのcompile関数をうまく動かすまでに結構手間取ったのでメモ 1. ソースの置かれているディレクトリ(パッケージのルートになるとこ)にクラスパスが通っている2. カレントディレクトリからみた出力先(*compile-path*)ディレクトリにクラスパスが通っている3. 出力先ディレクトリが存在する <- ここ重要4. SLIME経由で使ってるなら、ただしくクラスパスが設定されるようになっているか注意する

ジンジャーエールを作る-その1

2010-07-25T23:55:00.001+09:00

今日の昼食を食べた店で、自家製ジンジャーエールがあったので頼んでみたらおいしかった。自分でも作ってみたい、そしてそのジンジャーエールでモスコミュールを作りたい、と思った。レシピを調べて見たところ、割と皆さん自分の好きなように作っているっぽかったので、簡単そうなハチミツに付けるだけのものを試してみた。材料は新ショウガ 150g (スライス) はちみつショウガが浸るくらいシナモン粉の奴を大さじ1杯これだけ。こいつを炭酸水で割るとジンジャーエールが出来上がるらしい。シナモンが多すぎるような気がするが、入れてしまったものはしかたない。これらを瓶の中にぶち込んで冷蔵庫で放置する。果たして、まともに飲めるものができるのだろうか。

Emacs LispでファイルIOその2

2010-07-18T15:21:00.001+09:00

open,closeを書いたのでついでに with-open-fileも書いてみた。 (defmacro with-open-file (clause &rest body) (destructuring-bind (direction filename stream) (let ((tmp (reverse clause))) (if (= (length tmp) 2) (cons :input tmp) tmp)) `(let ((,stream (open ,filename ,direction))) (prog1 (progn ,@body) (close ,stream)))))

McCLIMでグラフを書く

2010-07-18T12:29:00.001+09:00

McCLIMでグラフを描画する。ノードが循環すると繰り返し処理をしようとして落ちるようだ。 (require :asdf)(asdf:oos 'asdf:load-op :mcclim)(in-package :clim-user)(define-application-frame graph-frame () () (:menu-bar t) (:panes (app :application :min-width 200 :min-height 200 :scroll-bars nil :display-time :command-loop :display-function 'draw)) (:layouts (default (horizontally () app))))(define-graph-frame-command (com-quit :menu t)

Emacs LispでファイルIO

2010-07-18T10:52:00.001+09:00

Emacs Lispで、ファイルから入力する処理をCommonLispのノリで書こうとしたら・・・ >(require 'cl)>(with-open-file (in "hoge.txt" :direction :input) (with-open-file (out "fuga.txt" :direction :output) (princ (read in) out)))Debugger entered--Lisp error: (void-function with-open-file)あれ? >(open "hoge.txt")Debugger entered--Lisp error: (void-function open)・・・あれ?ELispってファイルオープンしてストリームを作ることができないのか・・・。調べて見たところ、streamとして使えるのは以下

ネストしたquasiquoteの悪夢

2010-05-19T00:29:00.001+09:00

S式 -> Cのトランスレータを書こうと前々から思っていじってはいるが、結局うまい方法を思いつけずに挫折ということを繰り返している。今の考えはマクロ -> make-instance -> emitという流れにしようというもの。とりあえずマクロとオブジェクトの定義部分を書こうとして、自分でも理解しきれないネストしたquasiquoteを書いたのでネタとして載せておく。myパッケージは自分の使うOn LispやANSI Common Lispその他から拝借した関数などをまとめたパッケージ。 (cl:defpackage :trans (:import-from :common-lisp &optional &rest &body &key))(in-package :trans)(cl:defun remove-lambda-keywords (lst) (cl:mapcar #'

リーダマクロでlambdaを短縮する

2010-05-18T21:04:00.001+09:00

Clojureでは無名関数を作るために用いるのは、lambdaでは無くfnという特殊式なため Common Lispより3文字短い。3文字程度なら良いのだけど、Clojureにはさらに無名関数のためのリーダマクロが用意されている。 ;;この式が#(list %1 %2);;こうなる(イメージ)(fn [%1 %2] (list %1 %2))Clojureに心引かれる箇所は色々あるけれど、このリーダマクロなら多少は自分で書いてみることができるのでは無いかと思ったので、試しに書いてみた。展開されるようにした。また、引数は%nではなく$nで表現した。 (defun dollar-symbol-p (sym) (and (symbolp sym) (char= #\$ (char (symbol-name sym) 0))))(defun dollar-symbol-index (sym)

Clojure on AndroidでAlertDialog

2010-04-19T23:28:00.002+09:00

Xperiaを買ったのでClojure on Androidで遊ぼうとしている。JavaもClojureもAndroidも素人なのでいろんなとこで時間をくってるが、とりあえずボタンクリックでAlertDialogを表示するところまでいった。 (ns org.example.Test.AlertDialog(:gen-class :extends android.app.Activity :implements (android.view.View$OnClickListener) :exposes-methods {onCreate superOnCreate}))(import '(android.app AlertDialog) '(android.util Log))(defn -onCreate [this #^android.os.Bundle bundle] (.

自宅にある日本酒リスト(2010/03/30)

2010-03-30T20:22:00.001+09:00

現在自宅にある日本酒一覧九頭龍大吟醸燗酒 (黒龍酒造株式会社/福井) 梵特醸(磨き5割8分) (加藤吉平商店/福井) いづみ橋とんぼラベル1号 (泉橋酒造株式会社/神奈川) 田ゆう純米 (泉橋酒造株式会社/神奈川) 溪純米吟醸本生 (王祿酒造株式会社/島根) 溪純米吟醸にごり (王祿酒造株式会社/島根) 雪吟吟醸純米生貯蔵酒 (桃川株式会社/青森) 九頭龍、いづみ橋、田ゆうは川崎の「地酒やたけくま酒店」にて購入。溪は父親がどこからか購入してきた。雪吟は大学の卒業式(学位授与式)後に後輩にもらった。梵は大学の友人にもらった。田ゆうは神奈川県海老名市にある泉橋酒造で作られたものだが、使用している米は川崎で取れたものとのこと。

ClojureでTwitter

2010-03-28T21:47:00.001+09:00

Clojureの練習がてらTwitterクライアントの作成を目指す。取り合えず、タイムラインを取得してJTableで表示してみた。 (require 'clojure.contrib.http.agent)(import java.net.URLEncoder sun.misc.BASE64Encoder)(import '(javax.swing.table AbstractTableModel))(def status-list (atom []))(defn seq->map [seq] (reduce (fn [map [key val]] (assoc map key val)) {} seq))(defn basic-authentication [id pass] (str "Basic " (.encode (BASE64Encoder

Clojure始めました2

2010-03-27T11:42:00.001+09:00

Clojureをさわり始めたので、メモ。 ;;空白文字が入る箇所に,(カンマ)を入れても良い。;;rangeは[end] [start end] [start end step]の3パターンで利用できる.;;start(デフォルトは0)からstep(デフォルトは0)ずつend未満の値を集める(print (range 0 10))|(0 1 2 3 4 5 6 7 8 9)(print (range 0 10 2))|(2 4 6 8);;mapはシーケンスの各要素を引数として関数を呼び出した結果を集めて返す。;;無名関数はfnで作成できるが、省略記法として#(hoge %)のように;;作成することもできる。この時、%は第1引数を、%nは第n引数を表す。(map #(* % %) (range 10));;同様の処理はforでは以下のように書ける。;;forはループではなくリスト内包表記

Clojure始めました

2010-03-22T15:11:00.001+09:00

土曜日(3/20)にShibuya.lisp#5に参加した。残念ながら予定があったので懇親会は不参加。毎度のことながらTT、LTの発表は濃かったりおもしろかったりで素晴らしかったですが、どうも今回はClojure祭り状態のようで、Lisperを目指しているくせに1度も触ったことのない私は精神的ダメージを負うことになったのでした。会場にオーム社の方々(らしい)が来ており、商魂たくましく(?)会場で書籍の販売を行っている中に狙いすましたかのように「プログラミングClojure」が置いてあったのでついうっかり購入してしまった。ということで、書籍を読みつつLispの最先端たるClojureを書いてみようと思う。Emacs使いたるもの、設定をせずにプログラミングを始めるというのはおそらくありえないので、 clojure-modeとswank-clojureの導入を行おうとした。

regexp->list->nfa

2010-03-17T22:12:00.001+09:00

正規表現を文字列で考えていて頭がいたくなってきたので、一旦リストにしてからNFAにするようにしてみる。 ;;regexp->list(defun regexp->list (reg) (let* ((top nil) (stack (list top))) (loop :for ch across reg :do (case ch ((#$) (push top stack) (setf top nil)) ((#$) (let ((prev (pop stack))) (push top prev) (setf top prev))) ((#\|) (setf top (list top :or))) ((#\*) (let ((tmp (list (pop top) :loop))) (

NFAの状態遷移図をcl-dotで描画する

2010-03-17T19:37:00.001+09:00

正規表現からNFAへ変換処理をデバッグするときに、NFAの状態遷移図どのようになったかを知りたい。手書きするのも面倒くさくなってきたので、cl-dotで描画することにした。NFAは前回の記事の形式であるとする。cl-dotのノードや矢印に属性値を指定したい場合、元々のオブジェクトをattributedというクラスのオブジェクトでラップすれば良いようだ。 ;;;nfaの遷移図を描画(defparameter *table* nil)(defparameter *f* nil)(defun mklist (lst) (if (listp lst) lst (list lst)))(defmethod cl-dot:graph-object-node ((graph (eql 'nfa)) (key symbol)) (make-instance 'cl-dot:node :

正規表現からNFAを作る

2010-03-17T18:58:00.001+09:00

ドラゴンブックの字句解析の項目を参考に、正規表現を表す文字列からNFAを作る。 (defvar *label-count* 0);;遷移図で特殊な入力記号として用いるもの;; :epsilon イプシロン遷移;; :all 任意の1文字(defun mklist (obj) (if (listp obj) obj (list obj)))(defmacro do-hash ((key val) table &body body) `(maphash #'(lambda (,key ,val) ,@body) ,table))(defun make-new-state () (incf *label-count*) (intern (format nil "STATE-~A" *label-count*) :keyword))(defun get-states (

Modula3でFizzBuzz

2010-03-16T21:49:00.001+09:00

Case文がパターンマッチっぽい. MODULE Main;IMPORT IO;BEGIN FOR i := 1 TO 100 DO CASE i MOD 15 OF | 0 => IO.Put("FizzBuzz"); | 3,6,9,12 => IO.Put("Fizz"); | 5,10 => IO.Put("Buzz"); ELSE IO.PutInt(i); END; IO.Put("\n"); END;END Main.

PCIデバイスが存在するか確認する

2010-03-16T13:37:00.001+09:00

PCIデバイスがあるかどうか確認する。一応それっぽいデバイスが表示はされる。io_inXとio_outX,Printfが既に定義されているものとする。 io_inとio_outはそれぞれのビット数のin,out命令。 enum PCI_CONFIGURATION_REGISTER{ VenderID = 0x00, //bit0-15 DeviceID = 0x00, //bit16-32 CommandRegister = 0x04, //bit0-15 StatusRegister = 0x04, //bit16-32 RevisionRegister = 0x08, //bit0-7 ClassCode = 0x08, //bit8-31 CacheLineSize = 0x0C, //bit0-7 MasterLatencyTimer = 0x0C, //bit8-15

Modula-3のSLisp

2010-03-08T01:46:00.001+09:00

Critical Mass Modula-3のライブラリにSLispというものがある。名前を見るにLispっぽいので使おうと試みる。ちなみに、m3makefileでimportに書く名前は、 modula3のディレクトリのpkgディレクトリのサブディレクトリの名前だと思う。 MODULE Main;IMPORT SLisp,Stdio,Rd,Wr,IO;VAR slisp :SLisp.T;VAR rd :SLisp.Reader;VAR wr :SLisp.Writer;BEGIN rd := Stdio.stdin; wr := Stdio.stdout; slisp := NEW(SLisp.T); slisp := slisp.new(); LOOP SLisp.Write(wr ,slisp.eval(SLisp.Read(

ラムダリストのwholeパラメータ

2010-03-07T01:37:00.001+09:00

CommonLispのマクロ定義に、&wholeでパラメータを指定できる。どうやら式そのものが束縛されるようだ。 (defmacro hoge (&whole call &optional (from 0) (to 10)) `(progn (print ',call) (format t "from:~A -> to:~A" ,from ,to)))>(hoge 2 3)(HOGE 2 3) from:2 -> to:3>(macroexpand-1 '(hoge 2 3))(PROGN (PRINT '(HOGE 2 3)) (FORMAT T "from:~A -> to:~A" 2 3))>(hoge)(HOGE) from:0 -> to:10>(macroexpand-1 '(hoge))(PROGN (PRINT '(HOGE)) (FORMAT T "