３の倍数のときにあほになって５の倍数のときに犬になります。 ３がつくときにあほになるというバリエーションもあるな。 (defun ahowow ( cur end_1 &optional ln ) (if (>= cur end_1) (nreverse ln) (let ((mf3 (= (mod cur 3) 0)) (mf5 (= (mod cur 5) 0…

lysp なるものを発見した。ものすごく小さい。dlsym を巧妙に使っている。 (define exit (dlsym "exit")) (exit 0) libc にあるものならある程度 mapping できるぞ。 (define printf (dlsym "printf")) printf もこの通り。これでこのサイズ size -x lysp te…

(defmacro make-wire (var) `(if (fboundp (quote ,var)) (princ "error!!!") (setf (symbol-function (quote ,var)) (alet ((signal-value) (action-procedures)) (dlambda (:get-signal () signal-value) (:set-signal (new-value) (if (not (eq signal-va…