Работа со списком

(defun del-over-aver (w)
  (over-aver w (/ (sum w) (len w))))
 
(defun len (w)
  (if w (1+ (len (cdr w))) 0))
 
(defun sum (w)
  (if w (+ (car w) (sum (cdr w))) 0))
 
(defun over-aver (w n)
  (cond ((null w) nil)
        ((> (car w) n) (over-aver (cdr w) n))
        ((cons (car w)(over-aver (cdr w) n)))))
 
> (del-over-aver '(1 2 3 4 5 6 7))
(1 2 3 4)

(defun eventh-max-minusp (w)
  (eventh w (max-minusp w)))
 
(defun eventh (w n)
  (when (cdr w) (cons (car w) (cons n (eventh (cddr w) n)))))
 
(defun max-minusp (w)
  (reduce #'max (remove-if-not #'minusp w)))
 
> (eventh-max-minusp '(-2 -1 0 1 2 3))
(-2 -1 0 -1 2 -1)

(defun _reverse (w &optional ac)
  (if w (_reverse (cdr w) (cons (car w) ac)) ac))
 
> (_reverse '(1 2 3 4 5))
(5 4 3 2 1)

//
//  Программа отображения диалога _Dlg_
//
 
(prog nil
 
      (try (dlgDestroy '_Dlg_) except Nil)
 
      (dlgCreate '_Dlg_ 695 200 "Работа со списками" &H8000000F)
 
      (dlgAddControl '_Dlg_ '_LBL_1 _LABEL 15 21 109 20 '("Tahoma" 8,25 1 0 0) "Исходный список:" 0 &H80000012 &H8000000F)
 
      (dlgAddControl '_Dlg_ '_TXT_1 _TEXT 142 11 531 33 '("Tahoma" 16 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ '_BUT_1 _BUTTON 15 54 158 50 '("Tahoma" 8,25 1 0 0) "Удаление больших ср.ар.")
 
      (dlgAddControl '_Dlg_ '_BUT_2 _BUTTON 183 54 158 50 '("Tahoma" 8,25 1 0 0) "Замена четных на макс отр.")
 
      (dlgAddControl '_Dlg_ '_BUT_3 _BUTTON 352 54 158 50 '("Tahoma" 8,25 1 0 0) "Обращение списка")
 
      (dlgAddControl '_Dlg_ '_TXT_2 _TEXT 144 119 534 33 '("Tahoma" 16 1 0 0) "" 0 &H80000008 &H80000005)
 
      (dlgAddControl '_Dlg_ '_LBL_2 _LABEL 16 126 116 21 '("Tahoma" 8,25 1 0 0) "Результат" 0 &H80000012 &H8000000F)
 
      (dlgAddControl '_Dlg_ '_BUT_4 _BUTTON 519 54 158 50 '("Tahoma" 8,25 1 0 0) "Завершить")
 
      //
      // Пролог загрузки диалога _DLG_
      //
 
      (Prog () 
 
         (defun p1 (lst)
           (let* ((n (length lst))
                  (s (apply '+ lst))
                  (avg (/ s n)))
                 (remove-if #'(lambda (x) (> x avg)) lst)))
 
         (defun max-neg (lst)
           (apply 'max (remove-if #'(lambda (x) (>= x 0)) lst)))
 
         (defun p2 (lst)
           (let ((mn (max-neg lst)))
                (iter (for i in lst) (collecting (if (evenp i) mn i)))))
            
         (defun p3 (lst)
           (reverse lst))  
 
      )
 
      //
      // Обработчик события CLICK для кнопки _BUT_1
      //
 
      (defun _BUT_1_Click  Nil 
 
        (try
         (dlgPutText '_TXT_2  (output (p1 (input (dlgGetText '_txt_1)))))
        except
         (say "Ошибка! Проверьте ввод."))  
 
      )
 
      //
      //   Назначение процедуры-события _BUT_1_Click  контролу _BUT_1
      //
 
      (dlgSetEvent '_BUT_1 '_BUT_1_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_2
      //
 
      (defun _BUT_2_Click  Nil 
 
        (try
         (dlgPutText '_TXT_2  (output (p2 (input (dlgGetText '_txt_1)))))
        except
         (say "Ошибка! Проверьте ввод."))  
 
      )
 
      //
      //   Назначение процедуры-события _BUT_2_Click  контролу _BUT_2
      //
 
      (dlgSetEvent '_BUT_2 '_BUT_2_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_3
      //
 
      (defun _BUT_3_Click  Nil 
 
        (try
         (dlgPutText '_TXT_2  (output (p3 (input (dlgGetText '_txt_1)))))
        except
         (say "Ошибка! Проверьте ввод."))  
 
      )
 
      //
      //   Назначение процедуры-события _BUT_3_Click  контролу _BUT_3
      //
 
      (dlgSetEvent '_BUT_3 '_BUT_3_Click )
 
      //
      // Обработчик события CLICK для кнопки _BUT_4
      //
 
      (defun _BUT_4_Click  Nil 
 
         (say "Пока...")
         (dlgHide '_dlg_)
         (dlgDestroy '_dlg_) 
 
      )
 
      //
      //   Назначение процедуры-события _BUT_4_Click  контролу _BUT_4
      //
 
      (dlgSetEvent '_BUT_4 '_BUT_4_Click )
 
      //
      //   Отображение диалога _Dlg_
      //
 
      (dlgShow '_Dlg_)
)

(cond (условие1 формы1)
    ...
    (условиеn формыn)
    (t формы-иначе))

(defun _reverse (w &optional ac)
  (if w (_reverse (cdr w) (cons (car w) ac)) ac))
 
(defun eventh-max-minusp (w)
  (eventh w (max-minusp w)))
 (defun eventh (w n)
  (when (cdr w) (cons (car w) (cons n (eventh (cddr w) n)))))
 (defun max-minusp (w)
  (reduce #'max (remove-if-not #'minusp w)))
 
(defun del-over-aver (w)
  (over-aver w (/ (sum w) (len w))))
 (defun len (w)
  (if w (1+ (len (cdr w))) 0))
 (defun sum (w)
  (if w (+ (car w) (sum (cdr w))) 0))
 (defun over-aver (w n)
  (cond ((null w) nil)
        ((> (car w) n) (over-aver (cdr w) n))
        ((cons (car w)(over-aver (cdr w) n)))))
 
(defun menu ()
(print "Список:")(print list)
(print '»>)
(print "МЕНЮ:")
(print "1 - Удаление элементов из списка, которые больше среднего арифметического")
(print "2 - Замена значений элементов с четными номерами на значение максимального отрицательного элемента")
(print "3 - Обращение списка")
(print '»>)
(set 'A (read))
(cond
 
((EQ A 1) (set 'list(del-over-aver del-over-aver)) (menu))
 
((EQ A 2) (set 'list(eventh-max-minusp eventh-max-minusp)) (menu))
 
((EQ A 3) (set 'list(_reverse _reverse)) (menu))
 
(T (menu)) ))
(set 'del-over-aver '(1 2 3 4 5 6 7))
(set 'eventh-max-minusp '(-2 -1 0 1 2 3))
(set '_reverse '(1 2 3 4 5))
(menu)