lisp

    -1热度

    1回答

    我正在关注麻省理工学院的SICP讲座,而这正是我试图通过亚历山大方法的Heron找到一个数的平方根近似值。这是我第一次尝试lisp,很抱歉做出了noobie错误。 (define guess 1) (define (avg a b) (/ (+ a b) 2)) (define (try guess x) (if (goodEnough guess x) g

    0热度

    1回答

    我试图做一个功能,将中缀输入更改为前缀,例如:(x + 1)作为输入输出为(+ x 1)。 所以这是我的时刻代码: (setq x '(Y + 1)) (if (listp x) (list (second x) (first x) (first (last x))) x) 所以返回(+ Y 1)如果我输入一个列表,如果它不是一个列表中的用户输入。 然而,问题是,我不能得到这个代码的函数工作

    -2热度

    1回答

    INPUT:(A(B(d(E)(F)))(C)(K)) 我现在有两个功能,这给我的OUTPUT: 甲 乙 ç ķ 乙 d d Ë ˚F Ë NIL 但是我需要输出这样的: 一个:BCK B:d C: k: d:电子网 E: F: 或 一个 b】S K d 电子网 (defun print-children (s) (cond ((null (caar (cdr s))) nil)

    0热度

    1回答

    写入线,我开始使用LISP和写下面的程序 (write-line "hello world") (print "hello world print") (write "hello world write") 为此,我得到以下输出 hello world "hello world print" "hello world write" 我猜write和print返回字符串对象那么wri

    2热度

    1回答

    我最近问了一个question关于sbcl,其中的一个响应提到了我不知道的两个函数:#'sb-ext:string-to-octets和#'sb-ext:octets-to-string。除了回答我的问题之外,这也教会了我应该浏览包sb-ext的外部符号以查看还有什么可以使用。我的问题(与sbcl有关)是这样的:除了浏览包sb-ext的外部符号外,还有其他一些描述包sb-ext和其他添加的手册(我

    3热度

    1回答

    如果我有一个接受函数的参数,优化目的的功能,我可以宣布它是一个function,假设 (defun foo (f) (declare (type function f)) ...) 不过,我可以更加具体: (defun foo (f) (declare (type (function (double-float) double-float) f)) ..

    1热度

    2回答

    我正在使用DrRacket环境来尝试Scheme语言。 我定义的总和+ 1如下: (define sum+1 '(+ x y 1)) 我想知道为什么下面的表达式不计算: (let ([x 1] [y 2]) (eval sum+1)) ,而这样做返回正确的值: (define x 1) (define y 2) (eval sum+1)

    0热度

    1回答

    我试图创建函数,检查列表是否正确或不正确。在互联网上找不到任何解决方案。这可能吗? 例如我们的代码中使用list?: (define (proper-list? list) (cond ((list? list) '(it's a proper list)) (else '(it's an improper list)))) (proper-list? '(a b

    1热度

    1回答

    当从CLISP移植遗留代码的SbCl,我遇到语法这引起由该代码而没有明显的错误运行在CLISP所示的问题: (defun foo ((alpha integer)) (princ (type-of alpha)) (princ " ") (prin1 alpha) (terpri)) (foo 3) (foo 3.5) (foo (list "beta

    0热度

    1回答

    所以我在学校学习Lisp,我必须创建的程序之一是通过使用mapcan复制remove-if-function的功能。我已经创建了该程序并且它可以正常工作,但我不了解输出。 具体而言,如果我是运行: (findall 'numberp '(1 a 3)) 的输出是:(1 3) 该程序如下: (defun findAll (fct l) (cond ((null l) nil)