(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

2013-07-23から1日間の記事一覧

Project Euler 22を解く感じ

(add-load-path "." :relative) (use text.csv) (define *names-text* "./problem-22/names.txt") ;;適当なパスに放り込んだnames.txt (let1 num 0 (fold (lambda (x y) (+ (* (inc! num) (name->score x)) y)) 0 (sort (with-input-from-file *names-text* …