Запрограммируйте игру 3x3 LISP

@Alternosfera · Регистрация: 21.10.2020

Студворк — интернет-сервис помощи студентам

Запрограммируйте игру 3x3. 8 квадратов 3x3 заняты жетонами с номерами 1, 2,…, 8. Перемещать жетон в свободную позицию разрешается только в том случае, если этот жетон имеет общую сторону со свободной позицией.

@Alternosfera · 23.10.2020, 19:14 **[ТС]**

Такая школьная задача. Помогите пожалуйста

@Catstail · 23.10.2020, 21:42

Alternosfera, правила и цель игры? Я такой игры не знаю.

@Alternosfera · 23.10.2020, 21:55 **[ТС]**

как мне объяснили, это не игра а проста матрица 3х3, которая выполняет шаги, которые нарисованы.

@Black Fregat · 23.10.2020, 22:04

Типа "15", но не 15, а только 8?

@Alternosfera · 23.10.2020, 22:17 **[ТС]**

да, помогите если это возможно

@sodda · 24.10.2020, 15:58

Я бы помог, да мне что-то лень. Да и не на CL делал бы. Это в GUI надо или нужен только алгоритм?
Матрица 2x4. Один элемент - nil.
Функция проверки - если элемент nil, то можно менять элементы местами. Если нет - то ничего не делать.
Посмотрите реализацию игры "жизнь" на Lisp. Думаю поможет отчасти.

@Alternosfera · 24.10.2020, 16:03 **[ТС]**

только алгоритм нужен

@sodda · 24.10.2020, 18:16

Alternosfera, ну алгоритм я выше описал.
Допусти у вас есть матрица - желательно написать функцию, которая будет ее создавать каждый раз - размером 3x3.

Lisp
1
2
3
(define cells '((7 3 5)
                (2 1 6)
                (8 4  0)))

Где, например, ноль - это свободная позиция куда можно передвинуть число.

Тогда печататься матрица будет так

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(define (print-matrix)
    (for ((i cells))
      (for ((j i))
        (if (equal? 0 j)
            (printf "  ")
            (printf "~a " j)))
      (printf "\n")))
 
  (print-matrix)
    
 получим 
 
7 3 5
2 1 6
8 4

Нужно при перемещении проверять равно ли значение нулю. если да, то менять элементы местами в матрице.
Допустим вы хотите переместить 4 на свободную позицию. тогда в нужно проверить является ли девятый элемент в матрице равным нулю.
Если да, то меняете в матрице элемент 4 0 местами.
Тогда получим

@Catstail · 24.10.2020, 19:54

Цель игры - расставить числа по строкам в порядке возрастания

@helter · 24.10.2020, 21:53

Вероятно, поиск по графу сработает. Состояние поля - вершина графа. Вершины смежные, если состояние можно получить из второго перемещением жетона. И запустить поиск по графу из данной вершины, пытаясь дойти до конечной. Просмотренные состояния можно хранить как ключи в хеш-таблице, ассоциируя с ними путь, по которому они найдены. Или можно для состояний по какому-то правилу генерировать символы и хранить путь в их списках свойств. Но без знания языка этого не напишешь.

Добавлено через 1 минуту
Хотя, наверно, путь и необязательно хранить вместе с вершинами.

@Black Fregat · 24.10.2020, 22:57

Сообщение от helter

Вероятно, поиск по графу сработает.

Очень тяжёлая задача, даже на этом поле. Тупой перебор будет очень долго искать, нужны эвристики..

@sodda · 24.10.2020, 23:22

helter, нужно просто рассчитать индекс свободного поля в матрице и хранить его в переменной и индекс перемещаемого значения.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Alternosfera 0 / 0 / 0 Регистрация: 21.10.2020 Сообщений: 11

	Common Lisp Запрограммируйте игру 3x3 LISP 21.10.2020, 23:10. Показов 998. Ответов 12 Метки lisp, programming (Все метки) Запрограммируйте игру 3x3. 8 квадратов 3x3 заняты жетонами с номерами 1, 2,…, 8. Перемещать жетон в свободную позицию разрешается только в том случае, если этот жетон имеет общую сторону со свободной позицией. Изображения 0

@Alternosfera 0 / 0 / 0 Регистрация: 21.10.2020 Сообщений: 11
	23.10.2020, 19:14 [ТС]
	Такая школьная задача. Помогите пожалуйста 0

@Catstail Супер-модератор 38175 / 21110 / 4307 Регистрация: 12.02.2012 Сообщений: 34,712 Записей в блоге: 14
	23.10.2020, 21:42
	Alternosfera, правила и цель игры? Я такой игры не знаю. 0

@Alternosfera 0 / 0 / 0 Регистрация: 21.10.2020 Сообщений: 11
	23.10.2020, 21:55 [ТС]
	как мне объяснили, это не игра а проста матрица 3х3, которая выполняет шаги, которые нарисованы. 0

@Black Fregat Фрилансер 3709 / 2083 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	23.10.2020, 22:04
	Типа "15", но не 15, а только 8? 1

@Alternosfera 0 / 0 / 0 Регистрация: 21.10.2020 Сообщений: 11
	23.10.2020, 22:17 [ТС]
	да, помогите если это возможно 0

@sodda Заблокирован
	24.10.2020, 15:58
	Я бы помог, да мне что-то лень. Да и не на CL делал бы. Это в GUI надо или нужен только алгоритм? Матрица 2x4. Один элемент - nil. Функция проверки - если элемент nil, то можно менять элементы местами. Если нет - то ничего не делать. Посмотрите реализацию игры "жизнь" на Lisp. Думаю поможет отчасти. 0

@Alternosfera 0 / 0 / 0 Регистрация: 21.10.2020 Сообщений: 11
	24.10.2020, 16:03 [ТС]
	только алгоритм нужен 0

@Catstail Супер-модератор 38175 / 21110 / 4307 Регистрация: 12.02.2012 Сообщений: 34,712 Записей в блоге: 14
	24.10.2020, 19:54
	Цель игры - расставить числа по строкам в порядке возрастания 0

@helter 4528 / 3522 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	24.10.2020, 21:53
	Вероятно, поиск по графу сработает. Состояние поля - вершина графа. Вершины смежные, если состояние можно получить из второго перемещением жетона. И запустить поиск по графу из данной вершины, пытаясь дойти до конечной. Просмотренные состояния можно хранить как ключи в хеш-таблице, ассоциируя с ними путь, по которому они найдены. Или можно для состояний по какому-то правилу генерировать символы и хранить путь в их списках свойств. Но без знания языка этого не напишешь. Добавлено через 1 минуту Хотя, наверно, путь и необязательно хранить вместе с вершинами. 1

@sodda Заблокирован
	24.10.2020, 23:22
	helter, нужно просто рассчитать индекс свободного поля в матрице и хранить его в переменной и индекс перемещаемого значения. 1