2008-05-03から1日間の記事一覧

Project Euler の 79 番目

実は id:tanakaBox さんのダイアリー「ボクノス」で、初めて Project Euler のことを知ったのだけど、「なんだか難しそうだなぁ」と思っていた Problem 79 が、tsort で解けるかも、と思ってやってみたら簡単にいけました。(tsort コマンドを使ったことが無…

Project Euler の 15 番目を Scheme で

Project Euler の 15 番目 (Problem 15) を Scheme で書いてみたのだけど、ぜんぜん処理が帰ってこない。 処理に無駄が多すぎるプログラムだってのはわかってるんだけどさ。 Project Euler http://projecteuler.net/ (define f (lambda (x y) (if (or (zero?…

a は 4 つまで。

; car_test (define words '(((((ajax) binary) code) dump) emacs)) (display words) (newline) (newline) (display (car words)) (newline) (display (caar words)) (newline) (display (caaar words)) (newline) (display (caaaar words)) (newline) (dis…