lisp

4зной

3ответ

Почему нет рекурсивной оптимизации хвоста в Emacs lisp, а не как другая схема?

Emacs lisp - это диалект LISP и особенно Scheme. У большинства интерпретаторов схемы есть оптимизация Tail Recursion, но emacs lisp doens't. Я некоторое время искал причину в `info elisp ', но я не см

0зной

3ответ

LISP - написать список в файл

Мне нужно написать числовой список в файл и поместить return в конец строки. Я пробовал с этим кодом, но работал только для первого элемента списка. (defun write-segment (filename segment) (cond

2зной

3ответ

Альтернативный способ построения списка до тех пор, пока предикат не будет удовлетворен?

Вот мой способ построения последовательности Фибоначчи в виде списка, значения которых не превышает х: (define (fibs-upto x) (for/list ([i (in-naturals)] #:break (> (fib i) x)) (fib

-1зной

1ответ

Как расширить макросы в схеме хитрости?

Я пытаюсь написать let over lambda defmacro/g! в схеме хитрости. У меня есть следующее: (use-modules (srfi srfi-1)) (define (flatten x) (let rec ((x x) (acc '())) (cond ((null? x) acc)

2зной

1ответ

минусов пустого списка типа не работает

Я работаю через Языки программирования: применение и толкование главу книги 6 http://cs.brown.edu/courses/cs173/2012/book/From_Substitution_to_Environments.html Я применил починку, как описан в книге,

1зной

2ответ

АОЛ - почему эта загадочная ошибка?

http://learnlispthehardway.org/try-lisp/ CL-USER> (defun saynextof (a b c)(write a)) SAYNEXTOF CL-USER> (saynextof "fred" "jim" "shiela") ERROR[!]: too few arguments (В пользу этого утверждения ф

-2зной

1ответ

LIST return in inested cond

Я не понимаю, почему моя программа ведет себя так, как она есть. (defvar A '((X Y Z) (J L O P) (G W U)) (defvar Z '(X W D U G)) (defvar STOP 'G) (defun ADD_to_Z(A2) (prog() (cond