大津の閾値判別法 (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>…

PixivってなんでAPI公開しないんですかね...う〜ん とおもいながらAPIをちょっと叩いてみました。 (ns pixivy.core (:gen-class) (:require [clj-http.client :as client]) (:require [net.cgrand.enlive-html :as en])) (def pixiv-api-base "http://touch.…

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