Common Lisp (豆瓣)

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

豆瓣评分

8.7

32人评价

5星

59.4%
4星

34.4%
3星

6.3%
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元

: 思考，快与慢

12.99元

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

: An Introduction to Functional Progr...

: ANSI Common Lisp

: The Art of the Metaobject Protocol

: Practical Common Lisp

: On LISP

: Introduction to Computing

: Algorithms

: Introduction to Tornado

: Land of Lisp

: The Craft of Prolog

我来说两句

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

Common Lisp的话题 · · · · · · ( 全部条 )

什么是话题

无论是一部作品、一个人，还是一件事，都往往可以衍生出许多不同的话题。将这些话题细分出来，分别进行讨论，会有更多收获。

我要写书评

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

Lisp入门最佳书籍

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

1 3回应

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

lisp :code as data

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

0回应

> 更多书评2篇

读书笔记 · · · · · ·

我来写笔记

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

展开收起
第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

论坛 · · · · · ·


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

+ 加入购书单

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

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

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

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

谁读这本书?

安德

7月3日想读

Masquue

6月1日想读

> 11人在读

> 27人读过

> 162人想读

二手市场

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

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

Common Lisp

内容简介 · · · · · ·

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

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

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

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

0 有用 allen 2015-04-02

0 有用 xiaohanyu 2011-10-30

0 有用 JeOam 2012-01-02

0 有用 lili 2012-03-17

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

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的话题 · · · · · · ( 全部条 )

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

Lisp入门最佳书籍

lisp :code as data

读书笔记 · · · · · ·

展开 收起
第400页

展开 收起
第314页

展开 收起
第314页

展开 收起
第400页

展开 收起
第400页

展开 收起
第314页

论坛 · · · · · ·

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

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

谁读这本书?

二手市场

Common Lisp

内容简介 · · · · · ·

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

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

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

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

0 有用 allen 2015-04-02

0 有用 xiaohanyu 2011-10-30

0 有用 JeOam 2012-01-02

0 有用 lili 2012-03-17

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

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