2008-07-17から1日間の記事一覧

きしださんの問題

http://d.hatena.ne.jp/nowokay/20080717#1216294670 めちゃめちゃかっこわるいコードだけど、一応答えは出た。 (use srfi-1) (use util.combinations) (define (three-letters lst) (define (ok? lst) (if (null? (cdr lst)) #t (if (equal? (list (cadr (c…