2008-06-01から1ヶ月間の記事一覧
次の作品で使おうと思ったので、つくってみた。 参考 http://www.crawler.jp/archives/000584.html 先行するものに、 お散歩MAPS http://www.osanpomaps.jp/ gps.sp21.jp http://gps.sp21.jp/start/ キセキ http://japan.cnet.com/mobile/story/0,3800078151…
↑の公開するついでで物置のページを作った。 http://www.smihica.com/souko/ nagayoruとして作ったものはここにおいてく。みんなよろしくね!!
http://www.smihica.com/souko/tools.html HTML-templater HTML-templaterはホームページをテンプレート管理するツールです。 dreameweaverのテンプレート機能のようなものです。 (もしくは、railsのrender partialのような) コマンドラインから実行します。…
最近は作業が忙しかったのも有り、ばれるべきでない人にばれて、ちょっと気まずくなったのもあり、サボっていたが、とりあえずひと段落着いたので、また再開する。
#| (flatmap (lambda (new-row) (map (lambda (rest-of-queens) (adjoin-position new-row k rest-of-queens)) (queen-cols (- k 1)))) (enumerate-interval 1 board-size)) |# ;mapの中に(queen-cols (- k 1))があるので、そこでboard-size分 ;queen-colsが…
(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence))))) (define (filter condition seq) (accumulate (lambda (x y) (if (condition x) (cons x y) y)) null seq)) (define…
;問題の意味が微妙にわからないが、 ;多分、n以下の数i,j,kの和がもうひとつあたえられた数(s)と同じになればいい。 ;1≦i<j<k≦nとする。 (define (enumerate-interval x n) (if (> x n) null (cons x (enumerate-interval (+ x 1) n)))) (define (accumulate op initial sequence) (if (null? sequence) initial (op</j<k≦nとする。>…
(define (unique-pairs n) (flatmap (lambda (i) (map (lambda (j) (list i j)) (enumerate-interval 1 (- i 1)))) (enumerate-interval 1 n))) (define (prime-sum-pairs n) (map make-pair-sum (filter prime-sum? (unique-pairs n))))