Common Lisp (豆瓣)

作者: David S. Touretzky
出版社: Benjamin-Cummings Pub Co
副标题: A Gentle Introduction to Symbolic Computation
出版年: 1989
页数: 600
ISBN: 9780805304923

豆瓣评分

9.0

29人评价

5星

55.2%
4星

37.9%
3星

6.9%
2星

0.0%
1星

0.0%

评价:

内容简介 · · · · · ·

This book is about learning to program in Lisp. Although widely known as the principal language of artificial intelligence research—one of the most advanced areas of computer science—Lisp is an excellent language for beginners. It is increasingly the language of choice in introductory programming courses due to its friendly, interactive environment, rich data structures, and po...

(展开全部)

When I wrote the book I had three types of reader in mind. I would like to address each in turn.

· Students taking their first programming course. The student could be from any discipline, from computer science to the humanities. For you, let me stress the word gentle in the title. I assume no prior mathematical background beyond arithmetic. Even if you don’t like math, you may find you enjoy computer programming. I’ve avoided technical jargon, and there are lots of examples. Also you will find plenty of exercises interspersed with the text, and the answers to all of them are included in Appendix C.

· Psychologists, linguists, computer scientists, and other persons interested in Artificial Intelligence. As you begin your inquiry into AI, you will see that almost all research in this field is carried out in Lisp. Most Lisp texts are written exclusively for computer science majors, but I have gone to great effort to make this book accessible to everyone. It can be your doorway to the technical literature of AI, as well as a quick introduction to its central tool.

· Computer hobbyists. Prior to about 1984, the Lisps available on personal computers weren’t very good due to the small memories of the early machines. Today’s personal computers often come with several megabytes of RAM and a hard disk as standard equipment. They run full implementations of the Common Lisp standard, and provide the same high-quality tools as the Lisps in university and industrial research labs. The ‘‘Lisp Toolkit’’ sections of this book will introduce you to the advanced features of the Common Lisp programming environment that have made the language such a productive tool for rapid prototyping and AI programming.

This current volume of the ‘‘gentle introduction’’ uses Common Lisp throughout. Lisp has been changing continuously since its invention 30 years ago. In the past, not only were the Lisp dialects on different machines incompatible, but programs written in one dialect would often no longer run in that same dialect a few years later, because the language had evolved out from under them. Rapid, unconstrained evolution was beneficial in the early days, but demand for a standard eventually grew, so Common Lisp was created. At present, Common Lisp is the de facto standard supported by all major computer manufacturers. It is currently undergoing refinement into an official standard. But Lisp will continue to evolve nonetheless, and the standard will be updated periodically to reflect new contributions people have made to the language. Perhaps one of those contributors will be you.

豆瓣成员常用的标签(共29个) · · · · · ·

lisp Lisp 程序设计 FP 计算机科学编程计算机 Programming

喜欢读"Common Lisp"的人也喜欢的电子书 · · · · · ·

支持 Web、iPhone、iPad、Android 阅读器

: CoffeeScript小书

1.99元

: Python源码剖析

38.39元

: 编程大师访谈录

25.00元

: 思考，快与慢

8.99元

喜欢读"Common Lisp"的人也喜欢 · · · · · ·

: The Art of the Metaobject Protocol

: Introduction to Computing

: Algorithms

: Introduction to Tornado

: ANSI Common Lisp

: Land of Lisp

: Common Lisp

: Machine Learning for Hackers

: The Little Schemer - 4th Edition

: Practical Common Lisp

我来说两句

短评 · · · · · · ( 全部 10 条 )

Common Lisp的书评 · · · · · · (全部 5 条)

Lisp入门最佳书籍

xiaohanyu 2011-10-30 19:38:21

我一直以为，学习一门编程语言，最重要的不是学习它的语法，而是它能带给你的编程理念上的更新。以这个标准而言，纵观我所接触过的、甚至写过几行代码的编程语言，只有c、java、shell、python、lisp符合这个标准。 c语言自不必说，奠定了所有计算机的基础；shell让我领略到了U... (3回应)

39有用 / 1没用

本书简单的导读

Juanito 2012-02-05 03:17:57

这篇书评可能有关键情节透露

> 没关系，可以显示全文

书中的工具函数dtrace，sdraw和ppmx的地址

邻家のR君 2011-06-25 18:53:03

http://www.cs.cmu.edu/~dst/Lisp/dtrace/dtrace.generic http://www.cs.cmu.edu/~dst/Lisp/sdraw/sdraw.generic http://www.cs.cmu.edu/~dst/Lisp/ppmx.lisp (4回应)

2有用 / 0没用 John Wiley & Sons Inc1990版

lisp :code as data

麦克斯韦妖精 2015-04-09 16:22:27

lisp语言的入门级读物印象最深的两点 1 ： code as data的理念 2：对list处理，相当自由。自由= 强大还有就是书中大量的插图，对数据结构的detail展示非常生动

0有用 / 0没用

写得十分中肯的语言书。

Tachikoma 2013-02-28 00:18:49

写得十分中肯的语言书。冗长，事无巨细，配图和代码样例精准。就算不看冗长的英文只看代码样例，也能了解个大概。对lisp辅助工具的介绍非常详尽，就算是programming ruby也没达到这个程度。习题丰富。

0有用 / 0没用 Dover Publications2013版

> 更多书评5篇

读书笔记 · · · · · ·

我来写笔记

按有用程度
按页码先后
最新笔记

展开收起
第400页

JeOam (豆瓣：发现生活)

书本给出的答案和演示不符，只需运行（solve）就可以运行了，不用额外加参数。 (setf crypto-text '("zj ze kljjls jf slapzi ezvlij pib kl jufwxuj p hffv jupi jf" "enlpo pib slafml pvv bfwkj")) (setf *encipher-table* (make-hash-table)) (setf *decipher-table* (make-hash-table)) (defun make-substitution (code clear) (setf (gethash clear *encipher-table*) code) (se... (6回应)
2012-01-02 12:33

书本给出的答案和演示不符，只需运行（solve）就可以运行了，不用额外加参数。
(setf crypto-text
'("zj ze kljjls jf slapzi ezvlij pib kl jufwxuj p hffv jupi jf"
"enlpo pib slafml pvv bfwkj"))
(setf *encipher-table* (make-hash-table))
(setf *decipher-table* (make-hash-table))
(defun make-substitution (code clear)
(setf (gethash clear *encipher-table*) code)
(setf (gethash code *decipher-table*) clear))
(defun undo-substitution (code clear)
(setf (gethash clear *encipher-table*) nil)
(setf (gethash code *decipher-table*) nil))
(defun clear ()
(clrhash *encipher-table*)
(clrhash *decipher-table*))
(defun decipher-string (string)
(do* ((len (length string))
(new-string (make-string len
:initial-element #\Space))
(i 0 (1+ i)))
((equal i len) new-string)
(let* ((char (aref string i))
(new-char
(gethash char *decipher-table*)))
(when new-char
(setf (aref new-string i) new-char)))))
(defun show-line (line)
(format t "~%~A~%~A~%"
line
(decipher-string line)))
(defun show-text ()
(format t "~&----------------")
(dolist (line crypto-text)
(show-line line))
(format t "~&----------------"))
(defun get-first-char (x)
(char-downcase
(char (format nil "~A" x) 0)))
(defun read-letter ()
(let ((obj (read)))
(if (member obj '(end undo))
obj
(get-first-char obj))))
(defun sub-letter (code)
(when (gethash code *decipher-table*)
(format t "~&'~A' has already been" code)
(format t " deciphered as '~A'!"
(gethash code *decipher-table*))
(return-from sub-letter nil))
(format t "What does '~A' decipher to? " code)
(let ((clear (read-letter)))
(cond ((not (characterp clear))
(format t "~&Invalid response."))
((gethash clear *encipher-table*)
(format t "But '~A' already"
(gethash clear *encipher-table*))
(format t " deciphers as '~A'!"
clear))
(t (make-substitution code clear)))))
(defun undo-letter ()
(format t "~&Undo which letter? ")
(let* ((code (read-letter))
(clear (gethash code
*decipher-table*)))
(cond ((not (characterp code))
(format t "~&Invalid input."))
(clear (undo-substitution code clear))
(t (format t
"~&But '~A' wasn’t deciphered!"
code)))))
(defun solve ()
(do ((resp nil))
((equal resp 'end))
(show-text)
(format t "~&Substitute which letter? ")
(setf resp (read-letter))
(cond ((characterp resp) (sub-letter resp))
((equal resp 'undo) (undo-letter))
((equal resp 'end) nil)
(t (format t "~&Invalid input.")))))

推荐

6回应 2012-01-02 12:33
展开收起
第314页

JeOam (豆瓣：发现生活)

9.11 HANDLING END-OF-FILE CONDITIONS 书本这页里的代码有个小错误；改正如下： (defun read-my-file () (with-open-file (stream "sample-file") (let ((contents (read-all-objects stream (list '$eof$)))) (format t "~&Read ~S objects from the file." (length contents)) contents))) (defun read-all-objects (stream eof-indicator) (let ((r...
2011-12-29 09:50

9.11 HANDLING END-OF-FILE CONDITIONS
书本这页里的代码有个小错误；
改正如下：
(defun read-my-file ()
(with-open-file (stream "sample-file")
(let ((contents
(read-all-objects stream (list '$eof$))))
(format t "~&Read ~S objects from the file."
(length contents))
contents)))
(defun read-all-objects (stream eof-indicator)
(let ((result (read stream nil eof-indicator)))
(if (eq result eof-indicator)
nil
(cons result (read-all-objects stream (list '$eof$))))))

推荐

回应 2011-12-29 09:50

展开收起
第314页

JeOam (豆瓣：发现生活)

9.11 HANDLING END-OF-FILE CONDITIONS 书本这页里的代码有个小错误；改正如下： (defun read-my-file () (with-open-file (stream "sample-file") (let ((contents (read-all-objects stream (list '$eof$)))) (format t "~&Read ~S objects from the file." (length contents)) contents))) (defun read-all-objects (stream eof-indicator) (let ((r...
2011-12-29 09:50

9.11 HANDLING END-OF-FILE CONDITIONS
书本这页里的代码有个小错误；
改正如下：
(defun read-my-file ()
(with-open-file (stream "sample-file")
(let ((contents
(read-all-objects stream (list '$eof$))))
(format t "~&Read ~S objects from the file."
(length contents))
contents)))
(defun read-all-objects (stream eof-indicator)
(let ((result (read stream nil eof-indicator)))
(if (eq result eof-indicator)
nil
(cons result (read-all-objects stream (list '$eof$))))))

推荐

回应 2011-12-29 09:50
展开收起
第400页

JeOam (豆瓣：发现生活)

书本给出的答案和演示不符，只需运行（solve）就可以运行了，不用额外加参数。 (setf crypto-text '("zj ze kljjls jf slapzi ezvlij pib kl jufwxuj p hffv jupi jf" "enlpo pib slafml pvv bfwkj")) (setf *encipher-table* (make-hash-table)) (setf *decipher-table* (make-hash-table)) (defun make-substitution (code clear) (setf (gethash clear *encipher-table*) code) (se... (6回应)
2012-01-02 12:33

书本给出的答案和演示不符，只需运行（solve）就可以运行了，不用额外加参数。
(setf crypto-text
'("zj ze kljjls jf slapzi ezvlij pib kl jufwxuj p hffv jupi jf"
"enlpo pib slafml pvv bfwkj"))
(setf *encipher-table* (make-hash-table))
(setf *decipher-table* (make-hash-table))
(defun make-substitution (code clear)
(setf (gethash clear *encipher-table*) code)
(setf (gethash code *decipher-table*) clear))
(defun undo-substitution (code clear)
(setf (gethash clear *encipher-table*) nil)
(setf (gethash code *decipher-table*) nil))
(defun clear ()
(clrhash *encipher-table*)
(clrhash *decipher-table*))
(defun decipher-string (string)
(do* ((len (length string))
(new-string (make-string len
:initial-element #\Space))
(i 0 (1+ i)))
((equal i len) new-string)
(let* ((char (aref string i))
(new-char
(gethash char *decipher-table*)))
(when new-char
(setf (aref new-string i) new-char)))))
(defun show-line (line)
(format t "~%~A~%~A~%"
line
(decipher-string line)))
(defun show-text ()
(format t "~&----------------")
(dolist (line crypto-text)
(show-line line))
(format t "~&----------------"))
(defun get-first-char (x)
(char-downcase
(char (format nil "~A" x) 0)))
(defun read-letter ()
(let ((obj (read)))
(if (member obj '(end undo))
obj
(get-first-char obj))))
(defun sub-letter (code)
(when (gethash code *decipher-table*)
(format t "~&'~A' has already been" code)
(format t " deciphered as '~A'!"
(gethash code *decipher-table*))
(return-from sub-letter nil))
(format t "What does '~A' decipher to? " code)
(let ((clear (read-letter)))
(cond ((not (characterp clear))
(format t "~&Invalid response."))
((gethash clear *encipher-table*)
(format t "But '~A' already"
(gethash clear *encipher-table*))
(format t " deciphers as '~A'!"
clear))
(t (make-substitution code clear)))))
(defun undo-letter ()
(format t "~&Undo which letter? ")
(let* ((code (read-letter))
(clear (gethash code
*decipher-table*)))
(cond ((not (characterp code))
(format t "~&Invalid input."))
(clear (undo-substitution code clear))
(t (format t
"~&But '~A' wasn’t deciphered!"
code)))))
(defun solve ()
(do ((resp nil))
((equal resp 'end))
(show-text)
(format t "~&Substitute which letter? ")
(setf resp (read-letter))
(cond ((characterp resp) (sub-letter resp))
((equal resp 'undo) (undo-letter))
((equal resp 'end) nil)
(t (format t "~&Invalid input.")))))

推荐

6回应 2012-01-02 12:33

展开收起
第400页

JeOam (豆瓣：发现生活)

书本给出的答案和演示不符，只需运行（solve）就可以运行了，不用额外加参数。 (setf crypto-text '("zj ze kljjls jf slapzi ezvlij pib kl jufwxuj p hffv jupi jf" "enlpo pib slafml pvv bfwkj")) (setf *encipher-table* (make-hash-table)) (setf *decipher-table* (make-hash-table)) (defun make-substitution (code clear) (setf (gethash clear *encipher-table*) code) (se... (6回应)
2012-01-02 12:33

书本给出的答案和演示不符，只需运行（solve）就可以运行了，不用额外加参数。
(setf crypto-text
'("zj ze kljjls jf slapzi ezvlij pib kl jufwxuj p hffv jupi jf"
"enlpo pib slafml pvv bfwkj"))
(setf *encipher-table* (make-hash-table))
(setf *decipher-table* (make-hash-table))
(defun make-substitution (code clear)
(setf (gethash clear *encipher-table*) code)
(setf (gethash code *decipher-table*) clear))
(defun undo-substitution (code clear)
(setf (gethash clear *encipher-table*) nil)
(setf (gethash code *decipher-table*) nil))
(defun clear ()
(clrhash *encipher-table*)
(clrhash *decipher-table*))
(defun decipher-string (string)
(do* ((len (length string))
(new-string (make-string len
:initial-element #\Space))
(i 0 (1+ i)))
((equal i len) new-string)
(let* ((char (aref string i))
(new-char
(gethash char *decipher-table*)))
(when new-char
(setf (aref new-string i) new-char)))))
(defun show-line (line)
(format t "~%~A~%~A~%"
line
(decipher-string line)))
(defun show-text ()
(format t "~&----------------")
(dolist (line crypto-text)
(show-line line))
(format t "~&----------------"))
(defun get-first-char (x)
(char-downcase
(char (format nil "~A" x) 0)))
(defun read-letter ()
(let ((obj (read)))
(if (member obj '(end undo))
obj
(get-first-char obj))))
(defun sub-letter (code)
(when (gethash code *decipher-table*)
(format t "~&'~A' has already been" code)
(format t " deciphered as '~A'!"
(gethash code *decipher-table*))
(return-from sub-letter nil))
(format t "What does '~A' decipher to? " code)
(let ((clear (read-letter)))
(cond ((not (characterp clear))
(format t "~&Invalid response."))
((gethash clear *encipher-table*)
(format t "But '~A' already"
(gethash clear *encipher-table*))
(format t " deciphers as '~A'!"
clear))
(t (make-substitution code clear)))))
(defun undo-letter ()
(format t "~&Undo which letter? ")
(let* ((code (read-letter))
(clear (gethash code
*decipher-table*)))
(cond ((not (characterp code))
(format t "~&Invalid input."))
(clear (undo-substitution code clear))
(t (format t
"~&But '~A' wasn’t deciphered!"
code)))))
(defun solve ()
(do ((resp nil))
((equal resp 'end))
(show-text)
(format t "~&Substitute which letter? ")
(setf resp (read-letter))
(cond ((characterp resp) (sub-letter resp))
((equal resp 'undo) (undo-letter))
((equal resp 'end) nil)
(t (format t "~&Invalid input.")))))

推荐

6回应 2012-01-02 12:33
展开收起
第314页

JeOam (豆瓣：发现生活)

9.11 HANDLING END-OF-FILE CONDITIONS 书本这页里的代码有个小错误；改正如下： (defun read-my-file () (with-open-file (stream "sample-file") (let ((contents (read-all-objects stream (list '$eof$)))) (format t "~&Read ~S objects from the file." (length contents)) contents))) (defun read-all-objects (stream eof-indicator) (let ((r...
2011-12-29 09:50

9.11 HANDLING END-OF-FILE CONDITIONS
书本这页里的代码有个小错误；
改正如下：
(defun read-my-file ()
(with-open-file (stream "sample-file")
(let ((contents
(read-all-objects stream (list '$eof$))))
(format t "~&Read ~S objects from the file."
(length contents))
contents)))
(defun read-all-objects (stream eof-indicator)
(let ((result (read stream nil eof-indicator)))
(if (eq result eof-indicator)
nil
(cons result (read-all-objects stream (list '$eof$))))))

推荐

回应 2011-12-29 09:50

论坛 · · · · · ·


amazon.com上全五星...	来自哗呀哩呜	1 回应	2009-12-12
真正的clisp的好书	来自[已注销]	1 回应	2010-06-25

+ 加入购书单

这本书的其他版本 · · · · · · ( 全部3 )

Dover Publications版 2013-2-20 / 4人读过
John Wiley & Sons Inc版 1990 / 2人读过

以下豆列推荐 · · · · · · ( 全部 )

Lisp书不要钱 (哗呀哩呜)
Common Lisp系列 (netcasper)
屠龙之路 ([已注销])
Common Lisp ([已注销])
Lisp & Haskell (羊羽北)

谁读这本书?

望予

6月24日想读

tags:Programming lisp FP

origin

6月23日想读

WeiJie

4月21日想读

tags:Programming Lisp 程序设计...

靈比多多

4月4日想读

> 9人在读

> 25人读过

> 151人想读

二手市场

> 点这儿转让有151人想读,手里有一本闲着?

订阅关于Common Lisp的评论:
feed: rss 2.0

Common Lisp

内容简介 · · · · · ·

豆瓣成员常用的标签(共29个) · · · · · ·

喜欢读"Common Lisp"的人也喜欢的电子书 · · · · · ·

喜欢读"Common Lisp"的人也喜欢 · · · · · ·

短评 · · · · · · ( 全部 10 条 )

0 有用这位同学 2012-05-23

0 有用 lili 2012-03-17

0 有用 JeOam 2012-01-02

0 有用 Liutos 2012-11-27

0 有用 foss 2016-08-02

0 有用 foss 2016-08-02

0 有用 allen 2015-04-02

0 有用 testcraft 2013-09-03

0 有用 Liutos 2012-11-27

0 有用这位同学 2012-05-23

Common Lisp的书评 · · · · · · (全部 5 条)

Lisp入门最佳书籍

本书简单的导读

书中的工具函数dtrace，sdraw和ppmx的地址

lisp :code as data

写得十分中肯的语言书。

读书笔记 · · · · · ·

展开 收起
第400页

展开 收起
第314页

展开 收起
第314页

展开 收起
第400页

展开 收起
第400页

展开 收起
第314页

论坛 · · · · · ·

这本书的其他版本 · · · · · · ( 全部3 )

以下豆列推荐 · · · · · · ( 全部 )

谁读这本书?

二手市场

Common Lisp

内容简介 · · · · · ·

豆瓣成员常用的标签(共29个) · · · · · ·

喜欢读"Common Lisp"的人也喜欢的电子书 · · · · · ·

喜欢读"Common Lisp"的人也喜欢 · · · · · ·

短评 · · · · · · ( 全部 10 条 )

0 有用 这位同学 2012-05-23

0 有用 lili 2012-03-17

0 有用 JeOam 2012-01-02

0 有用 Liutos 2012-11-27

0 有用 foss 2016-08-02

0 有用 foss 2016-08-02

0 有用 allen 2015-04-02

0 有用 testcraft 2013-09-03

0 有用 Liutos 2012-11-27

0 有用 这位同学 2012-05-23

读书笔记 · · · · · ·

论坛 · · · · · ·

这本书的其他版本 · · · · · · ( 全部3 )

以下豆列推荐 · · · · · · ( 全部 )

谁读这本书?

二手市场

0 有用这位同学 2012-05-23

0 有用这位同学 2012-05-23