Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Вывод строки чисел без пробелов, а затем вывод значения в виде списка чисел https://www.cyberforum.ru/ lisp/ thread1994307.html
Определить функцию (Z1 k n), где k<n, которая сначала выводит строку чисел без пробелов k k+1 k+2 ... n, а затем на другой строке выводит значение в ввиде списка чисел (k k+1 k+2 .. n) Задание вроде не сложное, но с языком дружу плохо, а сделать нужно. Получилось только так. (defun z1(k n) (cond ((= n 0) t) (t (prin1 k)
Вставить элемент в отсортированный список с сохранением порядка Lisp
Получить новый отсортированный список путем вставки заданного элемента в исходный отсортированный в порядке возрастания элементов список.
Lisp "Склеить" 2 заданных узла дерева, если они соседние; иначе вернуть nil Добрый вечер! Помогите пожалуйста с заданием. Необходимо определит функцию у которой аргументами является дерево и 2 его вершины. Нужно "склеить" 2 заданных узла если они соседние. Если не соседние то выдать NIL. К примеру мы задаем вершины 1 и 3(они соседние): Наше Дерево 1 / \ 2 3 https://www.cyberforum.ru/ lisp/ thread1992870.html Lisp Работа с отображающими функционалами https://www.cyberforum.ru/ lisp/ thread1990691.html
Встретилась вот такая задача. С помощью отображающих функционалов у элементов одного списка создать свойство с именем property и присвоить свойству элементов первого списка соответствующие значение из второго списка. Не могу понять даже то, что требуется. Прошу помочь разобраться.
Определить функцию, которая ищет заданную вершину в дереве Lisp
Помогите, пожалуйста, с заданием! Определить функцию, которая ищет заданную вершину в дереве и возвращает список, содержащий предка искомой вершины и её потомков: (предок (потомок1 потомок2...))
Lisp Как писать программы на lisp с большим количеством строк https://www.cyberforum.ru/ lisp/ thread1988277.html
Простите за ламмерский вопрос. Я только начал изучать лисп и возникла проблема. Как только я написал любую программу и нажал выполнить то редактирование программы становится недоступно нужно все вводить заново. Тоесть скажем выдаёт ошибку а исправить нельзя, пиши все заново или копипасть. Может я что то не так делаю? Отсутствие возможности редактировать сильно замедляет работу. ...
Lisp Списки. Применяющие и отображающие функционалы Всем снова здрасте ! Нужна помощь со следующей задачкой : На языке Lisp сформировать список разностей соседних элементов в последовательности квадратов натуральных чисел. Убедиться , что эта последовательность представляет собой список последовательных нечётных чисел . Использовать применяющие и\или отображающие функционалы . Как я понял условие: дан список, допустим (1 2 3 4) для... https://www.cyberforum.ru/ lisp/ thread1987046.html Lisp Ошибка "A comma appears outside the scope of a backquote"
Привет всем! Мне нужно определить форму (IF условие p q) в виде макроса. Пишу так: (defmacro if1 (condition &body body &rest body1) '(cond (,condition (progn ,@body)) (t (progn ,@rest)))) Конечно, я сомневаюсь насчет &rest (наверно, бред написал), но дело не в этом. Выдает ошибку "A comma appears outside the scope of a backquote". Причем несколько раз.
Lisp Реализация нейронных сетей на лисп https://www.cyberforum.ru/ lisp/ thread1984703.html
Привет. Помогите с лиспом. нужно реализовать математический нейрон. Число входов = 3 Функция активации = пороговая.
Lisp Существует ли путь между двумя вершинами графа https://www.cyberforum.ru/ lisp/ thread1984467.html
Задача звучит так: "Граф задан с помощью цепных списков. Определить, существует ли путь между двумя заданными вершинами." Я граф представляю в таком виде: ((2 3) (1) (1)) - то есть, в каждом элементе списка перечисляю числа вершин, с которыми соединена вершина с порядковым номером данного элемента в списке. Мой код: (defun find (A B L) (cond ((null L) nil)
Lisp Lisp списки , разбиение на два списка
Дан список целых чисел , необходимо разбить на два списка, поместив в первый отрицательные, а во второй – положительные элементы исходного списка . Вот с помощью этой функции дописать бы программу (... (mapcan #'(lambda (x) (if (> x 0) (list x))) я так понимаю нужна вторая функция : (mapcan #'(lambda (x) (if (< x 0) (list x))) и чтобы их результат выводился в разных списках , как это...
Lisp Стяжение ветви. Диалект Common Lisp https://www.cyberforum.ru/ lisp/ thread1983557.html
Здравствуйте. Помогите с заданием. Стяжение ветви. Определить функцию, аргументами которой является дерево и две его вершины. Функция должна склеивать два заданных узла, если они соседние и выдавать NIL в противном случае.
Модератор
Эксперт функциональных языков программированияЭксперт Python
36590 / 20320 / 4218
Регистрация: 12.02.2012
Сообщений: 33,621
Записей в блоге: 13
06.06.2017, 15:12 0

Функция: найти количество троек подряд идущих одинаковых элементов списка - Lisp - Ответ 10517240

06.06.2017, 15:12. Показов 1594. Ответов 3
Метки (Все метки)

Ответ

Lisp
1
2
3
4
5
6
7
8
(defun task (lst)
  (apply '+ (mapcar (lambda (x y z) (if (= x y z) 1 0)) lst (cdr lst) (cddr lst))))
 
==> TASK
 
(task '(1 1 3 3 3 3 4 3 4 4 4 2 1 1 1))
 
==> 4


Вернуться к обсуждению:
Функция: найти количество троек подряд идущих одинаковых элементов списка Lisp
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2017, 15:12
Готовые ответы и решения:

Функция, вычисляющая количество троек подряд идущих элементов числового списка
написать функцию, вычисляющую кол-во троек подряд идущих элементов числового списка, в каждой из...

Функция: вычислить количество троек подряд идущих элементов числового списка
написать функцию, вычисляющую количество троек подряд идущих элементов числового списка, в каждой...

Clojure Написать функцию, вычисляющую количество троек подряд идущих элементов числового списка
написать функцию, вычисляющую кол-во троек подряд идущих элементов числового списка, в каждой из...

Найти наименьшее количество одинаковых, идущих подряд элементов
Дан вектор размерности N. Найти наименьшее количество одинаковых, идущих подряд элементов.

3
06.06.2017, 15:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2017, 15:12
Помогаю со студенческими работами здесь

Найти наибольшее количество одинаковых элементов массива А, идущих подряд
Помогите пожалуйста неучу! :-| Задание таково: Найти наибольшее количество одинаковых элементов...

Определите количество пифагоровых троек из идущих подряд элементов последовательности
Нужно написать программу, выполняющую один раз ввод последовательности целых чисел, признаком...

Найти максимальное количество подряд идущих одинаковых элементов в одномерном массиве
Доброго времени суток, столкнулся не большой проблемой в решении задачи. Будьте добры помочь с ней....

Массив: Создать массив, состоящий из троек подряд идущих одинаковых элементов.
Решал задачку: Создать массив, состоящий из троек подряд идущих одинаковых элементов. вроде бы...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru