Entries from 2012-06-04 to 1 day
そろそろ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…