スピログラフという正式名称があるのを知ったのは高校の時だが 綺麗な文様が書ける定規という存在はごくごく子供の頃に知っていた。 あの綺麗な文様を自分のプログラムで出力できたらさぞたのしかろう (ql:quickload :lispbuilder-sdl) (ql:quickload :lispb…

TwitterでBezier曲線のつぶやきを見たので (defstruct point x y) (defun point (x y) (make-point :x x :y y)) (defmethod point-diff ((p1 point) (p2 point)) (sqrt (+ (expt (- (point-x p1) (point-x p2)) 2) (expt (- (point-y p1) (point-y p2)) 2)))…

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>…

Syracuseアルゴリズム(3x+1問題とも）の可視化というのは色々な方法でおこなわれていてNumoebaなどがそうでしょう。（Numoebaの可視化したもののリンクがどこかにあったはずなのですが、失念してしまいました。どなたかご存知の方がいらっしゃったらコメント…

Dijkstraも書いたのですが、そちらはコードの量が多いので割愛。 FloydのアルゴリズムをCで実装 /* * map.h */ #ifndef _MAP_H_ #define _MAP_H_ #include <limits.h> #ifndef INF #define INF (INT_MAX / 2) #endif struct map { int size; int **data; }; struct map</limits.h>…

グラフのデータ構造をCで...面倒.. #include <stdio.h> #include <stdlib.h> #include <stdarg.h> #include <stdbool.h> struct edge { int into; int weight; }; struct node { bool visitedp; int distance; struct graph *g; //Index in graph int id; struct edge **edges; }; struct edge* mk_ed</stdbool.h></stdarg.h></stdlib.h></stdio.h>…

グラフ上でダイクストラをするのをJavaで書くとすでに優先度付きキューが提供されているので多少楽はできるのですが、Cで書きたい場面もあるのです。 そこで、Cでも優先度付きキューをつかいたいです。優先度付きキューのインターフェイスを提供するなら 実…

停止性を保証する必要はないという事で最終状態はacceptになるかどうかだけで良いという 事でerror状態を削減したり、メモリーというのはそもそも無いという事でメモリーを削除したり make-machine時に利用可能な記号列を渡す事で先に定義がただしいかチェッ…

昨日帰省から帰ってきていましたが飛行機の中で特にする事がなく、コンパイラの本を読んですこしつかれたのでコードを書く事にしました。そこでチューリングマシンでもつくってみたらおもしろいだろうなぁとおもい 書いてみたいのが以下です。 ;; ;; Infinit…

雪原を見ていると、地面の凹凸の大まかな部分が残されているものの表面は非常に平滑化されています。そんな感じの物が作れればなぁとおもいちょっとコードを書いています。 (ql:quickload :lispbuilder-sdl) (ql:quickload :lispbuilder-sdl-gfx) (defun bro…

(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…

普通のファイルを画像にしたり、その画像からファイルに戻したりしたら面白いだろうなぁ と思っていたので、今BMPにするものを書いてみました。 #include <stdio.h> #include <stdlib.h> #include <math.h> #include "bmp.h" main(int argc, char** argv) { FILE *fp; fpos_t sz; int v,</math.h></stdlib.h></stdio.h>…

おとといあたりに' Last Resort'というワードを聞き僕がまずおもいうかんだのは、 どこかのプレゼンで目にした「method-missing is last resort」というフレーズでした、 そして次に連想されたのは以前メタプログラミングRubyで読んだRubyのmethod-missingを…

ソートのアルゴリズムを可視化するというプログラムを紹介され、自分たちでもつくってみてね といわれたので,さっそくSmalltalkで作成してみました。クラスを大別して、ソートのログをOrderedCollectionで渡すとImageをつくる機能をもつ SortVisualizerと、O…

シェルの作り方の基礎は大昔にやりましたが、でも今コードに落せるかといわれると ちょっと微妙です。そこで、ゆっくり復習しようとおもってます。 #include <stdio.h> #include <stdlib.h> #include <string.h> #include <stdbool.h> #include <dirent.h> #include <unistd.h> char* getPath(); char* searchFile(char *,</unistd.h></dirent.h></stdbool.h></string.h></stdlib.h></stdio.h>…

今日は休み時間に暇だったので、立体視の画像を作成するアルゴリズムを実装し 指定した文字列が見える、指定したサイズの画像を生成する関数を作成しました。 (ql:quickload :vecto) (ql:quickload :flexi-streams) (ql:quickload :opticl) (defun create-ra…

Javaで総称型を利用して一般的なリストにたいする順列生成をLispから直訳で移植してみました。 import java.util.ArrayList; public class Perm { private static <E> ArrayList<ArrayList<E>> listPerm(ArrayList<E> items) { if(items.size() == 0) { ArrayList<ArrayList<E>> resArry = ne</arraylist<e></e></arraylist<e></e>…

暇潰しの時にしたいミニゲームがあっても、手元にある事は稀です。 そんなときは、ちょっとしたミニゲームなら自作して遊んでしまうのが一番です。 自分がプレイするのでインターフェイスに凝る必要もないので、簡単です。 糸通し (ql:quickload :lispbuilde…

授業でとある仮想マシンをVerilogHDLで設計しているのですが、ほとんど設計の基本が決定してきて 機能も構造もまとまってきたので、自分がどれだけマシンを理解しているかの確認のためにそのマシンのエミュレーターをLispで書きなおすという作業をしていまし…

GCでのメモリの様子などを可視化するとおもしろいかもなぁとおもい とりあえず一時間ほどで書いてみました。Mark&Sweepをしています。（かなり初歩的な部分しかしていませんが） (defclass <lobject> () ((mark :initform nil :initarg :mark :accessor mark) (next :</lobject>…

#include <stdio.h> main() { volatile int x = 0, y = 1, z = 2; printf("0. x = %d, y = %d, z = %d\n", x, y, z); { volatile y = 2, z = 3; printf("1. x = %d, y = %d, z = %d\n", x, y, z); { volatile z = 4; printf("2. x = %d, y = %d, z = %d\n", x, y, z);</stdio.h>…

int val = 0; #define LED 13 void setup() { Serial.begin(9600); pinMode(LED, OUTPUT); } void loop() { val = analogRead(0); if (val > 750) { digitalWrite(LED, LOW); } else { digitalWrite(LED, HIGH); } delay(100); } arduinoが届きました。Ardui…

(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>…

XTESTではマウスカーソルを動かす事もできるので マウスカーソルを正多角形の頂点の形にうごかすというのをやってみました。 #include <stdio.h> #include <stdlib.h> #include <signal.h> #include <math.h> #include <X11/Xlib.h> #include <X11/extensions/XTest.h> #define PI 3.141592 void usage(); void finish(int sig); double</x11/extensions/xtest.h></x11/xlib.h></math.h></signal.h></stdlib.h></stdio.h>…

Synergyのソースコードを久々に読みなおして各OSでクリック動作など各動作を疑似再現する 方法を確認しなおしていたのでちょっと練習にとオートクリッカーをつくってみました。 #include <stdio.h> #include <stdlib.h> #include <signal.h> #include <unistd.h> #include <X11/Xlib.h> #include <X11/extensions/XTest.h> void usage(); </x11/extensions/xtest.h></x11/xlib.h></unistd.h></signal.h></stdlib.h></stdio.h>…