首页 > Linux操作系统 > Linux操作系统 > SICP 练习1.6
| CL-USER> (defun new-if (predicate then-clause else-clause) (cond (predicate then-clause) (t else-clause))) NEW-IF CL-USER> (new-if (= 2 3) 0 5) 5 CL-USER> (new-if (< 2 3) 0 5) 0 CL-USER> |
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/133735/viewspace-749703/ ,如需转载,请注明出处,否则将追究法律责任。