lisp

For a course project I got to write a program in lisp. The program should contain the most important lisp functions, their input and output parameters and maybe optional parameters. For example: function - first, input - list, output - object (first member of list). The program should work in 2 different ways: You give the program the name of a function and it should return the function parameters. You enter function parameters and if a function with these parameters exists, it should return the name of the function. My questions: What would be the right way to approach a task like this in

I'm using ccl/openmcl on Mac OS X. (latest versions of both). When the lisp prompt is displayed, using the cursor keys to navigate the current line results in escape codes, rather than movement, eg: Welcome to Clozure Common Lisp Version 1.2-r9226-RC1 (DarwinX8664)! ? (^[[D Here I've pressed the ( key, and then the left cursor key. When I run ccl/openmcl on a Debian Etch box, the cursor behaves as expected, and moves the insert point one position left. I guess this is some sort of terminal configuration option? If Clozure CL doesn't provide native readline/editline/whatever support or is

本文是对《Practical Common Lisp》第16章的简单代码注解。CLOS为Common Lisp Object System的缩写，与所有面向对象语言相同，CLOS是基于类组织起来的，所不同的是广义函数而非消息传递是对象与方法通信的桥梁。 以下是实现的几个简单功能，模拟电梯升降的逻辑可能有不妥之处，但不影响对简单CLOS的表述。 ;;;;;; 电梯模拟程序 ;;;;; (defclass lift () ((lift-length :initarg :lift-length :initform 3) (lift-wide :initarg :lift-wide :initform 2) (lift-height :initarg :lift-height :initform 3) (lift-status :initarg :lift-status :initform 1) (floor-count :initform 8 :reader floor-count :writer (setf floor-count)) (floor-number-now :initform 1 :reader floor-number-now :writer (setf floor-number-now)))) #| @brief 电梯运行延时 @param seconds --

第一章 简介 1.1 统计计算环境 以前，统计计算主要集中于数值 计算 。那时的计算机运行速度慢，为了获得合理的性能，人们不得不在一个相对较低水平上细心地编写程序。结果，为了效率，大多数早期的统计系统都是简单的终端机而不是严格的数值算法。使用这些系统的人们需要提交他们的统计需求，然后在当天的晚些时候或者第二天才能拿到结果。 随着计算机变得越来越快，越来越廉价，将以前花费几小时或者几天才能完成的计算工作在几分钟或几秒钟内完成已经成为可能。这种发展对统计软件提出了新的挑战。由于现在的计算机硬件能够在短期内完成不同的计算与分析任务，一个支持性的统计软件环境要使以下步骤变得简单易行——将不同的计算结果展示到计算机上，将一台计算机的计算结果传递到另一台计算机上，检测计算结果，跟踪计算过程。进一步说，随着一些计算流程的重复使用（有可能有细微的变化），将此计算流程作为一个单元来描述和请求调用，建立一个简单的抽象已经成为可能。简而言之，为了补充现代计算机硬件的能力，统计环境必须是一个带有交互能力的统计语言。 另一个重要的发展发生在对计算速度的并行性上。越来越多的统计计算是在配置了高分辨率的个人电脑和工作站上完成的。这类高分辨率显示硬件开拓了很多新的机遇。统计研究的一个最令人激动的领域就是动态计算机绘图领域和它在统计学上的应用。多年以来，绘图方法已经成为统计学上的一个重要工具。但是

I want to write a function in lisp that reverses all elements from the list using map functions but I don't have any idea how to start this.. I think I have to use the built in reverse function somehow.. For example if I have the list (1 2 3 (4 5 6 (7 8 9))) I would get (((9 8 7) 6 5 4) 3 2 1) or if I had the list(1 2 3 (4 5) (6 7)) I would get ((7 6) (5 4) 3 2 1) .. Any help is appreciated! Just a quick answer, not sure about efficiency/elegancy: (defun reverse-deeply (list) (mapcar #'(lambda (li) (cond ((consp li) (reverse-deeply li)) (t li))) (reverse list))) (defun reverse-list (list) (let