common-lisp

    -1热度

    1回答

    我对Common Lisp和Lisp是一个全新的概念。我有一个使用Common Lisp编写的任务,甚至无法知道如何开始。我的程序将从1到9的字符串格式的数字,他们将有一个字拼写错误,但正确的长度;例如: too -> 2 threa -> 3 等等。当我给出错误的文本时,我需要打印整数,我真的不知道如何开始。任何帮助,将不胜感激。 在此先感谢。

    2热度

    2回答

    我一直在试图找到一种方法来做一个“步骤”评估。我在哪里调用一个函数,并且它将评估常见lisp的最多嵌套列表。 例如: '(+ 2 (+ 3 4)) ; would eval to: '(+ 2 7) 在该示例中,它只是评价3 + 4并停止在那里。它不会像lisp通常会做的那样继续评估2 + 7。 所以我想要代码找到最嵌套的列表,并评估最嵌套的列表,而无需评估整个列表。 例如: '(+ 2

    0热度

    1回答

    我想自动化我的torrent下载,但试图与drakma失败。任何人都可以请帮我吗? 的代码去如下:“为我工作” (with-open-file (file "/tmp/test.torrent" :direction :output :if-exists :supersede :if-does-not-exist :create) (

    1热度

    1回答

    我正在尝试使Common Lisp中的MEMBER函数起作用。 所以,我想使这个函数的工作是这样的: (my-member 2 '(1 4 5 5 3 2 5 6 9)) => (2 5 6 9) 这是因为成员函数的工作原理完全一样; (member 2 '(1 4 5 5 3 2 5 6 9)) => (2 5 6 9) 条件是我应该使用'DO'宏来做这个功能。 这是我的,我已经写尽

    0热度

    3回答

    我在做这代表了最大数量和最小数量和Common Lisp中第二小的数字之间的距离的函数。 该功能可以使最小数和最大数。 (我检查了它)。但是这个功能不能使“第二小的数字”在其列表... 我应该考虑哪些事情来解决这个问题? 我觉得我完成足够的条件,有必要做这个功能.. 我需要你的帮助很大。 这个结果应该是这样的: (我的距离“(0 7 10 2 3 -1))=>(-1 10) 这是我的代码,我已。

    1热度

    1回答

    Common Lisp case宏总是默认为eql,用于测试其keyform是否与其子句中的某个键相匹配。我正在与下面的宏旨在概括case使用任何提供的比较函数(尽管与评估键): (defmacro case-test (form test &rest clauses) (once-only (form test) `(cond ,@(mapcar #'(lambda (cla

    0热度

    1回答

    我尝试存储在列表中有两个颜色: (defparameter *colist* '(sdl:*black* sdl:*red*)) 印刷SDL:颜色会在SBCL控制台返回颜色 (print sdl:*black*) ;;#<LISPBUILDER-SDL:COLOR {1001E980A3}> 但是,如果我尝试从列表打印颜色我得到不同的结果 (print (car *colist*)) ;;

    1热度

    2回答

    我正在使用Little Schemer,我试图将所有答案转换为Common Lisp。 在第8章中,讨论了匿名函数,并返回了匿名函数。 例如: (define insertL-f (lambda (test?) (lambda (new old l) (cond ((null? l) (quote())) ((test? (car

    0热度

    1回答

    对于定义像(defstruct person (age nil :type (or null integer)))和(defstruct person (age -1 :type integer))这样的Common Lisp结构(或类),编译器优化的潜在影响是什么?我经常发现使用第一种形式表示方便的空值表示特殊条件;例如,如果一个人的年龄不知道。但在第二种形式中,您也可以使用特定的指定整数(如-

    0热度

    2回答

    所以我试图递归地实现LISP中的一个凯撒密码,并且我已经获得了基本的功能性工作。问题是它返回一个字符列表,并且在返回语句中调用串联'字符串只是返回相同的字符列表加上一个“”。我在这里做错了什么? (defun caesar (s n) (if (null (concatenate 'list s)) '() (cons (code-char (+ n