yaotti's diary

Software is Eating the World

2009-02-07から1日間の記事一覧

merge sort

gaucheでマージソート. きちんとテストも書いてみた. sort-merge.scm ;; merge-sort (use srfi-1) (define (merge-sort l) (let ((len (length l))) (cond [(>= len 2) (merge (merge-sort (former l)) (merge-sort (latter l)))] [else l] ))) (define (m…