Chrome 如何访问手机站?

打开Chrome安装目录 运行如下命令 C:\Users\fxys\AppData\Local\Google\Chrome\Application>chrome.exe --user-agent="Mozilla/5.0 (Linux; U; Android 2.2; en-u...

2013-06-28 18:19:09

阅读数 710

评论数 0

LISP DO循环斐波那契额数列

CL-USER> (do ((n 0 (1+ n)) (cur 0 next) (next 1 (+ cur next))) ((= 10 n) cur)) 55

2013-06-16 17:43:09

阅读数 663

评论数 0

LISP 手册

http://www.gnu.org/software/emacs/manual/html_mono/cl.html

2013-06-14 23:03:07

阅读数 684

评论数 0

LISP 8.8 编写宏中宏

宏的作用是将常见的句法模式抽象掉,而反复出现在宏编写的特定模式同样也可受益于其抽象能力。 最后的几个do-primes函数中,都是以let形式确保子形式仅被求值一次的,引入了一些变量用来保存宏展开过程中用到的生成符号。 这也是一个常见模式,同样的也可以使用一个宏来将它抽象掉。 ;;;...

2013-06-14 22:59:32

阅读数 682

评论数 0

LISP 8.7.2 堵住漏洞2——修复变量名的漏洞

接上一节,先执行如下代码,观看效果: (do-primes-3-1 (ending-value 0 10) (format t "~d~t" ending-value)) ,死机没? 最后一个需要堵上的漏洞是由于使用了变量名ending...

2013-06-14 22:21:12

阅读数 628

评论数 0

LISP 8.7.1 堵住漏洞1——随机end值的漏洞及调用顺序漏洞

漏洞描述: 使用查看展开式 (macroexpand-1 '(do-primes-2 (p 0 (random 100)) (format t "~d~t" p))) 返回结果: (DO ((P (NEXT-PRIME 0) (NEXT-PRIME (1+ ...

2013-06-14 21:30:16

阅读数 687

评论数 0

LISP 8.6 生成展开式

代码如上一篇一致 使用 使用macroexpand-1函数可以展开宏 (macroexpand-1 '(do-primes-2 (p 0 19) (format t "~d" p)))返回结果: (DO ((P (NEXT-PRIME 0) (NEXT-PRIME ...

2013-06-14 21:06:23

阅读数 483

评论数 0

LISP 8.5 宏形参

(defun primep (number) (when (> number 1) (loop for fac from 2 to (isqrt number) never (zerop (mod number fac))))) (defun next-prime (numbe...

2013-06-14 20:53:12

阅读数 516

评论数 0

LISP 7.6 Do循环

写一个遍历质数的程序 (defun primep (number) (when (> number 1) (loop for fac from 2 to (isqrt number) never (zerop (mod number fac))))) (defun next...

2013-06-14 18:44:30

阅读数 985

评论数 2

LISP 6.3 动态变量

词法绑定与赋予新值仅会影响当前作用域 词法绑定案例 CL-USER> (defvar *x* 10) *X* CL-USER> (defun foo() (format t "x:~a~%" *x*)) FOO CL-USER> (...

2013-06-13 21:28:52

阅读数 749

评论数 0

LISP 6.1 变量的基础

CL-USER> (defun foo(x) (format t "Parameter:~a~%" x) (let ((x 2)) (format t "Out LET: ~a~%" x) (let ((x 3)...

2013-06-13 19:08:01

阅读数 474

评论数 0

LISP 5.8-5.9 高阶函数与匿名函数

Common LISP中提供了两个函数对象来调用函数 funcall 与apply 下面的函数是一个画点的函数,使用funcall函数 (defun plot (fn min max step) (loop for i from min to max by step do (lo...

2013-06-13 16:53:54

阅读数 757

评论数 0

emacs命令

emacs命令 emacs中的每一个命令都有一个命令名,命令名就是该命令所对应的LISP函数的函数名。在emacs中,我们可以为这些命令配置快捷键,从而达到快速调用命令的目的。.使用emacs来执行命令的方法有两种:(1).使用Ctrl键 (2).使用Meta键。所有emacs命令都...

2013-06-12 23:42:44

阅读数 873

评论数 0

LISP 简单的数据库 3.8 使用宏优化Where语句

之前的查询条件判断语句如下,它们有太多的相似之处,使用宏来生成真正需要被执行的语句 (if title (equal (getf cd :title) title) t) (if artist (equal (getf cd :artist) artist) t) (...

2013-06-12 22:53:25

阅读数 634

评论数 0

LISP 简单的数据库 3.7 更新记录

增加update函数以更新记录 ;使用全局变量记录数据 (defvar *db* nil) ;数据记录格式 (defun make-cd (title artist rating ripped) (list :title title :artist artist :rating r...

2013-06-12 22:20:08

阅读数 521

评论数 0

LISP 简单的数据库 3.6.2 优化查询算法

select-by-artist方法只能依据artist字段值进行查询,经过改进,可以使查询功能更强大 可以使用其他字段值进行查询,但不需要重新写看上去差不多的算法 增加select及where函数 ;使用全局变量记录数据 (defvar *db* nil) ;数据记录格式 (...

2013-06-12 22:02:00

阅读数 598

评论数 0

LISP 简单的数据库 3.6.1 依艺术家字段值进行查询

增加select-by-artist方法 ;使用全局变量记录数据 (defvar *db* nil) ;数据记录格式 (defun make-cd (title artist rating ripped) (list :title title :artist artist :r...

2013-06-12 21:51:01

阅读数 646

评论数 0

LISP中 remove-if-not 及 remove-if

CL-USER> (remove-if-not #'evenp '(1 2 3 4 )) (2 4) CL-USER> (remove-if #'evenp '(1 2 3 4 )) (1 3)

2013-06-12 21:10:26

阅读数 677

评论数 0

LISP 简单的数据库 3.5 保存和加载数据库

将*DB*中的数据信息保存到文件中,以及可以从文件中读取数据信息放置到*DB*全局变量中 添加两个函数 save-db 及 load-db ;使用全局变量记录数据 (defvar *db* nil) ;数据记录格式 (defun make-cd (title artist rating ri...

2013-06-12 21:08:04

阅读数 978

评论数 0

LISP 简单的数据库 3.4 改进用户交互

;使用全局变量记录数据 (defvar *db* nil) ;数据记录格式 (defun make-cd (title artist rating ripped) (list :title title :artits artist :rating rating :ripped ripped)...

2013-06-12 20:55:36

阅读数 595

评论数 0

提示
确定要删除当前文章?
取消 删除
关闭
关闭