首页 > 代码库 > 用Clojure学习The Little Schemer时的一些基本函数定义
用Clojure学习The Little Schemer时的一些基本函数定义
;; learning The Little Schemer (def car first) (def cdr rest) (def cons clojure.core/cons) (def eq? =) (def list? clojure.core/list?) (defn atom? [x] (not (list? x))) (defn s-exp? [x] (or (atom? x) (list? x))) (defn null? [x] (if (atom? x) (car x) ;raise a exception (and (list? x) (empty? x))))
抛出异常的地方是为了保持“未定义”语义,即书中说到的 “you cannot do this”
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。