`
deepfuture
  • 浏览: 4435054 次
  • 性别: Icon_minigender_1
  • 来自: 湛江
博客专栏
073ec2a9-85b7-3ebf-a3bb-c6361e6c6f64
SQLite源码剖析
浏览量:80426
1591c4b8-62f1-3d3e-9551-25c77465da96
WIN32汇编语言学习应用...
浏览量:70915
F5390db6-59dd-338f-ba18-4e93943ff06a
神奇的perl
浏览量:104246
Dac44363-8a80-3836-99aa-f7b7780fa6e2
lucene等搜索引擎解析...
浏览量:287786
Ec49a563-4109-3c69-9c83-8f6d068ba113
深入lucene3.5源码...
浏览量:15190
9b99bfc2-19c2-3346-9100-7f8879c731ce
VB.NET并行与分布式编...
浏览量:68527
B1db2af3-06b3-35bb-ac08-59ff2d1324b4
silverlight 5...
浏览量:32645
4a56b548-ab3d-35af-a984-e0781d142c23
算法下午茶系列
浏览量:46344
社区版块
存档分类
最新评论

lisp-求最大和最小数,if的使用

 
阅读更多
* (defun maxnum(x y) (if (> x y) x y))
STYLE-WARNING: redefining COMMON-LISP-USER::MAXNUM in DEFUN

MAXNUM
* (maxnum 9 8)

9
* (maxnum 8 9)

9
* (maxnum 112 990)

990

 

使用了progn,progn将其它语句 插入到某语句中 ,即只返回最后一个语句的执行结果

 

* (minofnums *mylist*)

-263
* (maxofnums *mylist*)

126
* 

 下面是代码

 

[deep@deep ~]$ sbcl --load /home/deep/pro/test2.lisp

(defvar *mylist* 
`(23 126 29 -23 23 2 44 -23 0 -263)
)

(defvar *mymax* (car *mylist*))

(defvar *mymin* (car *mylist*))

(defun maxofnums(mlist) 
	(if mlist
		(progn (setf *mymax* (if (> *mymax* (car mlist))	*mymax*	(car mlist)))
		(maxofnums (cdr mlist)))
		*mymax*		
	)
)

(defun minofnums(mlist) 
	(if mlist
		(progn (setf *mymin* (if (< *mymin* (car mlist))	*mymin*	(car mlist)))
		(minofnums (cdr mlist)))
		*mymin*	
	)
)
	




 

1
0
分享到:
评论

相关推荐

    第2集AutoLisp数据类型.zip_autolisp

    AutoLISP是一种基于LISP语言的编程环境,专为AutoCAD设计软件提供扩展功能和自定义解决方案。在深入学习AutoLISP语言时,了解其数据类型是至关重要的基础。本教程将带你探索AutoLISP中的核心数据类型,帮助你更好地...

    Practical Common Lisp

    - **列表与对**:列表是Lisp中最基础的数据结构,通过对(cons)构成,可以用来构建复杂的数据结构。 ##### 2.4 数组与哈希表 - **数组**:提供了一种快速访问数据的方式,支持多维数组。 - **向量**:一种特殊的...

    CommonLisp入门[收集].pdf

    除了基本的数值操作,Common Lisp还包括了动态作用域(`let`表达式)和条件语句(`if`函数)等控制结构。例如,`(let ((a 6)) a)`在局部范围内设置`a`的值,当离开`let`的范围,`a`恢复原来的值。 在Lisp中,还有...

    CAD AutoList编程

    AutoLISP 是一种专门为 AutoCAD 设计的脚本语言,用于扩展 AutoCAD 的功能和自动化工作流程。AutoCAD 支持 AutoLISP,但不支持许多 Visual LISP 函数或 Microsoft ActiveX Automation 接口。本文档将介绍 AutoLISP ...

    haskell中文教程

    1. **条件语句**: 使用`if`语句进行条件判断。 ```haskell max' :: Int -&gt; Int -&gt; Int max' x y = if x &gt; y then x else y ``` 2. **模式匹配与`case`表达式**: 可以用来替代传统的`switch-case`结构。 ```...

Global site tag (gtag.js) - Google Analytics