(use gauche.sequence) (define (bogo-sort ls) (if (apply < ls) ls (bogo-sort (shuffle ls)))) (define data-5 (shuffle (iota 5))) (define data-10 (shuffle (iota 10))) (define data-15 (shuffle (iota 15))) (time (bogo-sort data-5)) ;(time (bogo-sort data-5)) ; real 0.001 ; user 0.000 ; sys 0.000 (time (bogo-sort data-10)) ;(time (bogo-sort data-10)) ; real 12.053 ; user 12.010 ; sys 0.000
(use srfi-1) (define (merge-sort ls) (define (merge ls1 ls2) (let rec ((ls1 ls1)(ls2 ls2)(acc '())) (cond ((null? ls1) (reverse (append (reverse ls2) acc))) ((null? ls2) (reverse (append (reverse ls1) acc))) ((< (car ls1)(car ls2)) (rec (cdr ls1) ls2 (cons (car ls1) acc))) (else (rec ls1 (cdr ls2)(cons (car ls2) acc)))))) (if (or (null? ls) (null? (cdr ls))) ls (let1 split-index (quotient (length ls) 2) (receive (head tail) (split-at ls split-index) (merge (merge-sort head) (merge-sort tail)))))) (use gauche.sequence) (define (test sorter n) (for-each (^i (let1 ls (shuffle (iota (expt 10 i))) (print "; length = " (expt 10 i)) (time (sorter ls)) (print))) (iota n 2))) (test merge-sort 6) ; length = 100 ;(time (sorter ls)) ; real 0.000 ; user 0.000 ; sys 0.000 ; length = 1000 ;(time (sorter ls)) ; real 0.002 ; user 0.010 ; sys 0.000 ; length = 10000 ;(time (sorter ls)) ; real 0.025 ; user 0.030 ; sys 0.000 ; length = 100000 ;(time (sorter ls)) ; real 0.288 ; user 0.280 ; sys 0.000 ; length = 1000000 ;(time (sorter ls)) ; real 3.422 ; user 3.370 ; sys 0.030 ; length = 10000000 ;(time (sorter ls)) ; real 40.993 ; user 40.620 ; sys 0.240
(use srfi-43) (define (selection-sort ls) (define (vector-min-index vect start-index) (do ((i start-index (+ i 1)) (min-value +inf.0) (min-index 0)) ((= i (vector-length vect))(values min-index min-value)) (when (< (vector-ref vect i) min-value) (set! min-value (vector-ref vect i)) (set! min-index i)))) ;; body (do ((i 0 (+ i 1)) (vect (list->vector ls))) ((= i (length ls))(vector->list vect)) (vector-swap! vect i (vector-min-index vect i)))) (use gauche.sequence) (define (test sorter n) (for-each (^i (let1 ls (shuffle (iota (expt 10 i))) (print "; length = " (expt 10 i)) (time (sorter ls)) (print))) (iota n 2))) (test selection-sort 4) ; length = 100 ;(time (sorter ls)) ; real 0.001 ; user 0.000 ; sys 0.000 ; length = 1000 ;(time (sorter ls)) ; real 0.030 ; user 0.030 ; sys 0.000 ; length = 10000 ;(time (sorter ls)) ; real 2.614 ; user 2.610 ; sys 0.000 ; length = 100000 ;(time (sorter ls)) ; real 255.403 ; user 254.710 ; sys 0.020
(use srfi-43) (use srfi-27) (define (bozo-sort ls) (random-source-randomize! default-random-source) (let ((vect (list->vector ls)) (len (length ls))) (until (apply < (vector->list vect)) (vector-swap! vect (random-integer len) (random-integer len))) (vector->list vect))) (use gauche.sequence) (dotimes (10) (let1 data (shuffle (iota 10)) (time (bozo-sort data)) (print))) ;(time (bozo-sort data)) ; real 30.852 ; user 30.740 ; sys 0.000 ;(time (bozo-sort data)) ; real 0.862 ; user 0.860 ; sys 0.000 ;(time (bozo-sort data)) ; real 5.286 ; user 5.280 ; sys 0.000 ;(time (bozo-sort data)) ; real 0.598 ; user 0.600 ; sys 0.000 ;(time (bozo-sort data)) ; real 2.561 ; user 2.560 ; sys 0.000 ;(time (bozo-sort data)) ; real 4.554 ; user 4.540 ; sys 0.000 ;(time (bozo-sort data)) ; real 4.434 ; user 4.420 ; sys 0.000 ;(time (bozo-sort data)) ; real 12.168 ; user 12.130 ; sys 0.000 ;(time (bozo-sort data)) ; real 11.710 ; user 11.670 ; sys 0.000 ;(time (bozo-sort data)) ; real 20.846 ; user 20.790 ; sys 0.000
(use srfi-43) (define (stooge-sort ls) (let1 vect (list->vector ls) (let rec ((head 0)(tail (- (vector-length vect) 1))) (when (< (vector-ref vect tail) (vector-ref vect head)) (vector-swap! vect head tail)) (when (<= 3 (+ (- tail head) 1)) (let1 index-of-1/3 (quotient (+ (- tail head) 1) 3) (rec head (- tail index-of-1/3)) (rec (+ head index-of-1/3) tail) (rec head (- tail index-of-1/3)))) vect))) (use gauche.sequence) (define (test sorter n) (for-each (^i (let1 ls (shuffle (iota (expt 10 i))) (print "; length = " (expt 10 i)) (time (sorter ls)) (print))) (iota n 2))) (test stooge-sort 2) ; length = 100 ;(time (sorter ls)) ; real 0.031 ; user 0.030 ; sys 0.000 ; length = 1000 ;(time (sorter ls)) ; real 7.330 ; user 7.310 ; sys 0.000
これすごく面白かった。rosetta codeのracketのソースを参考にしたんだけど、そのコードに出てくるcolumnって手続きが目からウロコだった。これはビーズを通したヒモを立てることそのものだ。かっこいい。自分で書く時には末尾再帰にして名前もbead-downにした。
ここの図解がわかりやすい。
(define (bead-sort ls) (define (bead-down ls) (let rec ((ls (remove null? ls))(acc '())) (if (null? ls) (reverse acc) (rec (remove null? (map cdr ls)) (cons (map car ls) acc))))) ;; body (map length (bead-down (bead-down (map (cut make-list <> 1) ls))))) (use gauche.sequence) (define (test sorter n) (for-each (^i (let1 ls (shuffle (iota (expt 10 i))) (print "; length = " (expt 10 i)) (time (sorter ls)) (print))) (iota n 2))) (test bead-sort 3) ; length = 100 ;(time (sorter ls)) ; real 0.004 ; user 0.000 ; sys 0.000 ; length = 1000 ;(time (sorter ls)) ; real 0.406 ; user 0.410 ; sys 0.000 ; length = 10000 ;(time (sorter ls)) ; real 49.590 ; user 47.500 ; sys 1.380
(use util.combinations) (define (permutation-sort ls) (if (or (null? ls) (null? (cdr ls))) ls (let rec ((candidates (permutations* ls))) (if (apply <= (car candidates)) (car candidates) (rec (cdr candidates)))))) (use gauche.sequence) (dotimes (i 11) (let1 data (shuffle (iota i)) (time (permutation-sort data)) (print))) ;(time (permutation-sort data)) ; real 0.000 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.000 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.000 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.000 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.000 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.000 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.002 ; user 0.000 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.011 ; user 0.010 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.084 ; user 0.080 ; sys 0.000 ;(time (permutation-sort data)) ; real 0.760 ; user 0.750 ; sys 0.010 ;(time (permutation-sort data)) ; real 10.210 ; user 10.180 ; sys 0.000
自分も書いてみた。
書いたといっても、検索して出てきたshiroさんが書いたクイックソートのコードを参考にした。match使ってないだけ。
(use srfi-1) (define (quick-sort ls) (if (null? ls) '() (receive (ws ys) (partition (pa$ > (car ls))(cdr ls)) (append (quick-sort ws) (list (car ls)) (quick-sort ys))))) (use gauche.sequence) (define (test sorter n) (for-each (^i (let1 ls (shuffle (iota (expt 10 i))) (print "; length = " (expt 10 i)) (time (sorter ls)) (print))) (iota n 2))) (test quick-sort 6) ; length = 100 ;(time (sorter ls)) ; real 0.001 ; user 0.000 ; sys 0.000 ; length = 1000 ;(time (sorter ls)) ; real 0.004 ; user 0.000 ; sys 0.010 ; length = 10000 ;(time (sorter ls)) ; real 0.060 ; user 0.060 ; sys 0.000 ; length = 100000 ;(time (sorter ls)) ; real 0.737 ; user 0.730 ; sys 0.000 ; length = 1000000 ;(time (sorter ls)) ; real 9.191 ; user 9.110 ; sys 0.050 ; length = 10000000 ;(time (sorter ls)) ; real 124.532 ; user 123.700 ; sys 0.450
Google Readerはもう使ってなくて、feedlyに移行済みなんだけど、Google Listenはどうしよう。Listen SubscriptionsはGoogle Readerとだけ連携するんだよな、きっと。困ったなー。Androidで使いやすいpodcastアプリって他に何があるのかさっぱり知らん。どうせ聴いてるのは一個のfeedだけなんで、なんでもいいのかもしれんが。
ってのがなかなかうまくいかなくてまいってる。AD-200NEに登録するためにはパッチが必要らしいが、RT-200NEと同じようにやればいいらしい。
が、パッチを当ててAsteriskをインストールしても、そもそもsipのチャネルが使えない。なぜだあああああああ。CLIでsipコマンドなんてねーよって言われるし、modulesにchan_sip.soがNEEEEEEEEEEEEEEEEEEEE。
調べてたら「パッチ当てなくても登録できたぜ！」的な記事を目にしたので、apt-getからインストールしてみたけど、登録できない。でもsipコマンドは使える。sip show registryしたら一覧に行はあるけど登録できなかったって。
Asteriskは機能は多いし、設定も複雑だし、インストールも難しいし、用語も多いし、ハードル高ぇなAsterisk。情報も古いの多いし、Wikiはそこそこ親切に手順書いてあるけど、万全じゃないし、その手順がなんのためなのか、どういう時はいらないのか書いてなくて、ぐぬぬ。対応プラットフォームが多い＋機能がめちゃめちゃ豊富＋設定も多く設定方法も様々のコンボで、やりたいことズバリなチュートリアルもないし。ツライよ、ゆとりにはツライよ。
幸い、身近にAsterisk導入予定のスーパーハカーがいらっしゃるので、そちらが設定完了後に教えてもらおうかな（ﾁﾗｯﾁﾗｯ
でも悔しいので引き続きがんがる。肝心の用途は、Asteriskを光電話の子機として登録して着信をhookしたいだけんだ。それだけなんだ。それだけなら他にいい方法あるぜ！って方法あったら誰か教えて下さい。
