- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个代表产品的元组:
类型 Product = (String, Int, Float)
String 是名称,Int 是金额,Float 是价格或值。
现在我想做以下事情:我有一个产品列表,我想在该列表中添加一个新产品。但如果产品已经在列表中,我只想增加数量。(现在我不关心如果价格/值(value)不一样会发生什么)
“如果已在列表中,则增加该产品的数量。否则将其添加到列表中”
输入示例:("啤酒", 9, 3) [("啤酒", 1, 3),("牛奶", 3, 3),("茶", 10, 3)]
预期输出:[("啤酒", 10, 3),("牛奶", 3, 3),("茶", 10, 3)]
或
输入示例:("Apple", 2, 1) [("Beer", 1, 3),("Milk", 3, 3),("Tea", 10, 3)]
预期输出:[("啤酒", 1, 3),("牛奶", 3, 3),("茶", 10, 3),("苹果", 2, 1)]
(列表没有顺序,因此新产品在列表中的位置并不重要)
addProduct::产品 -> [产品] -> [产品]
听起来很简单,实际上我有一个可以做到这一点的工作方法:
-- check if a name is inside a List
nameInList :: String -> [Product] -> Bool
nameInList n [(a,b,c)] = if (a == n) then True else False
nameInList n ((a,b,c):xs) = if (a == n) then True else nameInList n xs
-- add a product to a list if its not already in that list else just increase amount of that product
addProduct :: Product -> [Product] -> [Product]
addProduct (a,b,c) xs = if nameInList a xs then newList else (a,b,c) : newList
where newList = [ (a2,b2+b,c2) | (a2,b2,c2) <- xs, a2 == a ] ++ [ (a2,b2,c2) | (a2,b2,c2) <- xs, a2 /= a]
但我想知道是否可以使用模式匹配和递归以某种方式实现相同的目的。我也觉得没有其他函数进行一些检查应该是可能的。
最佳答案
如果您知道您的产品列表永远不会有重复的名称,那么使用纯递归这确实非常简单:
addProduct :: Product -> [Product] -> [Product]
addProduct p [] = [p]
addProduct product@(name, amount, price) (product'@(name', amount', price') : ps)
| name == name' = (name, amount' + amount, price') : ps
| otherwise = product' : addProduct product ps
(请注意,如果以与列表中当前版本不同的价格添加产品,则会保留旧价格 - 我将根据您的业务需求来决定这是否可能以及如果可以的话应该发生什么。)
注意 as patterns 的使用允许 product
元组进行模式匹配,同时仍然保留在递归情况下引用整个事物的方式。这不是必需的,但可以使代码更具可读性。而且我还使用了守卫而不是 if-then-else - 这更多是个人喜好,但我认为 Haskellers 通常更喜欢这种方式。
关于您自己的代码的一些小注释:
(a, b, c)
与 (name, amount, price)
因为这可以清楚地向读者解释这些值实际代表什么if (a == n) then True else False
是多余的,因为它与简单的 a == n
完全相同,所以您应该使用更短、更清晰的版本。关于Haskell - 将元组添加到元组列表(如果尚不存在),否则会增加元组的现有值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68290078/
我需要从 1024 增加 FD_SETSIZE 值至 4096 .我知道最好使用 poll()/epoll()但我想了解什么是优点/缺点。主要问题是:我要重新编译glibc吗? ?我读了几个线程,其中
已关闭。这个问题是 not reproducible or was caused by typos 。目前不接受答案。 这个问题是由拼写错误或无法再重现的问题引起的。虽然类似的问题可能是 on-top
我在 HTML 文件中有这样的内容: var value = 0; add(x){ x++; do
有没有办法在用户向上滚动时增加变量,并在用户使用 JavaScript 向下滚动时减少变量?变量没有最大值或最小值,如果能够调整灵敏度就好了。我不知道从哪里开始,感谢您的帮助! 编辑:没有滚动条,因为
我是 ios 新手,遇到以下问题。 我想根据表格 View 中元素的数量增加和减少表格 View 的高度大小。如果在输入时客户端在输出时给出 3 个或超过 3 个元素,我希望看到一个比默认行大 2 行
所以我一直在四处搜索,似乎大多数人认为以下列方式递增 indexPath 是正确的方法: NSIndexPath *newIndexPath = [NSIndexPath indexPathForRo
我有一个关于 connSupervisionTimeout 的问题。 我正在使用 CoreBluetooth 编写应用程序。我检查了连接参数和 connSupervisionTimeout = 720
我正在尝试根据页面的滚动位置更改元素的填充;当用户向下滚动页面时,填充会增加,而当他们向上滚动时,填充会减少。 我的主要问题是滚动不是很流畅,有时如果我滚动到页面顶部太快,每次元素的填充大小都不一样。
我正在尝试计算 18456 个基因的相关性度量,但编译器 (Dev C) 在将宏 GENE 或 INDEX 增加到 4000 到 5000 之间的值后退出或大。例如,它适用于: # define GE
我有一个带有 position: absolute 和 CSS3 过渡的圆形元素(a 元素)。在 hover 事件中,我想增加圆的高度和宽度,但我想在所有边上添加像素,而不仅仅是在左侧或右侧。 示例如
为了改善用户体验,我计划在我网站的所有页面(A-、A、A+)上增加/减少/重置字体大小 我面临的问题是页面上不同元素使用的字体大小不统一。有些是 14px,有些是 18px,有些是 12px,有些是
本文实例讲述了Yii框架数据库查询、增加、删除操作。分享给大家供大家参考,具体如下: Yii 数据库查询 模型代码: ?
sql替换语句,用该命令可以整批替换某字段的内容,也可以批量在原字段内容上加上或去掉字符。 命令总解:update 表的名称 set 此表要替换的字段名=REPLACE(此表要替换的字段名, '原
sql不常用函数总结以及事务,增加,删除触发器 distinct 删除重复行 declare @x 申明一个变量 convert(varchar(20),t
要增加我使用的最大可用内存: export SPARK_MEM=1 g 或者我可以使用 val conf = new SparkConf() .setMaster("loca
我正在尝试将文本(自定义文本按钮)放入 AppBar 的前导属性中。但是,当文本太长时,文本会变成多行 Scaffold( appBar: AppBar( centerTi
我正在使用最新版本的 NetBeans,我需要增加输出和菜单的字体大小(不是代码部分)。我试过: netbeans_default_options=".... --fontsize 16" 但是当我将
我必须将 180000 个点绘制到一个 EPS 文件中。 使用标准 gnuplot 输出尺寸点彼此太接近,这使得它们无法区分。有没有办法增加图像的宽度和高度? 最佳答案 是的。 set termina
我有一个带有输入字段的 twitter bootstrap 3 导航栏。我想增加输入字段的宽度。我已尝试设置 col 大小,但它不起作用。 html比较长,请引用bootply http://www.
我正在尝试增加 ggplot 标题中下划线的大小/宽度/厚度。我曾尝试使用大小、宽度和长度,但没有成功。 这是我所做的一个例子。 test <- tibble(x = 1:5, y = 1, z =
我是一名优秀的程序员,十分优秀!