摘要：
CL-USER> (defun palindrome? (x) (let ((mid (/ (length x) 2))) (equal (subseq x 0 (floor mid)) (reverse (subseq x (ceiling mid)))))) PALINDROME? C... 阅读全文
摘要：
给defparameter传入一个符号和一个值，来创造一个全局变量； defconstant创造一个全局常量。 CL-USER> (defparameter *glob* 99) *GLOB* CL-USER> (defconstant limit (+ *glob* 1)) LIMIT CL-USER> *glob* 99 CL... 阅读全文
摘要：
对equal来说，若它的参数打印出的值相同，返回真。 对eql来说，只有它的参数是相同的对象时才返回真。 CL-USER> (eql (cons 'a nil) (cons 'a nil)) NIL CL-USER> (equal (cons 'a nil) (cons 'a nil)) T CL-USER> (setf x (cons 'a nil... 阅读全文
摘要：
今天早上上司找谈话，讲工资的事情，其实就是安抚人心，因为这个时候人事浮动。从2012年8月份进来到现在5个月了，跟我一起进来的同事涨了工资，我却一直没有涨工资，面试的时候上司说让我试用一个月，可以的话就转正，12月份中旬的时候我给上司和人事经理发邮件讲了转正的事情，然后人事经理找我谈话说我一招进来就算正式员工，至于涨工资的事情要到年底统一涨。今天上司说每年3月份是讨论涨工资的时候，所以要我好好到这里学习，到时候给我涨工资。没问题，好好学习，有了技术不怕找不到工作。加油，Powerbuilder,Clisp! 阅读全文