组合满足相同约束的未知类型的元组

如何解决组合满足相同约束的未知类型的元组

简而言之

给出this function

> :i set
set ::
  ( VividAction m                    -- This isn't important.,Subset (InnerVars params) sdArgs -- This says `params` is a subset of
                                     -- `sdArgs`,perhaps in a 
                                     -- different order.,VarList params) =>               -- A `VarList` is just a tuple.
  Synth sdArgs -> params -> m ()

和两个满足第二个约束的值paramsparams',可以创建一个将params''和{{1 }}?

详细信息

我使用Vivid库从Haskell控制SuperCollider。 Vivid使您可以创建“合成器”,使声音发出声音并接受许多参数,然后向其发送消息。

键入这些消息。将消息发送到合成器看起来像这样:

params

其中“频率”和“振幅”应为params'接受的两个参数。如果您要求操纵不属于> :set -XDataKinds > set mySynth (120 :: I "frequency",0.1 :: I "amplitude") > set mySynth () -- Also valid. Messages can have any number of terms. 定义的参数,Vivid将在编译时抱怨。这反映在the function set的类型中:

mySynth

mySynth表示合成器接受的参数,> :i set set :: ( VividAction m -- This isn't important.,VarList params) => -- A `VarList` is just a tuple. Synth sdArgs -> params -> m () -- Defined in ‘Vivid.Actions’ 表示sdArgs必须是这些参数的子集。 (我相信Vivid的大多数花哨的类型级代码可能都在Vivid.SynthDef.TypesafeArgs模块中。)

我的问题是,我正在使用我的库monome grid从称为Montevideo的控制器生成许多同时发生的单例消息,例如(120 :: I“ frequency”)。消息的数量似乎使SuperCollider不堪重负-我收到的便条和挂起的便条,对我来说,这意味着已丢弃的消息。我想通过将那些同时发送的消息作为一个大元组发送,而不是分别发送每个消息,以减少程序的带宽。但是我不知道合并的元组是什么类型,所以我无法创建它!

我想写一个像这样的函数:

Subset (InnerVars params) sdArgs

这样,如果我的合成器接受“ freq”,“ amp”和“ wobble”,我可以打电话给params并期望得到concatTuples :: ( Subset (InnerVars params) sdArgs,VarList params) => [params] -> params 或交换它。

可以写concatTuples [(1 :: I "wobble"),(440 :: I "freq")]吗?

(编辑:Joachim Breitner explains我为(1 :: I "wobble",440 :: I "freq)建议的类型签名没有意义。但是也许another one有用吗?)

有些不重要

出现的实现问题是,如果两个元组包含相同类型的元素,则该如何合并-例如两者都有频率。我不在乎如何解决-使用第一个,使用第二个,死掉-因为我不会遇到这种情况。

解决方法

仅关注

我想写一个像这样的函数:

concatTuples ::
 ( Subset (InnerVars params) sdArgs,VarList params) =>
     [params] -> params

这样,如果我的合成器接受“ freq”,“ amp”和“ wobble”,我可以 致电concatTuples [(1 :: I "wobble"),(440 :: I "freq")],并期望 得到(1 :: I "wobble",440 :: I "freq")或交换它。

这是不可能的:concatTuples有一个类型参数params,在对concatTuples的调用中,它只能代表一种特殊类型。

在示例中要传入和传出的值是不同类型的(即I "wobble"( I "wobble",I "freq"))。这行不通。

我的印象是您想以一种非常独特的方式为Haskell做事和/或生动活泼,也许有人更了解vidid可以为您指出如何实现您的实际目标,即如何进行编码这就是您最终不想连接元组的原因。

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

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 <select id="xxx"> SELECT di.id, di.name, di.work_type, di.updated... <where> <if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 <property name="dynamic.classpath" value="tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams['font.sans-serif'] = ['SimHei'] # 能正确显示负号 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 -> 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("/hires") 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<String
使用vite构建项目报错 C:\Users\ychen\work>npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-