Common Lisp Learning (1)

最近对Common Lisp比较感兴趣,这也是我第一次接触函数式编程,于是就把CLisp的一些笔记写了上来。不过现在都只学到一些很简单的东西,慢慢来吧w

判断一个数是否为奇数,是奇数则返回YES,偶数则返回NO。

Code

(defun is_odd(number)
        (when (oddp number)
                (return-from is_odd 'YES)
        )
        (return-from is_odd 'NO)
)
(print (is_odd 8))

Notes

defun 是定义一个函数。

when 是用来判断给定的表达式的真假。在Lisp中,'真'用't'来表示,'假'为'nil'。

return-from 后面接函数名, 返回值

声明: 本文为0xBBC原创, 转载注明出处喵~

发表评论

电子邮件地址不会被公开。 必填项已用*标注