> 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 пользователь(ей), 51 гость(ей) :