katona https://blog.hatena.ne.jp/katona/ MEMO:はてな支店 https://katona.hatenadiary.org/ Gauche ついでにgauche版のguessも作ろうとしたがこちらは未完成。 (define (guess ans . arg) (map (lambda (mod) (hash-table-fold (module-table mod) (lambda (k v r) (if (with-error-handler (lambda (e) #f) (lambda () (eq? (apply v arg) ans))) (cons k r) r)) ())) (all-modules)))module-tableのハッシュの値は普通の手続きかと思っていたが関数として呼び出すとエラーになる。 glocっ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkatona.hatenadiary.org%2Fentry%2F20071119%2Fp1" title="guess関数(未完成) - MEMO:はてな支店" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-11-19 00:00:00 rich https://katona.hatenadiary.org/entry/20071119/p1 1.0 100%