Gauche

everyがツンな件について

リストの中身が全部整数なことを確認しようとしてて気づかされた。 (every integer? `()) => #t 「だって整数じゃない人はひとりも居なかったもん」

call/cc まだつかめず。

今日の発見。 これは処理が戻らなくなる。 %gosh gosh> (define x #f) x gosh> x #f gosh> (begin (print "a") (call/cc (lambda(z) (set! x z))) (x #t)) a"a" を表示したっきり、黙り込むゴーシュ。豪酒。剛手。拷首。 書き直すと、 (define x #f) (begin …

円周率

id:Jagdpanther さんが Gauche で円周率を計算しているのをみて、私もやってみる。 ガウチェ・モンテール円周率 - Jagdpantherの日記 http://d.hatena.ne.jp/Jagdpanther/20090126/1232921485 id:Jagdpanther さんは Gauche に標準で付いてくる Mersenne Twi…

Scheme の練習。100 個の乱数のリスト。

Scheme の練習中。 やりたいこと: 100 個の要素を持つリストを作りたい。 各要素は、0 から 99 までの整数から、ランダムに選んだやつにしたい。 とりあえず書いてみた(正しく動かない版) random100.scm #! /usr/local/bin/gosh (use srfi-27) (define (m…

Scheme の練習。x の n 乗を計算する power。

Scheme の練習として、x の n 乗を計算する power を書いてみた。 あ、そうだ。一応言っときますけど、たいていの Scheme 処理系には、expt という手続きが用意されているはずなので、ここで示す power なんて手続きを用意する必要はないです。以下はあくま…