2008-01-14から1日間の記事一覧

練習メニューをschemeでもやってみよう。

今回は"サイコロの目がすべてでるまでサイコロを振る" (use srfi-27) (random-source-randomize! default-random-source) (define (dice-roll) (define (roll state history count) (let ((n (+ 1 (random-integer 6)))) (print n) (print "state: " state) …

メモリ消費量を無視したquicksort

ブロック渡しの練習に良いかもしれない。 >準備運動のメニュー class Array def qsort(a=self) return a if a.size<=1 x=a.shift qsort(a.select{ |e| e <= x}).concat([x]).concat(qsort(a.select{ |e| x < e})) end def qsort2(a=self, &b) b = proc{ |e, …