2012年12月15日
函数：找出一句话中的第二个单词
摘要： (defun second-word (str) (let ((pl (+ (position #\ str) 1))) (subseq str pl (position #\ str :start pl)))) 阅读全文
posted @ 2012-12-15 13:41 flowjacky 阅读(194) 评论(0) 推荐(0)
判断序列是否对称
摘要： 1 (defun mirror? (s)2 (let ((len (length s)))3 (if (evenp len)4 (do ((start 0 (+ start 1))5 (end (- len 1) (- end 1)))6 ((or (> start end)7 (not (equal (elt s start)8 (elt s end))))9 (> start end))))))相... 阅读全文
posted @ 2012-12-15 10:37 flowjacky 阅读(235) 评论(0) 推荐(0)