Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > LISP > Список и проверка на соответствие

Автор: Tomsk11 13.1.2013, 12:31

Вот еще задача. Вроде несложная, но то, что написал- не работает.
Условие задачи:
Определите функцию (f N V P), которая выдает список всех элементов списка V, удовлетворяющих некоторому предикату P и встречающихся в исходном списке более N раз.

Автор: Catstail 14.1.2013, 14:21

Пойдет?

(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 16.1.2013, 09:24

Код


(defun massp (n w p)
  (labels ((mass  (n v p)
             (cond ((null v) nil)
                   ((> (count (car v) v) n)
                    (cons (car v) (mass n (delete (car v) v) p)))
                   ((mass n (cdr v) p)))))
    (mass n (remove-if-not p w) p)))

> (massp  2 '(1 2 3 1 3 2 3 2 2) #'evenp)
(2)
> (massp  2 '(1 2 3 1 3 2 3 2 2) #'oddp)
(3)

Автор: Tomsk11 9.3.2013, 15:30

Приветствую! Но в XLisp это не работает.
В XLispe немного тяжело отлаживать программу.

Автор: _sg 10.3.2013, 18:26

Код


(defun massp (n w p)
  (mass n w p nil))

(defun mass (n w p v)
  (cond ((null w) v)
        ((and (funcall p (car w))
              (not (mmb (car w) v)) 
              (> (cnt (car w) w) n))
         (mass n (cdr w) p (cons (car w) v)))
        ((mass n (cdr w) p v))))

(defun mmb (a w)
    (cond ((null w) nil)
    ((eql a (car w)) (cons (car w) (cdr w)))
    ((mmb a (cdr w)))))

(defun cnt (a w)
    (cond ((null w) 0)
          ((eql a (car w)) (+ 1 (cnt a (cdr w))))
          ((cnt a (cdr w)))))

> (massp  2 '(1 2 3 1 3 2 3 2 2) #'evenp)
(2)
> (massp  2 '(1 2 3 1 3 2 3 2 2) #'oddp)
(3)

Автор: _sg 25.4.2014, 16:57

как вариант Common Lisp:

Код


(defun massp (n w p)
  (labels ((mass  (n v p)
             (when v (if (> (count (car v) v) n)
                         (cons (car v) (mass n (delete (car v) v) p))
                         (mass n (cdr v) p)))))
    (mass n (remove-if-not p w) p)))

> (massp  2 '(1 2 3 1 3 2 3 2 2) #'evenp)
(2)
> (massp  2 '(1 2 3 1 3 2 3 2 2) #'oddp)
(3)