Здравствуйте!
Есть такой код в коммон лисп
(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)
))

как переделать код из комон лиспа в шеме помогите пожалуйста!
Задача: Задана матрица. Проверить является ли матрица нижней треугольной. Матрица задана в виде списка списков. [Ответ]