2008-11-01から1ヶ月間の記事一覧
勉強の効率がすごく悪いと自覚しているので、何か対策をとろうと思った。どういう方法が良いのか判断できないので、とりあえずウェブで評判が良かった本を読んで参考にしてみることにした。
毎日数杯のコーヒーを欠かさず飲んでいるが、美味しいと思えることはあまりない。何となく惰性で飲んでいる感じだ。飲まないと眠気が取れない気がする。 それでも、一日の中で一番最初に飲むコーヒー、これが一番。後のは全部蛇足だ。仕事しながら飲んでたら…
RemovableStorageMonitor.csは、その1とその2で書いた方法を両方実装し、両者の差を気にせず扱えるようにしたものである。また、メディアの着脱を検知した時にイベントを発生させるように実装してある。RemovableStorageMonitorクラスのユーザーは、リムーバ…
その1ではリムーバブルメディアの着脱を検知する方法を説明した。この方法はUSBメモリなどではうまく機能するが、多数のメディアの読み書きに対応したメディアリーダ(例: google:image:USB メディア リーダー)では問題が起こるかもしれない。例えば、私が使…
以前、PhotoCollectorについてちょっと書いた時に、RemovableStorageMonitor.csに少し触れた。これについて、もうちょっと技術的な話を書いておこうと思う。
google://ピエール・リヴィエール ちょっと吃驚した。
(use srfi-19) (use srfi-27) (define (timed-prime-test n) (define (start-prime-test n start-time) (if (fast-prime? n 10000) (report-prime start-time))) (define (report-prime start-time) (display " *** ") (display (time-difference (current-t…
(use srfi-19) (define (timed-prime-test n) (define (start-prime-test n start-time) (if (prime? n) (report-prime start-time))) (define (report-prime start-time) (display " *** ") (display (time-difference (current-time) start-time))) (defin…
(use srfi-19) (define (timed-prime-test n) (define (start-prime-test n start-time) (if (prime? n) (report-prime start-time))) (define (report-prime start-time) (display " *** ") (display (time-difference (current-time) start-time))) (defin…
(define (smallest-divisor n) (define (find-divisor n test-divisor) (cond ((> (square test-divisor) n) n) ((divides? test-divisor n) test-divisor) (else (find-divisor n (+ test-divisor 1))))) (define (divides? a b) (= (remainder b a) 0)) (d…
自信なし。 ; (define (gcd a b) ; (if (= b 0) ; a ; (gcd b (remainder a b)))) ;; normal-order (gcd 206 40) ;-> (if (= 40 0) 206 (gcd 40 (remainder 206 40))) ;-> (if (= 40 0) 206 (gcd 40 6) ; call remainder ;-> (if (= 40 0) 206 (if (= 6 0) 4…
ウーム、わからん。
(define (fast-mul x n) (define (mul-iter y n) (let ((halv (lambda (n) (/ n 2))) (double (lambda (n) (* n 2)))) (cond ((= n 1) #?=y) ((even? n) #?=(mul-iter (double y) (halv n))) (else #?=(+ x (mul-iter y (- n 1))))))) (mul-iter x n)) (fast…
(define (fast-mul x n) (let ((halv (lambda (n) (/ n 2))) (double (lambda (n) (* n 2)))) (cond ((= n 1) x) ((even? n) (double (fast-mul x (halv n)))) (else (+ x (fast-mul x (- n 1))))))) (fast-mul 3 4) 1.17と全く同じ解き方なんだけど、これは…
(define (my-expt b n) (define (expt-iter a n) (cond ((= n 1) #?=a) ((even? n) #?=(expt-iter (* a a) (/ n 2))) (else #?=(* a (expt-iter a (- n 1)))))) (expt-iter b n)) (print (my-expt 3 8)) 結果は正しいけど、解き方は間違っているっぽい。 els…
今日はSICPの問題をガシガシ解いた。処理系はGauche。 なんか答えが載っているサイトを見つけた。後日答え合わせをする。#?=はGaucheのマクロで、printfデバッグみたいに使っている。
レスピーギ作 「リュートのための古風な舞曲とアリア」。 初めて聴いたのは、たしか大学3年生のクリスマスだったと思う。 あれは夢のように美しかった記憶があるのだが、一体どこの演奏だったのか。
これは一言で言うと、リムーバブルメディアから自動的にJPEGファイルをPCに吸い出すソフトだ。USBメモリとかSDカードとかの着脱を自動的に検知して、勝手に画像ファイルを持ってくる。 言語はC# 3で書かれていて、.NET Framework 3.5以上で動作する。 技術的…
奥さんが欲しい欲しいというのでCanonのMP980を購入。ネットワークプリンタがこんな値段で買えるなんて、と少し感激した。
とりあえず、PhotoCollectorを上げておいた。