> 1 <

Автор Сообщение

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#924   2009-12-27 19:58 GMT+3 часа(ов)      
Всегда привыкла рассчитывать на себя. На Haskell, Java мучилась , но писала сама, а LISP не понимаю... но сейчас очень надо решить задачку про глубину списка 3 способами: без использования циклов и функций присваивания, с их использованием и если исходные данные заданы массивом(возможно списков). Нужно на завтра, а то не получу зачет. Сижу плачу... Пожалуйста, помогите...

У меня даже есть некоторые коды для этой задачи, но я не понимаю, что они делают и если преподаватель спросит - не отвечу...

ru-lisper

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#925   2009-12-27 21:17 GMT+3 часа(ов)      
Сдается, что толпы студентов-раздолбаев прикидываются тут несчастными девушками в надежде разжалобить суровых Лисперов

Выход простой:
Девушки (настоящие), если хотите получить решение, сиськи в студию! (как у tem-ы ;)
с табличкой в руках "для lisp.ru"

обещаю что первый решу вам задание.

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#926   2009-12-27 21:42 GMT+3 часа(ов)      
ru-lisper, мне не смешно...единственное что может меня подтвердить это ссылка на профиль контакте, где местом учебы будет мех-мат а мой ник здесь будет и там ником.
Неужели, если вы знаете, сложно ответить?

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#927   2009-12-27 22:08 GMT+3 часа(ов)      
Пожалуйста...

atamaan

Members


Статус

13 сообщений

Где: Russia
Род занятий:
Возраст:

#928   2009-12-27 22:15 GMT+3 часа(ов)      
Ссылку в студию )))
Любить, и разум сохранить, едва ли могут сами боги...

Dark

Members


Статус

25 сообщений

Где: Russia
Род занятий:
Возраст:

#929   2009-12-27 22:50 GMT+3 часа(ов)      
Пиздец, ну когда же закончится сессиия у людей.... А виноваты в том что студяги заёбывают те кто им помогает! Тепло и Ласка, почему не подошла раньше к преподавателю? Нужно было задалбывать препода вопросами, он всё таки за это деньги получает.

Dark

Members


Статус

25 сообщений

Где: Russia
Род занятий:
Возраст:

#931   2009-12-27 22:52 GMT+3 часа(ов)      
А может задание по подробней опишете? И это, освайвай фотошоп :-D

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#932   2009-12-27 23:06 GMT+3 часа(ов)      
atamaan, http://vkontakte.ru/id5894771
Dark, смысл в том, что я тест по лекциям на максимальный бал написала, а с задачками не справилась. Он тем, кто задачки сделал поставил, а на тест ему пофиг....
насчет задачки: Найти максимальную глубину списка двумя способами без использования циклов и и функций присваивания(первый способ) и с ними(второй способ)
Дальше нужно решить эту же задачу, если данные заданы массивом (возможно массивом списков).
Вот какие коды у меня есть.
4.3. Есть список, написать программу, возвращающую максимальную глубину списка. Сделать двумя способами с использованием функций присваивания и циклов и без их использования.
Функция DEPTH определяет максимальную глубину списка без использования циклов и функций присваивания, когда исходные данные заданы списком
(defun DEPTH (X)
(cond((atom X) 0)
(T((lambda (e1 e2)
(if (> e1 e2) e1 e2))
(1+ (DEPTH (car X)))(DEPTH (cdr X)))
)
)
)
(DEPTH ‘((1 6) 7 ((8 4) 3)))
Результат: 3
Система функций d_search и depth_search определяют максимальную глубину списка
(defun d_search (count maximum L1)
(DO ((n 1 (+ 1 n)) (L L1 (cdr L)))
((> n (length L1)) maximum)
(cond ((atom (car L)) (if (> count maximum) (setq maximum count) maximum) )
(t (setq maximum (d_search (+ 1 count) maximum (car L))))
)
)
)
(defun depth_search (L1)
(COND
((NULL L1) 0)
((atom L1) 0)
(t(d_search 1 1 L1))
)

)


(depth_search ‘((1 6) 7 ((8 4) 3)))
Результат: 3

4.4 Решить предыдущую задачу если данные заданы массивом (возможно массивом списков).
(defun vector-list (vector)
(do ((i (1- (length vector)) (1- i))
(res nil (cons (aref vector i) res)))
((< i 0)
res)))

Dark

Members


Статус

25 сообщений

Где: Russia
Род занятий:
Возраст:

#934   2009-12-27 23:25 GMT+3 часа(ов)      
Ага, задачу понял. Теперь не пойму что тебе нужно :-D вроде ж решила

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#935   2009-12-28 00:03 GMT+3 часа(ов)      
Во-первых проверить правильно ли, если что подкорректировать.
Последняя с массивами вот такой код
(defun vector-list (vector)
(do ((i (1- (length vector)) (1- i))
(res nil (cons (aref vector i) res)))
((< i 0)
Res)
)
)

(defun depth_search (L1)
(COND
((NULL L1) 0)
((ARRAYP L1) (d_search 1 1 (vector-list L1)))
((atom L1) 0)
(t(d_search 1 1 L1))
)

)
И еще одна задача которую я вообще не знаю как решать
написать систему функций, которая описывала бы формулу:
y(N) = сумма по i от 1 до n произведение по j от 1 до n (корень из i/j + 1)

Fallen_s4e

Members


Статус

114 сообщений
http://lisper.ru
Где: Zimbabwe lisper.ru
Род занятий: fallen_s4e
Возраст: 8

#936   2009-12-28 00:13 GMT+3 часа(ов)      
(defun Y(n)
(loop for i from 1 to n sum
(apply #'* (loop for j from 1 to n collect
(sqrt (1+ (/ i j)))
))))
Вроде так.
Если я правильно понял это : ( sqrt (1+ (/ i j)))

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#937   2009-12-28 00:22 GMT+3 часа(ов)      
Fallen_s4e, спасибо, только я не понимаю вот этого apply #'* collect да и loop

не ( sqrt (1+ (/ i j))), а (1 + sqrt (/ i j))

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#938   2009-12-28 00:36 GMT+3 часа(ов)      
В любом случае, всем спасибо. Отправила преподавателю на почту. Буду ждать ответа.
Надеюсь, больше ничего не спросит.

Dark

Members


Статус

25 сообщений

Где: Russia
Род занятий:
Возраст:

#939   2009-12-28 00:40 GMT+3 часа(ов)      
(defun glubina(spisok)
(cond
; первый элемент списка атом и он же единственный
((and (atom (car spisok)) (null (cdr spisok))) 1)
; первый элемент списка является списком
((not (atom (car spisok )))
((lambda (a b) (if (> a b) a b)) (1+ (glubina (car spisok))) (glubina (cdr spisok))))
; и
(t (glubina (cdr spisok)))
)
)

Fallen_s4e

Members


Статус

114 сообщений
http://lisper.ru
Где: Zimbabwe lisper.ru
Род занятий: fallen_s4e
Возраст: 8

#941   2009-12-28 00:53 GMT+3 часа(ов)      
Если интересно - почитайте, очень доступно
http://pcl.catap.ru/doku.php?id=pcl:loopforblackbelts
Вкратце loop - навороченный макрос "цикл". У него есть sum - все просуммирует, collect - соберет в список. Да и много чего.
(apply #'+ '(1 2)) <=> (+ 1 2)
Применить функцию к списку

ТеПлО и ЛаСкА

Members


Статус

8 сообщений

Где: Russia Саратов
Род занятий:
Возраст: 32

#943   2009-12-28 02:08 GMT+3 часа(ов)      
Dark, Ваш вариант отличается от моего. Так как я "сделала" и отправила неправильно? Надо было как у Вас?

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

Dark

Members


Статус

25 сообщений

Где: Russia
Род занятий:
Возраст:

#944   2009-12-28 05:20 GMT+3 часа(ов)      
Твой вариант работает, просто я не вкурил твой алгоритм сразу.
> 1 <


Онлайн :

0 пользователь(ей), 38 гость(ей) :