2013年1月3日
改变我职业生涯的三条建议
摘要： Jeff Weiner CEO at Linkedin 回顾我的工作履历，我可以很肯定的说至少有三个影响彻底的改变了我的职业生涯。追忆往事，可以饶有兴趣的发现这些事情的背景之间有多么大的差异：父母的建议，一本书中描述的旅程，以及一个坚持不懈的老板。无论它们之间有多么大的差异，所有这三件事情所共有的一点是：要不断的强化自己对终极理想的认识，明确自己最终想要的是什么，敞开胸怀让外界的力量... 阅读全文
posted @ 2013-01-03 11:03 flowjacky 阅读(184) 评论(0) 推荐(0)
(1+ val)
摘要： 函数(1+ val)的作用是返回val + 1后的结果，但val的值不会变： CL-USER> (setf x 1) 1 CL-USER> (1+ x) 2 CL-USER> (1+ x) 2 CL-USER> x 1 CL-USER> (1+ x) 2 CL-USER> x 1 ... 阅读全文
posted @ 2013-01-03 10:41 flowjacky 阅读(194) 评论(0) 推荐(0)
when unless
摘要： when与if唯一的不同点在于when的代码主体可以是多句：when的相反是unless:它接受同样的阐述，但主体仅在测试表达式返回假时，才对主体求值。CL-USER> (when (oddp that) (format t "Hmm,that's odd.") (+ that 1)) Hmm,that's odd. 6 CL-USER> (if (oddp that) (progn (format t "Hmm,that's odd.") (+ that 1))) Hmm,that's odd. ... 阅读全文
posted @ 2013-01-03 10:32 flowjacky 阅读(776) 评论(0) 推荐(0)
prog1 prog2 progn
摘要： CL-USER> (prog1 (+ 1 2) (+ 2 3) (+ 3 4)) 3 CL-USER> (prog2 (+ 1 2) (+ 2 3) (+ 3 4)) 5 CL-USER> (prog... 阅读全文
posted @ 2013-01-03 09:59 flowjacky 阅读(304) 评论(0) 推荐(0)
初识incf
摘要： CL-USER> (setf x 10) 10 CL-USER> x 10 CL-USER> (incf x 5) 15 CL-USER> x 15 CL-USER> x 15 CL-USER> (incf x 7) 22 CL-USER> x 22 CL-USER> 所以(incf x 5)等价于(setf x (+ x 5))CL-USER> (setf x (+ x 7)) 29 CL-USER> x 29 CL-USE... 阅读全文
posted @ 2013-01-03 09:30 flowjacky 阅读(442) 评论(0) 推荐(0)
2013年1月2日
我对流的理解
摘要： 使用完后需要使用close函数修补myfile上的洞。对标准输入输出流的理解标准输入流指键盘，则上图中的myfile为键盘，读取的内容从键盘input to流标准输出流指电脑屏幕，则上图中的myfile为屏幕，写入的内容output to屏幕 阅读全文
posted @ 2013-01-02 17:54 flowjacky 阅读(152) 评论(0) 推荐(0)
(defun (setf f) val params)
摘要： 当defun的第一个参数是（setf f）这样的形式时，是在定义使用（setf (f params) val)时的行为。 例如： CL-USER> (setf lst (list 'a 'b 'c)) (A B C) CL-USER> (defun fun (x) (car x)) FUN CL-USER> (setf (fu... 阅读全文
posted @ 2013-01-02 17:22 flowjacky 阅读(311) 评论(0) 推荐(0)
在顶层显示文件内容的函数
摘要： CL-USER> (defun pseudo-cat (file) (with-open-file (str file :direction :input) (do ((line (read-line str nil 'eof) (read-line str nil 'eof))) ((eql line... 阅读全文
posted @ 2013-01-02 11:39 flowjacky 阅读(173) 评论(0) 推荐(0)
我写的第一份跟自定义流有关的代码
摘要： CL-USER> (setf path (make-pathname :name "BECKY")) #P"BECKY" CL-USER> (with-open-file (bstr path :direction :output :if-exists :supersede) (format bstr "hello worl... 阅读全文
posted @ 2013-01-02 10:44 flowjacky 阅读(143) 评论(0) 推荐(0)
令思绪迅速沉淀的简单方法
摘要： 马修·梅（Matthew E. May） 由精神系统科学我们得知，要想更高效、更富创造力，我们需要令大脑适时休息。冷静思绪可激发绝佳的灵感，但在繁忙的工作中挤出时间沉思绝非易事。以下是三种在工作中沉淀思绪的方法，快速简单，步骤详尽。 快速冥想 洛杉矶加州大学精神成像实验室的最新研究结果表明，经常冥想可令大脑特定的区域显示更多灰质，在大脑区域之间建立更强的联系，减少随年龄增长患有脑萎缩的风险。... 阅读全文
posted @ 2013-01-02 08:27 flowjacky 阅读(371) 评论(0) 推荐(0)