雪原を見ていると、地面の凹凸の大まかな部分が残されているものの表面は非常に平滑化されています。そんな感じの物が作れればなぁとおもいちょっとコードを書いています。 (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>…

角度と値を元にした円形のグラフを書く必要がある場面があったので、 とりあえずの出力結果を確認するためにlispbuilder-sdlをつかって書いてみました。 (ql:quickload :lispbuilder-sdl) (ql:quickload :lispbuilder-sdl-gfx) (defun read-plot-data (file-…

GCCでswitchを使ってると、明確に確定値の場合はswitchが自動的に必要最小限の 演算に展開さていることを知った。 まずは子のCのコード #include <stdio.h> main() { switch('a') { case 'a': printf("hoge"); case 'b': printf("fuge"); } } みてのとおりswitch整数</stdio.h>…

SBCLでdisassembleを用いてアセンブラ（？）を出力した時に番地などの詳細情報がでてきて diffをとって比較するのが困難なので、ちょっと必要な部分だけを抽出してくれるawkスクリプトを書いてみました。 { if(NF >= 5 && $3 ~ /.*:/) { print $3,$5,$6,$7 }…

今気がついて、正確には把握していないのですが、液晶ディスプレイを表示している時にその表示内容によって異る周波数のノイズがスピーカラーから本当に微量ですが出力されている事に気がつきました。 この音と表示色の関係を把握したら、この音を増幅してデ…

スタックに積まれる時は後ろの引き数から順番に評価するという事で #include <stdio.h> void showargs(int x, int y) { printf("X: %d, Y: %d\n", x, y); } int main() { int x = 0; showargs((printf("case1 x: %d\n", x), x = 1, x), x); x = 0; showargs((printf("</stdio.h>…

とりあえず雑にやってみました。 #include <opencv/cv.h> #include <opencv/highgui.h> void detectObj(const char *cascade_name, IplImage *img, IplImage *gImg, CvMemStorage *storage, int maxcount) { CvHaarClassifierCascade *cascade = 0; CvSeq *seq; int i; static CvScalar colo</opencv/highgui.h></opencv/cv.h>…

先日Nexus7をGoogle for Entrepreneur Weekで賞をいただきNexus 7をチームに一台いただきました。 そのNexus 7はどうせならということでチームの共有財産にしているのですが、それを触らせてもらっていたらあまりにも楽しかったので、自分で買ってしまいまし…

import Text.ParserCombinators.Parsec import Text.ParserCombinators.Parsec.Char import Control.Monad data LambdaExpr = Var Char | Lambda LambdaExpr LambdaExpr | Apply LambdaExpr LambdaExpr deriving (Show) identifier :: GenParser Char st Lam…

昨日の昼ごろなんとなくパーザを書きたくなり、ちょうど論理式のパーザなんかが短時間で書くには適切なものだろうと思いまして書いてみました。Parsecのハイパワーな機能をつかってしまうことも考えたのですが、どうせならなんとなく自分で構造をくみ上げて…

昨晩帰宅してからaptitude updateしたところ、更新が大量にきていたので、とりあえず更新したところディスプレイのドライバかなにかと相性がわるかったらしくて画面が表示されなくなってしまいました。...追記... ドライバーをfglxからatiにしたところ無事表…

Cairoライブラリを利用して画像を出力できるようにしてみました。 もうすこし抽象化したいですが.. require 'cairo' class World def initialize(size) @map = Array.new(size, 0) @rule = Hash.new end def show @map.each do |cell| if cell == 0 print " …

とりあえずルールとかみながらつくってみました。 次は生成関数から生成できるようにしたいとおもいます。 class World def initialize(size) @map = Array.new(size, 0) @rule = Hash.new end def show @map.each do |cell| if cell == 0 print " " else pr…