Let's write β

プログラミング中にできたことか、思ったこととか

2012-10-31から1日間の記事一覧

Arduinoが届いた。

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