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

Имеется список студентов с информацией: фамилия, имя, отчество, пол, возраст и курс. Определить самое распространенное мужское и женское имя.

13.01.2013, 13:38. Просмотров 1067. Ответов 4
Метки нет (Все метки)


Условия задачи:
Имеется список студентов с информацией: фамилия, имя, отчество, пол, возраст и курс. Определить самое распространенное мужское и женское имя.

Вот этими функциями можно пользоваться только:
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2013, 13:38
Ответы с готовыми решениями:

Имеется список студентов с информацией: фамилия, имя, отчество, пол, возраст и курс. Определить самое распространенное мужское и женское имя
Необходимо реализовать задачу на языке, Лисп. Условия задачи: Имеется список студентов с...

Комбинированный тип. База данных студентов группы. Поля: фамилия, имя, отчество, пол, возраст
Напишите программу, которая в будущем позволит работать с базой данных, содержащей две таблицы....

Организовать базу данных с информацией о сотрудниках учреждения с таким содержанием: фамилия; имя; отчество; пол
Создать систему организующей базу данных с заданной структурой и предоставляет следующий сервис:...

Структура элемента массива аттестационные карточки группы: фамилия, имя, отчество, курс, возраст
Здравствуйте,форумчане.Задание таково: Структура элемента массива аттестационные карточки...

4
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28022 / 15749 / 972
Регистрация: 15.09.2009
Сообщений: 67,776
Записей в блоге: 78
13.01.2013, 13:42 2
перепечатывайте текстовую часть задания на форум ручками.
0
4478 / 4192 / 350
Регистрация: 12.05.2012
Сообщений: 2,952
13.01.2013, 13:48 3
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
(defparameter w '((ivanov ivan ivanovich m 20 2) 
                  (petrov ivan ivanovich m 20 2)
                  (petrova anna ivanovna f 20 2)
                  (petrova inna ivanovna f 20 2)
                  (ivanova anna ivanovna f 20 2)))
 
(defun popular-names (w &optional m f)
  (cond ((null w) (list (caar (sort m #'> :key #'cadr))
                        (caar (sort f #'> :key #'cadr))))
        ((member (cadar w) m :key #'car) (popular-names (cdr w) m f))
        ((member (cadar w) f :key #'car) (popular-names (cdr w) m f))
        ((eql (cadddr (car w)) 'm)
         (popular-names (cdr w)
                        (cons (list (cadar w)
                                    (count (cadar w) w :key #'cadr))
                              m)
                        f))
        ((popular-names (cdr w)
                        m
                        (cons (list (cadar w)
                                    (count (cadar w) w :key #'cadr))
                              f)))))
 
> (popular-names w)
(IVAN ANNA)
0
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 6
13.01.2013, 14:00  [ТС] 4
Этими функциями можно пользоваться только:
append
appy
atom
car
cdr
cond
cons
defstruct
defun
eq
eval
format
funcall
if
let
list
mapcar
maplist
member
print
progn
quote
read
reverse
trace
untrace
0
4478 / 4192 / 350
Регистрация: 12.05.2012
Сообщений: 2,952
13.01.2013, 14:45 5
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
(defparameter w '((ivanov ivan ivanovich m 20 2) 
                  (petrov ivan ivanovich m 20 2)
                  (petrova anna ivanovna f 20 2)
                  (petrova inna ivanovna f 20 2)
                  (ivanova anna ivanovna f 20 2)))
 
(defun drop-one (w &optional acc ac)
  (cond ((null w) acc)
        ((member (car w) ac) (drop-one (cdr w) (cons (car w) acc) ac))
        ((drop-one (cdr w) acc (cons (car w) ac)))))
 
(defun max-occur (w)
  (if (cdr w) (max-occur (drop-one w)) (car w)))
 
(defun names-s (w p)
  (cond ((null w) nil)
        ((eq (cadar w) p) (cons (caar w)  (names-s (cdr w) p)))
        ((names-s (cdr w) p))))
 
(defun names (w)
  (mapcar #'(lambda (a) (list (cadr a) (cadddr a))) w))
 
(defun popular-names (w)
  (mapcar #'max-occur (list (names-s (names w) 'm) (names-s (names w) 'f))))
 
> (popular-names w)
(IVAN ANNA)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2013, 14:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Структуры (вычислить самое распространенное женское имя)
Доброго времени суток! Не могу понять почему у меня строка не копируется. Решил заранее проверить...

«Студент»: фамилия; имя; отчество; пол; национальность; номер телефона; ВУЗ; курс; группа; средний бал; специальность
«Студент»: фамилия; имя; отчество; пол; национальность; номер телефона; ВУЗ; курс; группа; средний...

Найти самое распространенное женское имя среди имен массива
я здесь сделал немного но не знаю как теперь сравнивать чтобы оно нашло самое распространенное...

Написать программу, которая вводит информацию и печатает самое распространенное женское имя
Прошу помощи, болит голова х) Задача: На основе таблицы, содержащей следующую информацию о группе...

Записи. У одной невесты имеется список женихов: фамилия, имя, возраст, счет в банке
Помогите пожалуйста с решением задачи! У одной невесты имеется список женихов: фамилия, имя,...

Дан список студентов, состоящий из записей: фамилия, имя, возраст, вес, рост
Ребята прошу прошения. Но мне опять нужна ваша помощь . Я очень признательна тем людям которые...


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

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

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