Давайте делиться кодом! :)) я тут после новости решил немного поразмять моск... вот что я тут накодил: ;; простенькая функция цикла... (define (loop th) (if (equal? (robot-feel (car th)) #t) (car th) (loop (cdr th)))) ;; функция возвразающая строчку с названием предмета, находящегося перед роботом (define (what-is-it?) (let ((things '("prize" "food" "space" "wall" "baddie"))) (loop things))) ;; а вот собсно оно... венец творения... искусственный интелект! xD ;; поведение прямое вдоску... робот смотри прямо, если может что-то ;; сделать с предметом перед собой, то делает, если же там пусто или ;; стена, то крутимся по часовой стрелке... если прокрутились на 360 ;; градусов, то останавливаемся... попытки двигаться ограничены переменной ;; max-steps, это чтобы робота не заклинило :)) (define (explore max-steps turn-count) (if (or (zero? max-steps) (= turn-count 4)) nil (let ((thing (what-is-it?))) (cond ((equal? thing "space") (robot-turn 1) (explore max-steps (+ turn-count 1))) ((equal? thing "wall") (robot-turn 1) (explore max-steps (+ turn-count 1))) ((equal? thing "prize") (robot-grab) (robot-move 1) (explore (- max-steps 1) 0)) ((equal? thing "food") (robot-grab) (robot-move 1) (explore (- max-steps 1) 0)) ((equal? thing "baddie") (robot-zap) (robot-move 1) (explore (- max-steps 1) 0)))))) вообщем-то и всё :) очень забавно смотреть как робот мочит жуков направо и налево, прям как живой :) надо ещё что-нить придумать поинтереснее, чтобы он передвигался по пустому пространству, и искал себе занятие :) хватило бы ему энергии... А что придумали вы? делитесь давайте!