- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
此代码导致堆栈溢出错误 - 你们中的任何人都可以看到我遗漏的可能导致它的任何内容吗?我已经完成了所有函数并将它们设置为仅返回任意值,但堆栈溢出错误仍然出现..
module Reversi where
import Data.List
-- Position type and utility functions
type Position = (Int, Int)
-- Given a Position value, determine whether or not it is a legal position on the board
isValidPos :: Position -> Bool
isValidPos (a,b)
| a > 8 || b > 8 = False
| a < 1 || b < 1 = False
| otherwise = True
-- Player type and utility functions
data Player = PlayerWhite | PlayerBlack deriving (Eq)
instance Show Player where
show PlayerWhite = "white"
show PlayerBlack = "black"
-- Given a Player value, return the opponent player
otherPlayer :: Player -> Player
otherPlayer a
| a == PlayerWhite = PlayerBlack
| otherwise = PlayerWhite
-- Piece type and utility functions
data Piece = Piece Position Player deriving (Eq)
instance Show Piece where
show (Piece _ PlayerWhite) = " W"
show (Piece _ PlayerBlack) = " B"
-- Given a Player value and a Piece value, does this piece belong to the player?
isPlayer :: Player -> Piece -> Bool
isPlayer a (Piece (x,y) z)
| a == z = True
| otherwise = False
-- Given a Piece value, determine who the piece belongs to
playerOf :: Piece -> Player
playerOf a
| show a == " W" = PlayerWhite
| otherwise = PlayerBlack
-- Flip a piece over
flipPiece :: Piece -> Piece
flipPiece (Piece (x,y) z)
| z == PlayerWhite = (Piece (x,y) PlayerBlack)
| otherwise = (Piece (x,y) PlayerWhite)
-- Board type and utility functions
type Board = [Piece]
-- The initial configuration of the game board
initialBoard :: Board
initialBoard =
[
Piece (3,4) PlayerWhite, Piece (4,4) PlayerBlack,
Piece (3,3) PlayerBlack, Piece (4,3) PlayerWhite
]
-- Given a Position value, is there a piece at that position?
isOccupied :: Position -> Board -> Bool
isOccupied (x,y) b
| any (\(Piece b c) -> b == (x,y)) b = True
| otherwise = False
-- Which piece is at a given position?
-- Return Nothing in the case that there is no piece at the position
-- Otherwise return Just the_piece
pieceAt :: Position -> Board -> Maybe Piece
pieceAt (x,y) b
| isOccupied (x,y) b = (find (\(Piece (a,b) player) -> (a,b) == (x,y)) b)
| otherwise = Nothing
-- ***
-- Determine if a particular piece can be placed on a board.
-- There are two conditions:
-- (1) no two pieces can occupy the same space, and
-- (2) at least one of the other player's pieces must be flipped by the placement of the new piece.
validMove :: Piece -> Board -> Bool
validMove (Piece (x,y) p) b
| isOccupied (x,y) b && toFlip (Piece (x,y) p) b /= [] = True
| otherwise = False
-- ***
-- Determine which pieces would be flipped by the placement of a new piece
toFlip :: Piece -> Board -> [Piece]
toFlip (Piece (x,y) player) b
| validMove (Piece (x,y) player) b = (getLineDir (-1,-1) (Piece (x,y) player) b) ++
(getLineDir (-1,0) (Piece (x,y) player) b) ++
(getLineDir (-1,1) (Piece (x,y) player) b) ++
(getLineDir (0,-1) (Piece (x,y) player) b) ++
(getLineDir (0,0) (Piece (x,y) player) b) ++
(getLineDir (0,1) (Piece (x,y) player) b) ++
(getLineDir (1,-1) (Piece (x,y) player) b) ++
(getLineDir (1,0) (Piece (x,y) player) b) ++
(getLineDir (1,1) (Piece (x,y) player) b)
| otherwise = []
-- ***
-- Auxillary function for toFlip.
-- You don't have to use this function if you prefer to define toFlip some other way.
-- Determine which pieces might get flipped along a particular line
-- when a new piece is placed on the board.
-- The first argument is a vector (pair of integers) that describes
-- the direction of the line to check.
-- The second argument is the hypothetical new piece.
-- The return value is either the empty list,
-- a list where all pieces belong to the same player,
-- or a list where the last piece belongs to the player of the hypothetical piece.
-- Only in the last case can any of the pieces be flipped.
getLineDir :: (Int, Int) -> Piece -> Board -> [Piece]
getLineDir (x1,y1) (Piece (x,y) player) b
| isOccupied (x*x1, y*y1) b && (pieceAt (x, y) b) == (pieceAt (x*x1, y*y1) b) = (concat . concat) (map (\(Piece (x,y) player) -> drop 1 [filter (\(Piece (x,y) player) -> (x,y) == (x*x1, y*y1)) b]++[(getLineDir (x*x1, y*y1) (Piece (x,y) player) b)]) b)
| otherwise = []
--getLineDir :: (Int, Int) -> Piece -> Board -> [Piece]
--getLineDir (x1,y1) (Piece (x,y) player) b
-- | isOccupied (x*x1, y*y1) b && (pieceAt (x, y) b) == (pieceAt (x*x1, y*y1) b) = (Piece (x, y) player):(getLineDir (x*x1, y*y1) (Piece (x,y) player) b)
-- | otherwise = []
-- ***
-- Auxillary function for toFlip.
-- You don't have to use this function if you prefer to define toFlip some other way.
-- Given the output from getLineDir, determine which, if any, of the pieces would be flipped.
--flippable :: [Piece] -> [Piece]
-- ***
-- Place a new piece on the board. Assumes that it constitutes a validMove
makeMove :: Piece -> Board -> Board
makeMove p b = [p]++b
-- ***
-- Find all valid moves for a particular player
allMoves :: Player -> Board -> [Piece]
allMoves p ((Piece (x,y) plr):bs) =
if p == plr then ( toFlip (Piece (x,y) p) [Piece (x,y) p]++bs )++(allMoves p bs) else []
--allMoves :: Player -> Board -> [Piece]
--allMoves p b
-- | filter (\(Piece (x,y) player) -> player == p) b /= [] = (concat . concat) (map (\x -> drop 1 [filter (\(Piece (x,y) player) -> player == p) b]++[(toFlip x b)] ) (filter (\(Piece (x,y) player) -> player == p) b))
-- | otherwise = []
-- ***
-- Count the number of pieces belonging to a player
score :: Player -> Board -> Int
score player [] = 0 score player ((Piece pos plr):bs) = if player == plr then 1 + score player bs else score player bs
-- Decide whether or not the game is over. The game is over when neither player can make a validMove
isGameOver :: Board -> Bool
isGameOver b
| allMoves PlayerBlack b == [] && allMoves PlayerWhite b == [] = True
| otherwise = False
-- Find out who wins the game.
-- Return Nothing in the case of a draw.
-- Otherwise return Just the_Player
winner :: Board -> Maybe Player
winner b
| score PlayerWhite b > score PlayerBlack b = Just PlayerWhite
| score PlayerWhite b < score PlayerBlack b = Just PlayerBlack
| otherwise = Nothing
最佳答案
这可能是由永无止境的递归引起的。您可能想深入了解 getLineDir
哪个递归并且不清楚它是否完成。
您可能还想使用调试器来跟踪代码的执行情况(请参阅 http://www.haskell.org/ghc/docs/6.10.4/html/users_guide/ghci-debugger.html )。
此外,您的代码可以简化。每次你有这样的事情:
f :: a -> Bool
f a | someGuard = True
| otherwise = False
f :: a -> Bool
f a = someGuard
[x]++xs
最好这样做:
x : xs
. (见
makeMove
)
flipPiece :: Piece -> Piece
flipPiece (Piece (x,y) z)
| z == PlayerWhite = (Piece (x,y) PlayerBlack)
| otherwise = (Piece (x,y) PlayerWhite)
flipPiece :: Piece -> Piece
flipPiece (Piece xy PlayerWhite) = Piece xy PieceBlack
flipPiece (Piece xy PlayerBlack) = Piece xy PieceWhite
关于debugging - 用 Haskell 编写的黑白棋游戏中的 Stackoverflow 错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16905744/
我已经使用 vue-cli 两个星期了,直到今天一切正常。我在本地建立这个项目。 https://drive.google.com/open?id=0BwGw1zyyKjW7S3RYWXRaX24tQ
您好,我正在尝试使用 python 库 pytesseract 从图像中提取文本。请找到代码: from PIL import Image from pytesseract import image_
我的错误 /usr/bin/ld: errno: TLS definition in /lib/libc.so.6 section .tbss mismatches non-TLS reference
我已经训练了一个模型,我正在尝试使用 predict函数但它返回以下错误。 Error in contrasts<-(*tmp*, value = contr.funs[1 + isOF[nn]])
根据Microsoft DataConnectors的信息我想通过 this ODBC driver 创建一个从 PowerBi 到 PostgreSQL 的连接器使用直接查询。我重用了 Micros
我已经为 SoundManagement 创建了一个包,其中有一个扩展 MediaPlayer 的类。我希望全局控制这个变量。这是我的代码: package soundmanagement; impo
我在Heroku上部署了一个应用程序。我正在使用免费服务。 我经常收到以下错误消息。 PG::Error: ERROR: out of memory 如果刷新浏览器,就可以了。但是随后,它又随机发生
我正在运行 LAMP 服务器,这个 .htaccess 给我一个 500 错误。其作用是过滤关键字并重定向到相应的域名。 Options +FollowSymLinks RewriteEngine
我有两个驱动器 A 和 B。使用 python 脚本,我在“A”驱动器中创建一些文件,并运行 powerscript,该脚本以 1 秒的间隔将驱动器 A 中的所有文件复制到驱动器 B。 我在 powe
下面的函数一直返回这个错误信息。我认为可能是 double_precision 字段类型导致了这种情况,我尝试使用 CAST,但要么不是这样,要么我没有做对...帮助? 这是错误: ERROR: i
这个问题已经有答案了: Syntax error due to using a reserved word as a table or column name in MySQL (1 个回答) 已关闭
我的数据库有这个小问题。 我创建了一个表“articoli”,其中包含商品的品牌、型号和价格。 每篇文章都由一个 id (ID_ARTICOLO)` 定义,它是一个自动递增字段。 好吧,现在当我尝试插
我是新来的。我目前正在 DeVry 在线学习中级 C++ 编程。我们正在使用 C++ Primer Plus 这本书,到目前为止我一直做得很好。我的老师最近向我们扔了一个曲线球。我目前的任务是这样的:
这个问题在这里已经有了答案: What is an undefined reference/unresolved external symbol error and how do I fix it?
我的网站中有一段代码有问题;此错误仅发生在 Internet Explorer 7 中。 我没有在这里发布我所有的 HTML/CSS 标记,而是发布了网站的一个版本 here . 如您所见,我在列中有
如果尝试在 USB 设备上构建 node.js 应用程序时在我的树莓派上使用 npm 时遇到一些问题。 package.json 看起来像这样: { "name" : "node-todo",
在 Python 中,您有 None单例,在某些情况下表现得很奇怪: >>> a = None >>> type(a) >>> isinstance(a,None) Traceback (most
这是我的 build.gradle (Module:app) 文件: apply plugin: 'com.android.application' android { compileSdkV
我是 android 的新手,我的项目刚才编译和运行正常,但在我尝试实现抽屉导航后,它给了我这个错误 FAILURE: Build failed with an exception. What wen
谁能解释一下?我想我正在做一些非常愚蠢的事情,并且急切地等待着启蒙。 我得到这个输出: phpversion() == 7.2.25-1+0~20191128.32+debian8~1.gbp108
我是一名优秀的程序员,十分优秀!