Heaven's Kitchen

長らく放置してしまいました。閉鎖するとかそんな気はないんだけど、なんか書くこともなかったんだ、きっと。てか、このCGIのあまりの重さに自分でもアクセスする気が失せています。改善策はいくつか思いついたけど、データベースの方もいじりたいので、時間がない…。

久々の日記だというのに、プログラミングネタで恐縮ですが、練習問題的に、Emacs-Lispでtakeとかdropとかをやってみたのでメモ。

(defun take (n ls)
  (cond 
   ((< n 0) nil)
   ((> n (length ls)) ls)
   (t (if (= n 0)
	  nil
	(cons (car ls) (take (- n 1) (cdr ls)))))))

(defun drop (n ls)
  (cond 
   ((< n 0) ls)
   ((> n (length ls)) nil)
   (t (if (= n 0)
	  ls
	(drop (- n 1) (cdr ls))))))

condをかますと、効率悪そうだけど考えるのがめんどくさくなったので放置（爆