为什么我不能在 `foldr` 的 lambda 函数中使用“isJust”?

如何解决为什么我不能在 `foldr` 的 lambda 函数中使用“isJust”?

我目前正在用 Haskell 为原始编程语言编写解释器。 我试图在解释之前查看正在分析的当前程序是否正确键入。基本上我最终得到的是一个名为 maybeList 的列表,如果它们是正确的,它包含初始化变量的映射,如果它们不正确,则包含 Nothing,如下所示:

[Maybe [(k,v)]]

我正在尝试使用此功能折叠此列表

foldr (\x y -> (isJust x) && (isJust y)) True maybeList

根据我对 Haskell 和 foldr 函数的了解,这应该可行。但是,它给了我错误:

Couldn't match expected type ‘Bool’ with actual type ‘Maybe a0’ 
In the expression:

 foldr (\ x y -> (isJust x) && (isJust y)) True maybeList

我要问的是,为什么编译器不知道 isJust 函数返回一个布尔值,而是一直将其视为 Maybe a0 类型?

附言我知道一个简单的 elem Nothing maybeList 可以代替它。但我想了解为什么这不起作用

解决方法

foldrreducing 函数将与初始元素类型相同的第二个参数作为第二个参数:

foldr (\x y -> (isJust x) && (isJust y)) True maybeList
--        \_______________________________/    
--                         |
--          these two must be the same type

所以 yBool 类型,但您正在考虑它是 Maybe a 类型。

因此,foldr (\x y -> (isJust x) && y) True maybeList 是正确的解决方案。

,

A /usr/bin/omxplayer.bin: relocation error: /lib/arm-linux-gnueabihf/libpthread.so.0: symbol _libc_dlopen_mode version GLIBC_PRIVATE not defined in file libc.so.6 with link time reference accumulator 作为第二个参数。实际上,foldr 的类型是:

foldr

这里的 foldr :: Foldable f => (a -> b -> b) -> b -> f a -> b 是概念上从右到左的累加器的类型,而 b 是列表的项目。

由于您在 a 中使用 True,因此这意味着累加器,因此 foldr (\x y -> isJust x && isJust y) True 也是 y 类型。

我们可以通过以下方式实现:

Bool

然而,我们在这里不需要 foldr (\x y -> isJust x && y) True maybeList。您在这里确定的是所有项目是否都是 foldr。因此,我们可以使用 all :: Foldable f => (a -> Bool) -> f a -> Bool:

Just …
,

问题出在 isJust y 部分,y 是列表尾部折叠的结果,因此类型为 Bool。就像您提供给 True 函数的第二个参数 foldr 一样。

您不能对 isJust 类型的值调用 Bool。一个简单的解决方法是省略 isJust

我得到的完整错误信息是:

<interactive>:3:16: error:
    • Couldn't match expected type ‘Maybe a’ with actual type ‘Bool’
    • In the expression: (isJust x) && (isJust y)
      In the first argument of ‘foldr’,namely
        ‘(\ x y -> (isJust x) && (isJust y))’
      In the expression:
        foldr (\ x y -> (isJust x) && (isJust y)) True maybeList
    • Relevant bindings include
        y :: Maybe a (bound at <interactive>:3:11)
        it :: Maybe a (bound at <interactive>:3:1)

<interactive>:3:42: error:
    • Couldn't match expected type ‘Maybe a’ with actual type ‘Bool’
    • In the second argument of ‘foldr’,namely ‘True’
      In the expression:
        foldr (\ x y -> (isJust x) && (isJust y)) True maybeList
      In an equation for ‘it’:
          it = foldr (\ x y -> (isJust x) && (isJust y)) True maybeList
    • Relevant bindings include
        it :: Maybe a (bound at <interactive>:3:1)

这表明 GHC 对它的解释是错误的。它认为您打算让某些 Maybe a0 的结果为 a0 类型。那么 foldr 的第二个参数,即 True 类型错误,lambda 的结果类型错误。

,

foldr 的类型是

foldr :: (a -> b -> b) -> b -> t a -> b 

这意味着您的 lamda 表达式应该采用 Bool 作为它的第二个参数,而在您的情况下,它需要一个 Maybe

,

@Ismor 有正确的解释。

注意 Haskell 有一个库函数*

all :: (a -> Bool) -> [a] -> Bool
all f = foldr (\x y -> f x && y) True

所以foldr (\x y -> isJust x && y) True maybeList的解等价于all isJust maybeList

因此,解决方案与规范完全一样:检查 maybeList 的所有元素是否都是 Just => all isJust maybeList

* 从技术上讲,all 的类型是

all :: (Foldable f) => (a -> Bool) -> f a -> Bool

因此,可以检查实现 Foldable 类型类的任何类型构造函数,以查看其所有元素是否满足特定谓词。因此,您可以将其用于树、列表、Maybes 等。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-
参考1 参考2 解决方案 # 点击安装源 协议选择 http:// 路径填写 mirrors.aliyun.com/centos/8.3.2011/BaseOS/x86_64/os URL类型 软件库URL 其他路径 # 版本 7 mirrors.aliyun.com/centos/7/os/x86
报错1 [root@slave1 data_mocker]# kafka-console-consumer.sh --bootstrap-server slave1:9092 --topic topic_db [2023-12-19 18:31:12,770] WARN [Consumer clie
错误1 # 重写数据 hive (edu)&gt; insert overwrite table dwd_trade_cart_add_inc &gt; select data.id, &gt; data.user_id, &gt; data.course_id, &gt; date_format(
错误1 hive (edu)&gt; insert into huanhuan values(1,&#39;haoge&#39;); Query ID = root_20240110071417_fe1517ad-3607-41f4-bdcf-d00b98ac443e Total jobs = 1
报错1:执行到如下就不执行了,没有显示Successfully registered new MBean. [root@slave1 bin]# /usr/local/software/flume-1.9.0/bin/flume-ng agent -n a1 -c /usr/local/softwa
虚拟及没有启动任何服务器查看jps会显示jps,如果没有显示任何东西 [root@slave2 ~]# jps 9647 Jps 解决方案 # 进入/tmp查看 [root@slave1 dfs]# cd /tmp [root@slave1 tmp]# ll 总用量 48 drwxr-xr-x. 2
报错1 hive&gt; show databases; OK Failed with exception java.io.IOException:java.lang.RuntimeException: Error in configuring object Time taken: 0.474 se
报错1 [root@localhost ~]# vim -bash: vim: 未找到命令 安装vim yum -y install vim* # 查看是否安装成功 [root@hadoop01 hadoop]# rpm -qa |grep vim vim-X11-7.4.629-8.el7_9.x
修改hadoop配置 vi /usr/local/software/hadoop-2.9.2/etc/hadoop/yarn-site.xml # 添加如下 &lt;configuration&gt; &lt;property&gt; &lt;name&gt;yarn.nodemanager.res