Переписать выражения на Лисп, объяснить, что может быть в качестве аргументов

⇐ Предыдущая 2 3 4 567 8 9 10 11 Следующая ⇒

Выделить 5-е число в списке.

Удалить из списка 5-й элемент.

Написать функции на Лиспе и Пленере, объяснить, почему так написали.

Тест Тьюринга. Написать на Пленере кусок Elizы по заданному диалогу.

Экзамен 2009 (прошлого) года

(был один на всех):

2) Что такое личность? Что такое конформизм? Привести примеры конформизма, объяснить, почему конформизм является защитным механизмом личности.

Автоматический конформизм — одна из защитных программ поведения, задача которой — устранить противоречие между индивидом и обществом за счёт утраты индивидом его неповторимых человеческих качеств.

В некоторых обществах, защитное поведение индивидуума включает декларацию (явную или не явную) самого себя патриотом, и социальная адаптация выдается за патриотизм. В частности, вставание при исполнении государственного гимна может быть проявлением патриотизма в такой же степени, как и автоматического конформизма.

Под «личность ю» понимают:

1) человеческого индивида как субъекта отношений и сознательной деятельности («лицо» — в широком смысле слова)

2) устойчивую систему социально значимых черт, характеризующих индивида как члена того или иного общества или общности.

Lisp: [давненько не писал на нем; увидите косяки - поправляйте]

(defun del5th

(lambda (List)

(del5thWithDeathCountdown List 4) //отсчёт с 0, поэтому 4 а не 5

)

(defun del5thWithDeathCountdown // по сути это delete_Nth_Elem

(lambda (List Number)

(cond //выбираем одно из действий:

((null List) nil) //список кончился раньше чем надо

((= Number 0) (cdr list)) //дошли до нужного элемента

(T (cons (car List) (del5thWithDeathCountdown (cdr List) (- Number 1))))

)

Planner:

[define del5th (lambda (List)

[cond

([lt [length.List] 5].List) //если длина меньше 5, то исходный список

(T (<head 4.List> <rest 5.List>)) // иначе слить первые 4 и все кроме первых 5

]

)]

Lisp:

(defun Beg5(lambda(L) (car(cddddr L)))) //вроде больше четырех a или d не бывает

// больше 5 не бывает. по крайней мере, если верить лекциям.

// если не бывает, раскрыть соответственно (car (cdr (cdr (cdr (cdr L)))))

//(defun Beg5(lambda(L) (nth 5 L))) ололо

Planner:

[ define Beg5 (lambda(L) [ elem 5.L ]) ] // или [ define Beg5 (lambda(L) [ 5.L ]) ]

Если переменная X имеет значение (1 2), а переменная Y – значение (3 4)

а) (.Х.У) → ((1 2) (3 4)) - на Лиспе: (list X Y)

б) (!.Х.У) → (1 2 (3 4)) - на Лиспе: (append X (cons Y ())

в) (.Х!.У) → ((1 2) 3 4) – на Лиспе: (cons X Y)

г) (!.Х!.У) → (1 2 3 4) – на Лиспе: (append X Y)

д) ([1.X] [3.X] [5.X]) →(у Пильщикова написано, что это ошибка будет!) вроде (1 1 1) - на Лиспе (list (car X) (caddddr X) (caddr X)) \ (list (nth 1 X)(nth 3 X)(nth 5 X))

clisp на неверные значения функции nth выдаёт nil. В плэнере будет исключение (exception).

5) По картинке построить семантическую сеть и соответствующие утверждения Пленеровской базы данных (на картинке изображена проекция башни из кубиков на пл-ть):

_____X_____

___xX_Xx

_xX_____Xx_

⇐ Предыдущая 2 3 4 567 8 9 10 11 Следующая ⇒

Поделиться с друзьями:

Дата добавления: 2015-06-27; Просмотров: 296; Нарушение авторских прав?; Мы поможем в написании вашей работы!

Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет

studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление

Генерация страницы за: 0.007 сек.