|
|
| Другие темы раздела | |
|
Lisp Написать рекурсивную функцию,объединяющую два списка
https://www.cyberforum.ru/ lisp/ thread1081029.html написать рекурсивную функцию,объединяющую два списка.список задать при вызове функции |
Задача из раздела "С для начинающих" - обработка текстового файла Lisp Вот такая задача была опубликована в разделе "С для начинающих": В конец каждой строки текстового файла через пробел добавляется число, которое равно количеству символов в самом длинном слове данной строки. Вот так выглядит мое решение на HomeLisp (без затирания исходного файла, а с созданием выходного). Любопытно сравнить с кодом на C/С++: (defun task (finp fout) (let ((fi... |
|
Lisp множество пересекающихся трапеций
https://www.cyberforum.ru/ lisp/ thread1079271.html Нарисовать и закрасить разными цветами множество пересекающихся трапеций, введя в созданном диалоге с помощью языка DCL параметры (например, количество трапеций, цвет и т.д.). Запомнить созданный рисунок как блок и на языке Лисп, расположить блоки по эллипсу. нарисовала, закрасила а дальше не знаю как делать помогите (DEFUN laba1() (setq p1 (list 200 200)) (setq p2 (list 700 200)) ... |
Lisp Ошибка в коде Здравствуйте уважаемые эксперты. При компиляции кода возникают ошибки, помогите пожалуйста. (defun map-comp (fn al vl) (cond (xl (cons (funcall fn (car al) (car vl)) (map-comp (cdr al) (cdr vl)) ) ) ) https://www.cyberforum.ru/ lisp/ thread1078920.html |
|
Lisp Компилятор пишет, что стек переполнен Мне необходимо сделать реализацию на основе стеков- SECD-машина пишу компилятор > (defun poz(x a) (cond ((eq x (car a)) 0) (t (+ 1 (poz x (cdr a)))))) ==>POZ > (defun mesto(x n) (cond ((member x (car n)) (cons 0 (poz x (car n)))) |
Lisp Написать программы вычисления кубического корня, сравнение вещественных чисел
https://www.cyberforum.ru/ lisp/ thread1077829.html Упражнение из SICP. Написать программы вычисления кубического корня. Вот что в итоге получислось. На больших числах не работает, потому что good-enough возвращает #f. Отладка показывает что решение таки находится, но программа циклится. Почему так? Как переписать на рабочий вариант. И еще, Как в лиспе пишутся set'еры? #lang scheme (define (epsilon) 0.001) ;;(define (set-epsilon x) ;; ... |
|
Lisp Соединить два упорядоченных по неубыванию списка в упорядоченный по неубыванию список
https://www.cyberforum.ru/ lisp/ thread1077097.html Написать прогу соединяющую два упорядоченных по неубыванию списка в упорядоченный по неубыванию список(без сортировки). |
Функция, "обрывающая" список, если он состоит более чем из n элементов Lisp Добрый день! Помогите пожалуйста с заданием: напишите функцию, "обрывающая" список, если он состоит более чем из n элементов. Пример: (1, -2, 3,-4,-7,4,5), n=4 => (1,-2, 3, -4) |
|
Lisp HomeLisp. Сделать часы, чтобы они запускались и останавливались
https://www.cyberforum.ru/ lisp/ thread1076775.html Суть вот в чем. Когда функция вызывается, то нужно ждать окончания ее выполнения. А я хочу сделать часы, чтобы они запускались и останавливались. Чтобы можно было вручную время менять и снова их запускать. Код прилагаю в спойлере, там и смотреть та особо не на что. Работают две кнопки из трех. И то не так как надо. Были некоторые идеи, использовать read и sleep*, но пока безрезультатно.... |
Lisp Определить функцию (разность х у), результатом которой является список атомов, представляющих множество элементов, входящих в х и не входящих в у Объясните пожалуйста работу функции MINUS. Определить функцию (разность х у), результатом которой является список атомов, представляющих множество элементов, входящих в х и не входящих в у. > (defun ap (x y) (cond ((eq x nil) y) (t (cons (car x) (ap (cdr x) y))))) ==>AP > (defun vur (x) (cond ((eq x nil) nil) ((atom (car x)) (cons (car x) (vur (cdr x)))) (t (ap (vur (car x)) (vur (cdr... https://www.cyberforum.ru/ lisp/ thread1076732.html |
|
Lisp Определить "качество успеваемости", т.е процент студентов, сдавших все экзамены на 4 и 5 Объясните пожалуйста как работает программа. Имеется список студентов с информацией об итогах сессии, в котором указаны фамилия, номер группы, оценки по трем предметам. Определить "качество успеваемости", т.е процент студентов, сдавших все экзамены на 4 и 5. (defstruct stud fam gr pr1 pr2 pr3) ==>STUD (setq x (cons (make-stud :fam 'Valeev :gr '41-4 :pr1 5 :pr2 '4 :pr3 '5) ... |
Lisp Предикат, переставляющий отрицательные элементы в конец списка
https://www.cyberforum.ru/ lisp/ thread1076559.html Добрый день! Нужна ваша помощь в решении задачи! Условие: предикат, переставляющий все отрицательные элементы числового списка в конец списка. Пример: => . Всем откликнувшимся огромное человеческое спасибо! :) |
|
0 / 0 / 0
Регистрация: 27.01.2014
Сообщений: 4
|
|
| 27.01.2014, 17:50 [ТС] | 0 |
Преобразование структуры списков - Lisp - Ответ 570104227.01.2014, 17:50. Показов 991. Ответов 11
Метки (Все метки)
Ответ
И еще вопрос: В чем лучше писать код? Так чтоб удобней новичку было.
Добавлено через 3 минуты Спасибо огромное Catstail. Вы действительно мне очень помогли, ситуация начинает проясняться. ))) Вернуться к обсуждению: Преобразование структуры списков Lisp
0
|
|
| 27.01.2014, 17:50 | |
|
Готовые ответы и решения:
11
Рекурсивное преобразование списков Рекурсивное преобразование списков Рекурсивное преобразование списков |
| 27.01.2014, 17:50 | |
| 27.01.2014, 17:50 | |
|
Помогаю со студенческими работами здесь
0
Преобразование списков Преобразование списка списков Преобразование (сжатие) списков в SWI Prolog
|
Наверх