今日のSchemeの勉強

今日は図書館でWindows Mobile搭載のEMONSTER S11HT (HTC Tytn II)を使ってPocket SchemeでSchemeの勉強をしました。

(define adjust-of (lambda (x) (let ((digit 1000) (slide (if (positive? x) 1/2 -1/2))) (/ (truncate (+ slide (* digit x))) digit))))
(adjust-of 0.2994)
> 0.299
(adjust-of -0.2994)
> -0.299

(「素数夜曲: 女王陛下のLISP」より引用)

EMONSTER S11HTはキーボードがあるので、とても便利です。

素数夜曲―女王陛下のLISP