> 1 <

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

207

Members


Статус

1 сообщений

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

#7665   2015-11-09 20:34 GMT+3 часа(ов)      
Здравствуйте. Есть задача решена 2 способами на языке Scheme (ide racket), помогите пожалуйста решить эту же задачу с помощью макросов.

Условие: Координаты двух векторов заданы в виде списка. Определить являются ли эти векторы ортогональными.

Сама задача:
#lang racket
(define list1 (list 2 2))
(define list2 (list 3 -3))
 
(define (var1 l1 l2)
(cond ((null? l1) 0)
((null? l2) 0)
(else (+
(* (car l1) (car l2))
(var1 (cdr l1) (cdr l2))))))
 
(define (var2 l1 l2)
(cond ((null? l1) 0)
((null? l2) 0)
(else
(apply +(map * l1 l2)))))
 
(if (= (var2 list1 list2) 0) 'ortogonalni 'neortogonalni)


Заранее спасибо.
> 1 <


Онлайн :

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




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