| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Strucka
Зарегистрирован: 15.09.2006
Сообщения: 4
|
 Добавлено: Сб Июн 02 2007 18:21 Заголовок сообщения: Lisp |
 |
|
Здравствуйте!
Есть такой код в коммон лисп
| Код: | (defun matr (m)
(cond ((and
(> (length m) (length (car m)))
(not (= (car (car m)) 0))
)
"No")
((and
(= (length m) 1)
(= (length (car m)) 1)
)
"Yes")
( (= (length (car m)) 1)
(matr (cdr m)) )
(1
(matr (cons (cdr (car m)) (cdr m)))
)
)
)
(matr (list '(1 0 0)
'(1 2 0)
'(1 2 3)
)) |
как переделать код из комон лиспа в шеме помогите пожалуйста!
Задача: Задана матрица. Проверить является ли матрица нижней треугольной. Матрица задана в виде списка списков. |
|
| Вернуться к началу |
|
 |
vir
Зарегистрирован: 17.05.2007
Сообщения: 24
|
| Добавлено: Ср Июн 06 2007 11:29 Заголовок сообщения: |
|
|
(defun matr (m)
-->
(define (matr m)
? |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
