> 1 <

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

matrix33rus

Members


Статус

2 сообщений

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

#5664   2012-02-03 20:57 GMT+3 часа(ов)      
Помогите пожалуйста вот с этими двумя задачами... Буду ооочень благодарен:
1. Выдать список подсписков, находящихся на указанном уровне для заданного списка.
2. Сформировать в виде файла две матрицы размерности не более 5, найти их разность и записать в файл.

VH

Members


Статус

289 сообщений

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

#5665   2012-02-03 21:53 GMT+3 часа(ов)      
1.
(defun F (L N &optional acc)
(if (zerop N)
(if L
(if (atom (car L))
(F (cdr L) N)
(cons (car L) (F (cdr L) N))))
(if L
(F
(cdr L)
N
(if (atom (car L))
acc
(append (car L) acc)))
(F acc (1- N)))))

L - список, N - уровень (уровень 0 - выдать список подсписков исходного списка)

matrix33rus

Members


Статус

2 сообщений

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

#5669   2012-02-04 01:18 GMT+3 часа(ов)      
спасибо... помогите пожалуйста еще со второй задачей!!!

megamanx

Members


Статус

307 сообщений

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

#5719   2012-02-05 23:11 GMT+3 часа(ов)      
(defun mrx-sub(M N)
(labels ((sub-list (A B R)
(if A
(sub-list (cdr A) (cdr B) (append R (list (- (car A) (car B))))) R))
(sub-mrx (M N R)
(if M
(sub-mrx (cdr M) (cdr N) (append R (list (sub-list (car M) (car N) nil)))) R)))
(sub-mrx M N nil)))
 
(defun read-file (filename)
(with-open-file (input-stream filename)
(with-standard-io-syntax (read input-stream))))
 
(defun solve (file1 file2)
(mrx-sub (read-file file1) (read-file file2))
)
Пример файла
((1 2 3 4 5)
(6 70 8 9 0)
(1 2 3 4 5)
(6 7 8 9 0)
(1 2 3 4 2))
I wish I'd made you angry earlier
> 1 <


Онлайн :

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




Реклама на сайте: