haskell - 解析模式:? [closed]中的错误

Question

Closed. This question is not reproducible or was caused by typos。它当前不接受答案。












想改善这个问题吗？更新问题，以便将其作为 on-topic用于堆栈溢出。

3年前关闭。



Improve this question




我是Haskell的新手，并尝试构建简单的 billing system for a Fastfood stall。我定义了 linkItem function(在代码的最后一部分)，该代码在整个列表中进行操作，
本地函数 linkBill，仅作用于一个元素。 linkBill寻找
匹配的代码，返回相关的账单类型，或导致运行时错误
如果 itemDb中没有这样的代码条目。

import Data.List
import Data.Char

type Name = String
type Code = Int
type Price = Float
type ToatalQtity = Int

type Db = [(Code,Name,Price,ToatalQtity)]

itemDb :: Db
itemDb = [(1234,"Chicken Lollypop",250.00,50),
          (2222,"Chili Mushroom",150.00,50),
          (1111,"Paneer Pakora",100.00,100),
          (4719,"Fish Fingers",121.00,100),
          (1235,("Tandoori Chicken",200.00,50))]

type ItemCode = [Code]
type BillType = [(Name,Price)]

till :: ItemCode
till = [1234,2222,1111,4719,1235]

lookupBy :: (a -> Maybe b) -> [a] -> Maybe b
lookupBy f [] = Nothing
lookupBy f (x:xs) = case f x of
                  Nothing -> lookupBy f xs
                  r       -> r

linkItem :: ItemCode -> BillType
linkItem = map linkBill 
         where linkBill code' = case lookupBy (matchingCode code') itemDb of 
                                Just item -> item 
                                Nothing -> Error "**WRONG CODE, NO ITEMFOUND**"
                                matchingCode (code') (code,name,price,_) 
                                                          | (code' == code) = Just (name,price)
                                                          | otherwise = Nothing

并且每当我编译它时，它就会显示如下错误:

billing.hs:48:34: error: Parse error in pattern: matchingCode
   |
48 |       matchingCode (code') (code,name,price)     
   |       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
                                                | (code' == code) = Just (name,price)
   Failed, 0 modules loaded

我认为 matchingCode函数声明在这里做错了我不知道什么？我该怎么做才能摆脱这些错误？

最佳答案

缩进where中的函数定义的代码的缩进级别相同:

linkItem :: ItemCode -> BillType
linkItem = map linkBill where
  linkBill code' = case lookupBy (matchingCode code') itemDb of 
    Just item -> item 
    Nothing   -> error "**WRONG CODE, NO ITEMFOUND**"
  matchingCode code' (code, name, price, _) | code' == code = Just (name, price)
                                            | otherwise     = Nothing

您还需要 error而不是 Error(假设您确实要使用 error进行错误处理)。

关于haskell - 解析模式:? [closed]中的错误，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/47467422/

上一篇：scala - 构建和使用自定义 scala-library 来扩展原始数据类型

下一篇：haskell - Haskell类型错误编译

相关文章：

compiler-errors - Sqoop2 : Compile fails: missing org.apache.sqoop:sqoop-core:test-jar:tests:2.0.0-SNAPSHOT

java - <identifier> 创建对象列表时出现预期错误

javascript - 使用 FRP 和 Bacon.js 优雅地处理双击和单击

haskell - `do` 和 `where` 怎么混？

oop - 接口(interface)属于即席多态性(即重载)还是子类型多态性？

compiler-errors - 错误 "CPU you selected does not support x86-64 instruction set"是什么意思？

c - 跨函数在内部共享变量

function - 如何在 Rust 中实现多级柯里化(Currying)函数？

haskell - 将二进制转换为十进制 Haskell

haskell - 函数式编程语言中的调用站点代码替换

Answer 1

缩进where中的函数定义的代码的缩进级别相同:

linkItem :: ItemCode -> BillType
linkItem = map linkBill where
  linkBill code' = case lookupBy (matchingCode code') itemDb of 
    Just item -> item 
    Nothing   -> error "**WRONG CODE, NO ITEMFOUND**"
  matchingCode code' (code, name, price, _) | code' == code = Just (name, price)
                                            | otherwise     = Nothing

您还需要 error而不是 Error(假设您确实要使用 error进行错误处理)。