|
|
|
Tomsk11 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 13 Регистрация: 3.4.2011 Репутация: нет Всего: нет |
Вот еще задача. Вроде несложная, но то, что написал- не работает.
Условие задачи: Определите функцию (f N V P), которая выдает список всех элементов списка V, удовлетворяющих некоторому предикату P и встречающихся в исходном списке более N раз. |
|||
|
||||
Catstail |
|
|||
Новичок Профиль Группа: Участник Сообщений: 17 Регистрация: 14.1.2013 Репутация: нет Всего: нет |
Пойдет?
(defun task (x n p) (cond ((null x) nil) (t (let* ((v (car x)) (w (remove v x)) (k (- (length x) (length w)))) (if (and (funcall p v) (>= k n)) (cons v (task w n p)) (task w n p)))))) ==> task (task '(1 2 3 1 2 3 2 2 4 6) 2 #'evenp) ==> (2) |
|||
|
||||
_sg |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 119 Регистрация: 16.5.2007 Репутация: 2 Всего: 2 |
--------------------
vk.com/ansicommonlisp |
|||
|
||||
Tomsk11 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 13 Регистрация: 3.4.2011 Репутация: нет Всего: нет |
Приветствую! Но в XLisp это не работает.
В XLispe немного тяжело отлаживать программу. |
|||
|
||||
_sg |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 119 Регистрация: 16.5.2007 Репутация: 2 Всего: 2 |
--------------------
vk.com/ansicommonlisp |
|||
|
||||
_sg |
|
|||
Шустрый Профиль Группа: Участник Сообщений: 119 Регистрация: 16.5.2007 Репутация: 2 Всего: 2 |
как вариант Common Lisp:
--------------------
vk.com/ansicommonlisp |
|||
|
||||
Правила форума LISP | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | LISP | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |