> 1 <

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

Ignis

Members


Статус

1 сообщений

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

#6187   2012-05-26 19:18 GMT+3 часа(ов)      
Добрый день, помогите, пожалуйста, решить задачу
Фигуры на шахматной доске заданы списком троек (фигура, горизонталь, вертикаль). Определить, находится ли на указанной вертикали указанная фигура.

megamanx

Members


Статус

307 сообщений

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

#6190   2012-05-27 20:32 GMT+3 часа(ов)      
(defparameter states 
'((K E 1)
(Q D 1)
(P E 2)
(B C 1)) "List of (group of) three")
 
(defun check-state (F V S)
(if (null S) nil
(let ((current (car S)))
(if (and (eq (car current) F)
(eq (cadr current) V))
current
(check-state F V (cdr S))))))
 
> (check-state 'K 'E states)
(K E 1)
 
> (check-state 'K 'Q states)
NIL
 
I wish I'd made you angry earlier

vp_arth

Members


Статус

9 сообщений

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

#6229   2012-06-28 00:25 GMT+3 часа(ов)      
А мну так больше нравится...
(defun cs (F V S)
(cond
((null S)nil)
((eq V (second(car S))) (eq F (car(car S))))
(t (cs F V (cdr S)))))
> 1 <


Онлайн :

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