Lisp
三目並べのMinMaxAIを書くという課題が出まして、 言語は不問ということだったのでとりあえずLispで書きました。 探索空間のサイズ 三目並べは最初がAIの手番だとすると、最大9! = 362880のパターンが有るのでしょうか? 最初に9マスの内にどこを打つのか?…
Redditを眺めていたらHaskellでRayTracingをしてみたよ的な記事が流れてきました。 So I (kind of) made a Haskell clone of the business card Ray Tracer : haskellその説明を眺めてみると何やら名刺サイズのレイトレーシングというものが話題になっていた…
;; List Utilities (defun head (lst) (car lst)) (defun tail (list) (cdr list)) ;; Lambda Expression (defun lam-expr (var body) `(lambda ,var ,body)) (defun is-lambda (list) (and (listp list) (eql 'lambda (car list)))) (defun bv (lam) (cadr …
文字列の検索アルゴリズムについてしらべていたら、良いチュートリアルを発見したので やってみました。 簡単なWebサーチエンジンの作り方 (defun all-suffix-node (str) (loop for s from 1 to (length str) collect (cons s (subseq str (1- s))))) (defun…
タイトルの通り、あるクラスが特定のクラス(複数可)を継承した時になにか処理を実行させたいのです(たとえば、メソッドを定義したり、ログに出力したり..) で、CLOSならなんとかなるんじゃないかと、ちょっと作ってみています。 (eval-when (:load-toplevel …
ClojureのEnliveというテンプレートエンジンはClojureのWeb開発界では有名だとおもいます。 そのEnliveのAPIが綺麗でCommon Lispでも同じようなテンプレートエンジンがあったらなぁ とおもってました。 そこで調べてみるとcss-selectorsというcssセレクタを…
大津の閾値判別法 (ql:quickload :iterate) (ql:quickload :lispbuilder-sdl) (ql:quickload :lispbuilder-sdl-gfx) (use-package :iterate) (defclass <data> () ((max :initform (error "max must specified") :reader data-max :initarg :max) (min :initform (</data>…
cl-mazeという名前でgithubに置くことにした、前の迷路を構築するプロジェクトをいくつかアップデートしました。 部屋をroomというstructで管理する事にした Dijkstra法をもちいて解答を計算するようにした 以下は、そのメソッドと表示される結果 (defmethod…
ローマ字入力の文字をひらがなの文字に変換してみました。 まだ異常入力への対応やら小文字への変換やら濁音拗音促音などの対応とかはしてませんけど 基礎的な変換はできてます。 (defparameter *boin-table* '(("a" . "あ") ("i" . "い") ("u" . "う") ("e"…
LispbuilderSDLを利用しての可視化をしました、 あと、アルゴリズムの実装にミスがあったのでそちらも修正してちゃんとした迷路ができるようになりました。 (ql:quickload :lispbuilder-sdl) (ql:quickload :lispbuilder-sdl-gfx) ;;迷路のデータ構造 (defcl…
迷路を生成したいとおもい、Lispで簡単なクラスタリング法で生成してみました。 ;;迷路のデータ構造 (defclass <maze> () ((width :initarg :w :accessor w) (height :initarg :h :accessor h) (rooms :initarg :rooms :accessor rooms))) ;;部屋の情報を管理する</maze>…
停止性を保証する必要はないという事で最終状態はacceptになるかどうかだけで良いという 事でerror状態を削減したり、メモリーというのはそもそも無いという事でメモリーを削除したり make-machine時に利用可能な記号列を渡す事で先に定義がただしいかチェッ…
昨日帰省から帰ってきていましたが飛行機の中で特にする事がなく、コンパイラの本を読んですこしつかれたのでコードを書く事にしました。そこでチューリングマシンでもつくってみたらおもしろいだろうなぁとおもい 書いてみたいのが以下です。 ;; ;; Infinit…
(defmacro report-to-file (filename repeat &body form) (let ((report-out (gensym)) (idx (gensym))) `(with-open-file (,report-out ,filename :direction :output) (let ((*trace-output* ,report-out)) (loop for ,idx from 1 upto ,repeat do (format…
今日は休み時間に暇だったので、立体視の画像を作成するアルゴリズムを実装し 指定した文字列が見える、指定したサイズの画像を生成する関数を作成しました。 (ql:quickload :vecto) (ql:quickload :flexi-streams) (ql:quickload :opticl) (defun create-ra…
暇潰しの時にしたいミニゲームがあっても、手元にある事は稀です。 そんなときは、ちょっとしたミニゲームなら自作して遊んでしまうのが一番です。 自分がプレイするのでインターフェイスに凝る必要もないので、簡単です。 糸通し (ql:quickload :lispbuilde…
GCでのメモリの様子などを可視化するとおもしろいかもなぁとおもい とりあえず一時間ほどで書いてみました。Mark&Sweepをしています。(かなり初歩的な部分しかしていませんが) (defclass <lobject> () ((mark :initform nil :initarg :mark :accessor mark) (next :</lobject>…
(defun kv (key val) (cons key val)) (defun make-table (&rest kv-pairs) (make-array (length kv-pairs) :initial-contents kv-pairs)) (defun aridx1 (array idx) (aref array (1- idx))) (defun bin-search (key table) (let ((lo 1) (hi (length table…
(defun kv (key val) (cons key val)) (defun tree (val left right) (list val left right)) (defun tree->val (tree) (car tree)) (defun tree->left (tree) (cadr tree)) (defun tree->right (tree) (caddr tree)) (defun leafp (tree) (and (null (tree-…
(ql:quickload :lispbuilder-sdl) (ql:quickload :lispbuilder-sdl-gfx) (defclass <world> () ((cells :initform () :initarg :cells :accessor cells) (rules :initform () :initarg :rules :accessor rules))) (defun make-world (len) (make-instance '<world> :cells </world></world>…
角度と値を元にした円形のグラフを書く必要がある場面があったので、 とりあえずの出力結果を確認するためにlispbuilder-sdlをつかって書いてみました。 (ql:quickload :lispbuilder-sdl) (ql:quickload :lispbuilder-sdl-gfx) (defun read-plot-data (file-…
SBCLでdisassembleを用いてアセンブラ(?)を出力した時に番地などの詳細情報がでてきて diffをとって比較するのが困難なので、ちょっと必要な部分だけを抽出してくれるawkスクリプトを書いてみました。 { if(NF >= 5 && $3 ~ /.*:/) { print $3,$5,$6,$7 }…
素朴な疑問なのですが、CommonLispでdefmethodするにあたって、meta-classレベルでdispatchできるのでしょうか? http://coding.derkeiler.com/Archive/Lisp/comp.lang.lisp/2007-06/msg01042.html ここを見るかぎり、できないとの回答でした。 しかし、Post…
できると、おもっていた.できなかった。 (defpartial main-layout (&rest contents) (:html (:head (:link :href "/static/css/bootstrap.css" :rel "stylesheet" :type "text/css") (:script :src "/static/js/bootstrap.min.js")) (:body contents))) CL-A…
どうやって部分テンプレートみたいなのつくってそれを連鎖させれば良いんだろうとかいってたけど、普通にできた。勘違いしてた (ql:quickload :cl-markup) (defmacro defpartial (name args &body body) `(defun ,name ,args (markup:markup ,@body))) (defp…
正規表現でマッチしたときだけ、式を実行したいときってありますよね。 ただ、二回チェックするのは冗長なので、cond風に書きたいですね。 そこでマクロです。 (defmacro aif-match (regex str then-expr &optional (else-expr nil)) (if (stringp regex) `(…
ちょっとしたマークやフラグを大量生成するならVectoをつかってみるのも手かもしれません。 (ql:quickload :vecto) (defpackage :vecto-user (:use :cl :vecto)) (in-package :vecto-user) (defun radiant-lambda (num file) (with-canvas (:width 90 :heigh…
Quicklispをコマンドラインから利用できれば便利です(?) まぁいずれにせよ、なんとなくライブラリ管理と処理系は別にしておきたいのです 本当は処理系依存をはずしたいのですが、今はこれだけ #!/usr/local/bin/sbcl --script ;;; The following lines ad…
何かしらコードを書いていないと元々無い腕がなまるので、「関数プログラミングの楽しみ」を読みながらねじれヒープをHaskellからLispに移植してみました。 ;;Define basic types (defclass <tree> () ()) (defclass <null> (<tree>) ()) (defclass <fork> (<tree>) ((item :initarg :item </tree></fork></tree></null></tree>…
ちょっと情報を抽出したい事があったので、片手間ですが、つくってみました。 (ql:quickload :drakma) (ql:quickload :cl-json) (setq drakma:*text-content-types* (cons '("application" . "json") drakma:*text-content-types*)) (setq drakma:*header-st…