Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 19.05.2014
Сообщений: 5
1

Разработать программу для игры «Жизнь»

19.05.2014, 18:36. Показов 1623. Ответов 3

3. Разработать программу для игры «Жизнь».
Игра моделирует жизнь поколений гипотетической колонии живых клеток, которые выживают, размножаются или погибают в соответствии со следующими правилами. Клетка выживает, если и только если она имеет двух или трех соседей из восьми возможных. Если у клетки только один сосед или вовсе ни одного, она погибает в изоляции. Если клетка имеет четырех или более соседей, она погибает от перенаселения. В любой пустой позиции, у которой ровно три соседа, в следующем поколении появляется новая клетка. Предусмотреть задание размеров поля и случайную или ручную расстановку клеток.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2014, 18:36
Ответы с готовыми решениями:

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

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

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

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

__________________
3
Модератор
Эксперт Python
28543 / 15412 / 3046
Регистрация: 12.02.2012
Сообщений: 25,265
Записей в блоге: 4
19.05.2014, 20:21 2
Как-то так должно это выглядеть?
0
Миниатюры
Разработать программу для игры «Жизнь»  
0 / 0 / 0
Регистрация: 19.05.2014
Сообщений: 5
19.05.2014, 20:34  [ТС] 3
По идее - да.
0
Модератор
Эксперт Python
28543 / 15412 / 3046
Регистрация: 12.02.2012
Сообщений: 25,265
Записей в блоге: 4
19.05.2014, 22:23 4
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)))
2
Изображения
    
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2014, 22:23

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.