Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 26.09.2010
Сообщений: 20
1

Реализовать функцию (@COUNT object list test) и (@COUNT-IF test list)

23.05.2013, 10:31. Показов 1320. Ответов 3
Метки нет (Все метки)

Реализовать функции (@COUNT object list test) и (@COUNT-IF test list) , возвращающие количество элементов в списке list, для которых (test object element) есть не NIL. Здесь element - текущий элемент списка list. Если аргумент test опущен, то test = EQUAL. Для второй функции предикат test является одноместным.
Примеры: (@COUNT 'А '(А В С D А Е)) => 2
(@COUNT '5 '(2 9 -7 4) '>) => 3
(@COUNT-IF 'MINUSP '(3 -6 8 7 -2)) => 2


если кто знает, помогите пожалуйста, я вообще не знаю этот язык((
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2013, 10:31
Ответы с готовыми решениями:

List.count = ?
может и баян, но хотелось бы узнать сколько практически вмещает строк listbox?

List.Count
Здравствуйте, создал список из 50 элементов (назвал его lim) В ходе выполнения кода, постепенно...

Нюансы синтаксиса: statement for - как понимать запись for (count=0, mask=1; count != 16; count++, mask<<= 1)?
Много всяких языков попадалось, относительно много конечно, но такое вижу первый раз, что бы тело...

Nginx перенаправляет на http://site.ru/test.ru или http://test.ru/test.ru
Только, что поставил nginx + php-fpm по этой статье -...

3
Модератор
Эксперт Python
29005 / 15791 / 3141
Регистрация: 12.02.2012
Сообщений: 25,934
Записей в блоге: 4
23.05.2013, 10:58 2
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
(defun @count (obj lst &optional (test 'equal))
  (apply '+ (mapcar #'(lambda (x) (if (funcall test obj x) 1 0)) lst)))
 
 
==> @count
 
(@COUNT 'А '(А В С D А Е))
 
 
==> 2
 
(@COUNT '5 '(2 9 -7 4) '>)
 
==> 3
 
(defun @count-if (test lst)
  (apply '+ (mapcar #'(lambda (x) (if (funcall test x) 1 0)) lst)))
 
 
==> @count-if
 
(@COUNT-IF 'MINUSP '(3 -6 8 7 -2))
 
==> 2
2
0 / 0 / 0
Регистрация: 26.09.2010
Сообщений: 20
23.05.2013, 11:25  [ТС] 3
Catstail, На языке ЛИСП должны быть реализованы задание ( извлечение
информации из сложных структур данных с помощью рекурсивных функций)
тогда нужна другая программа?)
0
4533 / 4239 / 359
Регистрация: 12.05.2012
Сообщений: 2,981
23.05.2013, 11:47 4
Известны результаты бега спортсменов на длинную дистанцию. Время представлено в минутах и секундах. Определить фамилию победителя соревнования.
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
(defstruct run name mm ss)
 
(defun res (n)
  (when (> n 0) (cons (make-run :name (read) :mm (read) :ss (read))
                      (res (1- n)))))
 
(defun name-ss (w)
  (mapcar #'(lambda (a) (list (run-name a)
                              (+ (* (run-mm a) 60) (run-ss a))))
          w))
 
(defun r-sort (w)
  (sort (name-ss w) #'< :key #'cadr))
 
(defun winner (w)
  (caar (r-sort w)))
 
> (setq 3km (res 2)) 
ivanov
10
54
petrov
9
37
(#S(RUN :NAME IVANOV :MM 10 :SS 54) #S(RUN :NAME PETROV :MM 9 :SS 37))
> (winner 3km)
PETROV
Добавлено через 1 минуту
Известны результаты бега спортсменов на длинную дистанцию. Время представлено в минутах и секундах. Определить разницу между лучшим и худшим результатом.
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
(defstruct run name mm ss)
 
(defun res (n)
  (when (> n 0) (cons (make-run :name (read) :mm (read) :ss (read))
                      (res (1- n)))))
 
(defun name-ss (w)
  (mapcar #'(lambda (a) (list (run-name a)
                              (+ (* (run-mm a) 60) (run-ss a))))
          w))
 
(defun r-sort (w)
  (sort (name-ss w) #'< :key #'cadr))
 
(defun advantage (w &aux (v (r-sort w)))
  (- (cadar (last v)) (cadar v)))
 
> (setq 3km (res 2)) 
ivanov
10
54
petrov
9
37
(#S(RUN :NAME IVANOV :MM 10 :SS 54) #S(RUN :NAME PETROV :MM 9 :SS 37))
> (advantage 3km)
77
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2013, 11:47

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Универсальное преобразование List<object> -> List<MyClass>
Пытаюсь написать нечто универсальное для преобразования сущностей из БД (таблицы) в сущности C#...

Как отобразить List<List<object>> в ListView
Здравствуйте всем! не могу разобраться: значит есть список списков List&lt;List&lt;object&gt;&gt; list(24...

Ошибка MySQL error: Column count doesn't match value count at row 1
Подскажите, пожалуйста где тут ошибка? Вылазит ошибка: MySQL error: Column count doesn't match...

Ошибка в запросе: Column count doesn't match value count at row 1
Здравствуйте, я новичок в изучении php и sql. При добавлении новой книги в БД необходимо выбрать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.