Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Забавный факт о том, как повесить SBCL https://www.cyberforum.ru/ lisp/ thread1180157.html
Сегодня заметил, что Emacs+SBCL+Slime можно повесить обычным: (eval -) Никаких тебе предупреждений интерпретатора, а просто вылет программы. Консольный SBCL вешается двойным вызовом (eval -)...
Lisp Common LISP - взлом логического барьера
Приветствую. На досуге подумал об одной программе. Мои слабые знания не позволяют пока её реализовать. Если кто-нибудь хочет потренировать мозги, милости прошу. Суть такова: Имеются три барьера,...
Lisp Определить функцию на Лиспе, подсчитывающую количество вершин, которые имеют более трёх потомков https://www.cyberforum.ru/ lisp/ thread1177051.html
Дано S-выражение, представляющее дерево вида «(РебенокЛевый Родитель РебенокПравый)». Определить функцию, подсчитывающую количество вершин, которые имеют более трёх потомков. Например: если дано...
Lisp Числовой ребус - LISP https://www.cyberforum.ru/ lisp/ thread1176607.html
Добрый день, необходимо решить числовой ребус: Пример: УЗЕЛ + УЗЕЛ = ПЕТЛЯ каждая буква = уникальное число уникальная цифра Ответ: 6425 + 6425 = 12850 p.s. Заранее спасибо!
Lisp Помогите реализовать задачу в системе продукции
Пожалуйста, помогите разработать программу, проверяющую наличие в системе продукции цепочек вывода, ведущих к заданному символу.
Lisp Разработать программу для нахождения пути коня на шахматной доске, от одного поля до другого https://www.cyberforum.ru/ lisp/ thread1175719.html
Здравствуйте! Помогите пожалуйста написать программный код на Lispe и записку к нему. Разработать программу для нахождения пути коня на шахматной доске, начинающегося на заданном поле шахматной...
Lisp Теоретико-множественное объединение множеств элементов https://www.cyberforum.ru/ lisp/ thread1175057.html
мне нужно построить теоретико-множественное объединение множеств элементов. Я нашёл в этой теме подходящий ответ (https://www.cyberforum.ru/lisp/thread997511.html), но при вводе (union-set '(1 2 3...
Кирпич весит килограмм плюс полкирпича. Вопрос: сколько весит кирпич? Lisp
Задачка на сообразительность для выявления типа мышления: кирпич весит килограмм плюс полкирпича. Вопрос: сколько весит кирпич? (defun brick (a b) (/ a (- 1 b))) > (brick 1 0.5) 2.0 >...
Lisp XLISP логическая задача про дочерей, города и занятия Здраствуйте! Вот такая задача! Три дочери писательницы Дорис Кей - Джуди, Айрис и Линда тоже очень талантливы. Они приобрели известность в разных видах искусств - пении, балете и кино. Все они... https://www.cyberforum.ru/ lisp/ thread1173664.html Lisp Перенести в конец списка его первый элемент https://www.cyberforum.ru/ lisp/ thread1173639.html
Как сделать перенос в конец списка его первый элемент??? Добавлено через 46 секунд :cry:
Проверить равенство первого и последнего элемента Lisp
Как проверить равенство первого и последнего элемента списка ,список сами задаем. Заранее спасибо. Добавлено через 6 минут подскажите мальчики плиз...
Lisp Напишите, пожалуйста, функцию в Homelisp, которая проверяет принадлежность элемента к списку Напишите, пожалуйста, функцию в Homelisp, которая проверяет принадлежность элемента к списку. Но так, что бы список и элемент, который проверяется на принадлежность к этому списку задавался через... https://www.cyberforum.ru/ lisp/ thread1172220.html
Модератор
Эксперт функциональных языков программированияЭксперт Python
33804 / 18838 / 3972
Регистрация: 12.02.2012
Сообщений: 31,596
Записей в блоге: 12
19.05.2014, 22:23 0

Разработать программу для игры «Жизнь» - Lisp - Ответ 6197114

19.05.2014, 22:23. Показов 1925. Ответов 3
Метки (Все метки)

Ответ

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
(defun life (prev &optional (nn 10))
   (let ((w (gensym 'w)) (curr nil))
      ;; Создание окна 
      (grwCreate w  ;; имя окна 
               300  ;; Ширина  
               300  ;; Высота  
           "Жизнь"  ;; Заголовок 
           _WHITE   ;; Цвет фона           
      )
      (grwScale w   ;; идентификатор окна
             -100   ;; Xmin
              100   ;; Xmax
             -100   ;; Ymin
              100   ;; Ymax
      )
      (grwShow w 10 10)
      (draw w prev _RED)       
      (dotimes (iii nn curr)
         (grwSavePic w 0 (strCat "life-" (fix2str iii)))
         (setq curr (act prev))
         (draw w prev _WHITE)
         (draw w curr _RED)
         (setq prev curr))))
         
(defun act (config)
  (let ((new nil))
        (iter (for c in (make-bound config))  
          (let* ((ix (car c))
                 (iy (cadr c)) 
                 (k (neibor ix iy config))
                 (ok (car k))
                 (ek (cadr k)))
                 (if (member (list ix iy) config)
                 ;; в позиции клетка
                     (when (or (= ok 2) (= ok 3)) (collecting (list ix iy) into new)) ;; клетка выжила
                 ;; позиция пуста
                     (when (= ok 3) (collecting (list ix iy) into new))))) new )) ;; клетка появилась
                        
(defun make-bound (config)
  (let ((new nil) (xn 0) (yn 0))
     (iter (for c in config)
       (iter (for ix in '(-10 0 10))
          (iter (for iy in '(-10 0 10))
                (setq xn (+ ix (car c)) yn (+ iy (cadr c)))
                (when (and (<= xn 90) (>= xn -90) (<= yn 90) (>= yn -90)) (collecting (list xn yn) into new)))))
     (setof new)))
  
(defun draw (w config color)
  (mapcar #'(lambda (c) 
              (let ((xx (car c))
                    (yy (cadr c)))
                    (grwFRect w   ;; идентификатор окна
                             xx   ;; X1
                             yy   ;; Y1
                      (+ xx 10)   ;; X2
                      (+ yy 10)   ;; Y2
                          color   ;; цвет
                       ))) config))
                       
(defun neibor (x y config)
   (let ((lx '(-10 0 10))
         (ly '(-10 0 10))
         (o  0) ;; число занятых
         (e  0) ;; число свободных
         (xx 0)
         (yy 0))
        (iter (for dx in lx) 
           (iter (for dy in ly)
                 (setq xx (+ x dx) yy (+ y dy))
                 (when (and (or (/= dx 0) (/= dy 0))
                            (and (<= xx 90) (>= xx -90))
                            (and (<= yy 90) (>= yy -90)))
                       (if (member (list xx yy) config) 
                           (setq o (+ 1 o))     
                           (setq e (+ 1 e))))))
        (list o e)))
 
;; запуск                       
                       
(life '((0 0) (10 0) (20 0) (0 10) (0 -10)))


Вернуться к обсуждению:
Разработать программу для игры «Жизнь» Lisp
Изображения
    
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2014, 22:23
Готовые ответы и решения:

Разработать программу для игры «Угадывание слова»
Слова для угадывания хранятся в файле. Предусмотреть подсчет числа попыток и ограничить их...

Разработать программу для игры «Угадывание слова»
Слова для угадывания хранятся в файле. Предусмотреть подсчет числа попыток и ограничить их...

Разработать программу для игры в морской бой
Уважаемые коллеги!!!! помогите пожалуйста с этой задачей!! буду очень благодарна!!!! Разработать...

Разработать программу для игры "Ним"
очень прошу, помогите, пожалуйста, разработать программу для игры «Ним».В игре используются спички,...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2014, 22:23
Помогаю со студенческими работами здесь

Разработать программу для игры "Калах"
Пожалуйста, помогите реализовать а Лиспе алгоритм игры &quot;калах&quot;. В калах играют на доске с двумя...

Разработать программу для поиска пути в лабиринте
Здравствуйте! Помогите, пожалуйста​, разработать программу для поиска пути в лабиринте на лиспе....

Разработать иерархию не менее 2 классов, и программу Разработать программу для реализации игры пятнашки. Разработать 2-3
Составить описание класса многочленов от одной переменной, задаваемых степенью многочлена и...

Интерфейс для игры «жизнь»
Всем привет! Нужно написать интерфейс программы, в нем должно быть поле (сетка) клеток, которое...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru