一週間ほどプログラムから離れてたら、括弧が恋しくなってきちゃって。 (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がコアに入って楽、という程度の使いこなしなん…