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