副作用ばりばりで。 ;; P13 (defun encode-direct (lis) (if (null lis) lis (do ((acc '()) (target (car lis)) (count 1) (l (cdr lis) (cdr l))) ((null l) (reverse (cons target acc))) (if (and (eql target (car l))) (incf count) (progn (push (if …

そろそろPSP版の海腹川背が発売するらしいという情報を もらったので、調べてみた。けっこう、ひどい出来らしい。 ↓http://www32.atwiki.jp/kawasepsp/pages/12.html曰く、 ロープが壁に張り付く ロープが壁にめり込む ロープが壁をすり抜ける etc …海腹川背…

g:cadr:id:g000001:20080321の記事をみて、パターンマッチが無性に使いたくなったのでGaucheで実装してみる。末尾再帰にしなければ、意外とすっきり書ける？ (use util.match) (define (encode-direct lis) (match lis [() '()] [(a) (list a)] [((num a) . …