2010-06-06から1日間の記事一覧
CommonLispのatomに対抗してatom?を作る。 user> (defn atom? [x] (cond (not (seq? x)) true (empty? x) true :else false)) #'user/atom? user> (atom? 'sss) true user> (atom? (cons '1 '())) false user> (atom? nil) true user> (atom? '()) true user…