lisp - 在common-lisp中转向递归方法-6ren

lisp - 在common-lisp中转向递归方法

转载作者：太空宇宙更新时间：2023-11-03 19:03:46

这是 3 个相互连接的井字游戏板的坐标，我想知道如何减少此代码，使其以递归方式实现。下面的所有代码只是一种方法 (vitoria):

(defun vitoria (tabuleiro)
    (or (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 1 1 2 tabuleiro)
                         (get-elem 1 1 3 tabuleiro))
        (verificacaoXO (get-elem 1 2 1 tabuleiro)
                         (get-elem 1 2 2 tabuleiro)
                         (get-elem 1 2 3 tabuleiro))
        (verificacaoXO (get-elem 1 3 1 tabuleiro)
                         (get-elem 1 3 2 tabuleiro)
                         (get-elem 1 3 3 tabuleiro))

位置 1 - 3 中级别之间的列

        (verificacaoXO (get-elem 2 1 1 tabuleiro)
                         (get-elem 2 1 2 tabuleiro)
                         (get-elem 2 1 3 tabuleiro))
        (verificacaoXO (get-elem 2 2 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 2 2 3 tabuleiro))
        (verificacaoXO (get-elem 2 3 1 tabuleiro)
                         (get-elem 2 3 2 tabuleiro)
                         (get-elem 2 3 3 tabuleiro))

位置 2 - 6 中级别之间的列

        (verificacaoXO (get-elem 3 1 1 tabuleiro)
                         (get-elem 3 1 2 tabuleiro)
                         (get-elem 3 1 3 tabuleiro))
        (verificacaoXO (get-elem 3 2 1 tabuleiro)
                         (get-elem 3 2 2 tabuleiro)
                         (get-elem 3 2 3 tabuleiro))
        (verificacaoXO (get-elem 3 3 1 tabuleiro)
                         (get-elem 3 3 2 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))

位置 3 - 9 之间的列

       (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 1 2 2 tabuleiro)
                         (get-elem 1 3 3 tabuleiro))
       (verificacaoXO (get-elem 1 3 1 tabuleiro)
                         (get-elem 1 2 2 tabuleiro)
                         (get-elem 1 1 3 tabuleiro))

顶部级别之间的线 - 11

       (verificacaoXO (get-elem 2 1 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 2 3 3 tabuleiro))
       (verificacaoXO (get-elem 2 3 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 2 1 3 tabuleiro))

中间水平线 - 13

       (verificacaoXO (get-elem 3 1 1 tabuleiro)
                         (get-elem 3 2 2 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))
       (verificacaoXO (get-elem 3 3 1 tabuleiro)
                         (get-elem 3 2 2 tabuleiro)
                         (get-elem 3 1 3 tabuleiro))

底部水平线 - 15

        (verificacaoXO (get-elem 1 3 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 3 1 3 tabuleiro))
        (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))
        (verificacaoXO (get-elem 3 1 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 1 3 3 tabuleiro))
        (verificacaoXO (get-elem 3 3 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 1 1 3 tabuleiro))

水平之间的对角线 - 19

        (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 1 2 1 tabuleiro)
                         (get-elem 1 3 1 tabuleiro))
        (verificacaoXO (get-elem 2 1 1 tabuleiro)
                         (get-elem 2 2 1 tabuleiro)
                         (get-elem 2 3 1 tabuleiro))
        (verificacaoXO (get-elem 3 1 1 tabuleiro)
                         (get-elem 3 2 1 tabuleiro)
                         (get-elem 3 3 1 tabuleiro))

1 - 22 层的行

        (verificacaoXO (get-elem 1 1 2 tabuleiro)
                         (get-elem 1 2 2 tabuleiro)
                         (get-elem 1 3 2 tabuleiro))
        (verificacaoXO (get-elem 2 1 2 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 2 3 2 tabuleiro))
        (verificacaoXO (get-elem 3 1 2 tabuleiro)
                         (get-elem 3 2 2 tabuleiro)
                         (get-elem 3 3 2 tabuleiro))

2 - 25 层的行

        (verificacaoXO (get-elem 1 1 3 tabuleiro)
                         (get-elem 1 2 3 tabuleiro)
                         (get-elem 1 3 3 tabuleiro))
        (verificacaoXO (get-elem 2 1 3 tabuleiro)
                         (get-elem 2 2 3 tabuleiro)
                         (get-elem 2 3 3 tabuleiro))
        (verificacaoXO (get-elem 3 1 3 tabuleiro)
                         (get-elem 3 2 3 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))

3 - 28 层的线路

        (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 2 1 1 tabuleiro)
                         (get-elem 3 1 1 tabuleiro))
        (verificacaoXO (get-elem 1 2 1 tabuleiro)
                         (get-elem 2 2 1 tabuleiro)
                         (get-elem 3 2 1 tabuleiro))
        (verificacaoXO (get-elem 1 3 1 tabuleiro)
                         (get-elem 2 3 1 tabuleiro)
                         (get-elem 3 3 1 tabuleiro))

1 - 31 层的列

        (verificacaoXO (get-elem 1 3 2 tabuleiro)
                         (get-elem 2 1 2 tabuleiro)
                         (get-elem 3 1 2 tabuleiro))
        (verificacaoXO (get-elem 1 2 2 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 3 2 2 tabuleiro))
        (verificacaoXO (get-elem 1 3 2 tabuleiro)
                         (get-elem 2 3 2 tabuleiro)
                         (get-elem 3 3 2 tabuleiro))

2 - 34 层的列

        (verificacaoXO (get-elem 1 3 3 tabuleiro)
                         (get-elem 2 1 3 tabuleiro)
                         (get-elem 3 1 3 tabuleiro))
        (verificacaoXO (get-elem 1 2 3 tabuleiro)
                         (get-elem 2 2 3 tabuleiro)
                         (get-elem 3 2 3 tabuleiro))
        (verificacaoXO (get-elem 1 3 3 tabuleiro)
                         (get-elem 2 3 3 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))

3 - 37 层的列

        (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 2 2 1 tabuleiro)
                         (get-elem 3 3 1 tabuleiro))
        (verificacaoXO (get-elem 1 3 1 tabuleiro)
                         (get-elem 2 2 1 tabuleiro)
                         (get-elem 3 1 1 tabuleiro))

1 - 39 级对角线

        (verificacaoXO (get-elem 1 1 2 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 3 3 2 tabuleiro))
        (verificacaoXO (get-elem 1 3 2 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 3 1 2 tabuleiro))

2 - 41 级对角线

        (verificacaoXO (get-elem 1 1 3 tabuleiro)
                         (get-elem 2 2 3 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))
        (verificacaoXO (get-elem 1 3 3 tabuleiro)
                         (get-elem 2 2 3 tabuleiro)
                         (get-elem 3 1 3 tabuleiro))

3 - 43 级对角线

        (verificacaoXO (get-elem 1 3 1 tabuleiro)
                         (get-elem 2 3 2 tabuleiro)
                         (get-elem 3 3 3 tabuleiro))
        (verificacaoXO (get-elem 3 3 1 tabuleiro)
                         (get-elem 2 3 2 tabuleiro)
                         (get-elem 1 3 3 tabuleiro))

右侧级别之间的列 - 45

        (verificacaoXO (get-elem 1 2 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 3 2 3 tabuleiro))
        (verificacaoXO (get-elem 3 2 1 tabuleiro)
                         (get-elem 2 2 2 tabuleiro)
                         (get-elem 1 2 3 tabuleiro))

中间水平之间的列 - 47

        (verificacaoXO (get-elem 1 1 1 tabuleiro)
                         (get-elem 2 1 2 tabuleiro)
                         (get-elem 3 1 3 tabuleiro))
        (verificacaoXO (get-elem 3 1 1 tabuleiro)
                         (get-elem 2 1 2 tabuleiro)
                         (get-elem 1 1 3 tabuleiro))))

中间水平之间的列 - 49

最佳答案

这是一个可能的解决方案，其中生成了坐标。每个 point 由三个整数坐标组成，分别标识一行、一列和一个平面。 triple 是一组确定直线的三个点。三元组是从一个点开始生成的，并添加两次方向(一个向量，如 (0 1 0))。消除无效的三元组。

(defun valid-coordinate(c) 
  (<= 1 c 3))
(defun valid(triple)
  (loop for point in triple always (every #'valid-coordinate point)))
(defun add(point direction)
  (mapcar #'+ point direction))
(defun make-triple(point direction)
  (let ((pv (add point direction)))
    (list point pv (add pv direction))))
(defun make-triples(point directions)
  (loop for d in directions
     as triple = (make-triple point d)
     when (valid triple)
     collect triple))
(defun make-all-triples ()
  (let ((directions-on-plane '((0 1 0)(1 0 0)(1 1 0)(-1 -1 0)))
        (3d-directions '((0 0 1)(0 1 1)(1 0 1)(1 1 1)(-1 0 1)(0 -1 1)(-1 -1 1)(1 -1 1)(-1 1 1))))
    (nconc (loop for plane from 1 to 3
              nconc (loop for r from 1 to 3
                       nconc (loop for c from 1 to 3 
                                nconc (make-triples (list r c plane) directions-on-plane))))
           (loop for r from 1 to 3
              nconc (loop for c from 1 to 3
                       as plane = 1
                       nconc (make-triples (list r c plane) 3d-directions))))))

(defun vitoria (tabuleiro)
  (loop for triple in (make-all-triples)
     thereis (apply #'verificacaoXO (loop for (r c plane) in triple
                                       collect (get-elem r c plane tabuleiro)))))

关于lisp - 在common-lisp中转向递归方法，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/33997105/

文章推荐： c# - 带有文本输入字段的 MVC 对复选框

文章推荐： c# - 获取 IP 地址 WPF 和 C# 显示问题

文章推荐： css - OnLoad 和调整大小 css 中断

Ruby 方法() 方法
我想了解 Ruby 方法 methods() 是如何工作的。我尝试使用“ruby 方法”在 Google 上搜索，但这不是我需要的。我也看过 ruby-doc.org，但我没有找到这种方法。
VBS教程：方法-Test 方法
Test 方法对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。 object.Test(string) 参数 object 必选项。总是一个
VBS教程：方法-Replace 方法
Replace 方法替换在正则表达式查找中找到的文本。 object.Replace(string1, string2) 参数 object 必选项。总是一个 RegExp 对象的名称。
VBS教程：方法-Raise 方法
Raise 方法生成运行时错误 object.Raise(number, source, description, helpfile, helpcontext) 参数 object 应为
VBS教程：方法-Execute 方法
Execute 方法对指定的字符串执行正则表达式搜索。 object.Execute(string) 参数 object 必选项。总是一个 RegExp 对象的名称。 string
VBS教程：方法-Clear 方法
Clear 方法清除 Err 对象的所有属性设置。 object.Clear object 应为 Err 对象的名称。说明在错误处理后，使用 Clear 显式地清除 Err 对象。此
VBS教程：方法-CopyFile 方法
CopyFile 方法将一个或多个文件从某位置复制到另一位置。 object.CopyFile source, destination[, overwrite] 参数 object 必选
VBS教程：方法-Copy 方法
Copy 方法将指定的文件或文件夹从某位置复制到另一位置。 object.Copy destination[, overwrite] 参数 object 必选项。应为 File 或 F
VBS教程：方法-Close 方法
Close 方法关闭打开的 TextStream 文件。 object.Close object 应为 TextStream 对象的名称。说明下面例子举例说明如何使用 Close 方
VBS教程：方法-BuildPath 方法
BuildPath 方法向现有路径后添加名称。 object.BuildPath(path, name) 参数 object 必选项。应为 FileSystemObject 对象的名称
VBS教程：方法-GetFolder 方法
GetFolder 方法返回与指定的路径中某文件夹相应的 Folder 对象。 object.GetFolder(folderspec) 参数 object 必选项。应为 FileSy
VBS教程：方法-GetFileName 方法
GetFileName 方法返回指定路径（不是指定驱动器路径部分）的最后一个文件或文件夹。 object.GetFileName(pathspec) 参数 object 必选项。应为
VBS教程：方法-GetFile 方法
GetFile 方法返回与指定路径中某文件相应的 File 对象。 object.GetFile(filespec) 参数 object 必选项。应为 FileSystemObject
VBS教程：方法-GetExtensionName 方法
GetExtensionName 方法返回字符串，该字符串包含路径最后一个组成部分的扩展名。 object.GetExtensionName(path) 参数 object 必选项。应
VBS教程：方法-GetDriveName 方法
GetDriveName 方法返回包含指定路径中驱动器名的字符串。 object.GetDriveName(path) 参数 object 必选项。应为 FileSystemObjec
VBS教程：方法-GetDrive 方法
GetDrive 方法返回与指定的路径中驱动器相对应的 Drive 对象。 object.GetDrive drivespec 参数 object 必选项。应为 FileSystemO
VBS教程：方法-GetBaseName 方法
GetBaseName 方法返回字符串，其中包含文件的基本名 (不带扩展名), 或者提供的路径说明中的文件夹。 object.GetBaseName(path) 参数 object 必
VBS教程：方法-GetAbsolutePathName 方法
GetAbsolutePathName 方法从提供的指定路径中返回完整且含义明确的路径。 object.GetAbsolutePathName(pathspec) 参数 object
VBS教程：方法-FolderExists 方法
FolderExists 方法如果指定的文件夹存在，则返回 True；否则返回 False。 object.FolderExists(folderspec) 参数 object 必选项
VBS教程：方法-FileExists 方法
FileExists 方法如果指定的文件存在返回 True；否则返回 False。 object.FileExists(filespec) 参数 object 必选项。应为 FileS

太空宇宙

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

lisp - 在common-lisp中转向递归方法