Project Euler
です。 方針はとりあえず全問題をまとめて1つのhtmlファイルにして、それをpdfにすればいいかなっという感じ。 なのでまず、下のスクリプトで全問題をまとめた1つのhtmlファイルを作る。 (※ マルチスレッドじゃないので遅い(要学習)。エラーチェックも皆無な…
そろそろProject Euler用のモジュールつくったほうがいいかな。 (use util.combinations) (use gauche.sequence) (use srfi-1) (define (integer->list i) (letrec ((i->rl (^i (cons (modulo i 10) (if (< i 10) '() (i->rl (quotient i 10))))))) (reverse…
一週間ほどプログラムから離れてたら、括弧が恋しくなってきちゃって。 (use srfi-1) (use util.combinations) (define (integer->list i) (letrec ((i->rl (^(i) (cons (modulo i 10) (if (< i 10) '() (i->rl (quotient i 10))))))) (reverse (i->rl i))))…
Schemeらしい書き方も勉強しなきゃ。 (use srfi-1) (define (integer->list i) (letrec ((i->rl (^(i) (cons (modulo i 10) (if (< i 10) '() (i->rl (quotient i 10))))))) (reverse (i->rl i)))) (define (list->integer l) (define (shift-d n) (let loop…
いい加減アルゴリズム勉強しなきゃ。 (use srfi-1) (define (integer->list i) (letrec ((i->rl (^(i) (cons (modulo i 10) (if (< i 10) '() (i->rl (quotient i 10))))))) (reverse (i->rl i)))) (define (list->integer l) (define (shift-d n) (let loop…
1ヶ月ほどご無沙汰してたけど、Kyoto.lispにも行ってきたことだし、もっとLisp勉強しよう。 今度参加するときはLT出来るようにネタを作っときたいな。 今回からGaucheのver.が0.9.2->0.9.3になりました。 iotaがコアに入って楽、という程度の使いこなしなん…
今回は問21から問25の5問。処理系はGauche。 そういえば25問解いたのは全体の18%しか居ないらしい… まずはユーティリティ関数とか。factorizeは前に定義したのとちょっと変えてたり。 (use srfi-1) ;; Sieve of Eratosthenes ; (primes 10) => (2 3 5 7) (de…
今回は問16から問20の5問。処理系はGauche。 15問まとめて書いたのはちょっと長すぎたと思います。 まずはユーティリティ関数とか。前回でも使いました。 (use srfi-1) ; (integer->list 12345) => (1 2 3 4 5) (define (integer->list i) (letrec ((i->rl (…
Rubyを勉強しようと思っていたらいつの間にかSchemeを勉強していた(ryというわけでProject Eulerに挑戦しています。 といってもSchemeはやったことないので、入門としてもうひとつの Scheme 入門にお世話になりました。 また、Scheme的な書き方も分からない…