- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试对非monadic a->函数,StateT和IORef之间更新字段的性能差异进行基准测试。我的基准代码如下:
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE BangPatterns #-}
module Main where
import Control.Monad.State.Strict
import Criterion.Main
import Data.IORef
import Data.List
newtype MyStateT s m a = MyStateT { unMyStateT :: StateT s m a }
deriving (Functor, Applicative, Monad, MonadState s)
runMyStateT = runStateT . unMyStateT
data Record = Record
{ ra :: Int
, rb :: String
, rc :: Int
, rd :: Int
} deriving (Show)
newRecord :: IO (IORef Record)
newRecord = newIORef Record
{ ra = 0
, rb = "string"
, rc = 20
, rd = 30
}
updateRecordPure :: Record -> Record
updateRecordPure !r = r { ra = ra r + 1 }
updateRecord :: IORef Record -> IO ()
updateRecord ref = do
r <- readIORef ref
writeIORef ref $ r { ra = ra r + 1 }
modifyRecord :: IORef Record -> IO ()
modifyRecord ref = modifyIORef' ref (\r -> r { ra = ra r + 1 })
updateRecordM :: (MonadState Record m) => m ()
updateRecordM = modify' $ \r -> r { ra = ra r + 1 }
numCycles :: [Int]
numCycles = [1..10000]
runUpdateRecordPure :: Record -> Record
runUpdateRecordPure rec = foldl' update rec numCycles
where
update !r _ = updateRecordPure r
runUpdateRecord :: IO ()
runUpdateRecord = do
r <- newRecord
mapM_ (\_ -> updateRecord r) numCycles
runModifyRecord :: IO ()
runModifyRecord = do
r <- newRecord
mapM_ (\_ -> modifyRecord r) numCycles
runModifyRecordStateM :: (MonadState Record m) => m ()
runModifyRecordStateM = mapM_ (const updateRecordM) numCycles
main = defaultMain
[ bgroup "Pure"
[ bench "update" $ whnf runUpdateRecordPure rec
]
, bgroup "IORef record"
[ bench "update" $ whnfIO runUpdateRecord
, bench "modify" $ whnfIO runModifyRecord
]
, bgroup "MyStateT"
[ bench "modify" $ whnfIO (snd <$> runMyStateT runModifyRecordStateM rec)
]
]
where
rec = Record
{ ra = 0
, rb = "string"
, rc = 20
, rd = 30
}
benchmarking Pure/update
time 124.9 μs (123.6 μs .. 126.2 μs)
0.999 R² (0.998 R² .. 0.999 R²)
mean 124.5 μs (123.0 μs .. 126.1 μs)
std dev 5.039 μs (4.054 μs .. 6.350 μs)
variance introduced by outliers: 40% (moderately inflated)
benchmarking IORef record/update
time 70.14 μs (69.48 μs .. 70.99 μs)
0.998 R² (0.998 R² .. 0.999 R²)
mean 70.40 μs (69.53 μs .. 71.51 μs)
std dev 3.141 μs (2.634 μs .. 3.866 μs)
variance introduced by outliers: 47% (moderately inflated)
benchmarking IORef record/modify
time 131.9 μs (130.1 μs .. 133.4 μs)
0.999 R² (0.998 R² .. 0.999 R²)
mean 131.0 μs (129.5 μs .. 132.8 μs)
std dev 5.712 μs (4.667 μs .. 7.476 μs)
variance introduced by outliers: 44% (moderately inflated)
benchmarking MyStateT/modify
time 31.95 μs (31.65 μs .. 32.28 μs)
0.999 R² (0.998 R² .. 0.999 R²)
mean 32.06 μs (31.72 μs .. 32.49 μs)
std dev 1.243 μs (985.4 ns .. 1.564 μs)
variance introduced by outliers: 44% (moderately inflated)
whnf
/
whnfIO
切换到
nf
/
nfIO
,但唯一改变的是非一元版本变得更慢。
最佳答案
基准测试除了“可以多快地更新变量”之外,还测试了很多其他东西。这里的主要问题是Haskell的懒惰。像updateRecordPure
这样简单的行为并没有达到预期的效果:
updateRecordPure :: Record -> Record
updateRecordPure !r = r { ra = ra r + 1 }
r
转换为弱头正常形式。但是没有评估
ra
字段,我们可以很容易地证明这一点:
-- This just evaluates to (), it doesn't diverge.
updateRecordPure Record {} `seq` ()
updateRecordPure
正在创建带有重击的
Record
。通常,此问题(累积重击)是优化Haskell程序时的常见问题,其他基准测试也遭受该问题的困扰。
replicateM_
,这有点惯用了。在我的系统上,从10000迭代到100000迭代具有以下效果:
MyStateT/identity
基准只是应用于
MyStateT
monad的
Identity
。无论如何,GHC都能完全优化这种情况,并且这种情况的运行时间为14 ns……无论您使用多少次迭代!
data Record = Record
{ ra :: !Int
, rb :: String
, rc :: Int
, rd :: Int
} deriving (Show)
modifyIORef
文档中,尽管它仍然捕获了很多Haskell程序员感到惊讶)。
ra
字段的新版本在以下情况下具有10000次迭代,从最快到最慢排名为:
MyStateT/identity
基准仍然以某种方式触发了GHC优化,从而消除了循环。从其他实现中,纯实现是最快的,这是可以预期的,并且增加了其他复杂性(使用IORef,然后使用IO + StateT)会使基准测试变慢。最后,
readIORef
+
writeIORef
是最慢的,因为它会产生大量的重击。
-threads
进行编译会大大减少运行时间,从而使Pure / update,IORef记录/修改和MyStateT / io相互之间保持25%的比例。因此,我们可以得出这样的结论:差异是由于在多线程程序中使用IO所必需的某种同步,或者是由于多线程程序的代码生成有所不同,导致某些类型的优化无法优化基准。
关于haskell - 为什么在此示例中StateT更快?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49080119/
这个问题在这里已经有了答案: 关闭 11 年前。 Possible Duplicate: Sample data for IPv6? 除了 wireshark 在其网站上提供的内容之外,是否有可以下
我正在寻找可以集成到现有应用程序中并使用多拖放功能的示例或任何现成的解决方案。我在互联网上找到的大多数解决方案在将多个项目从 ListBox 等控件拖放到另一个 ListBox 时效果不佳。谁能指出我
我是 GATE Embedded 的新手,我尝试了简单的示例并得到了 NoClassDefFoundError。首先我会解释我尝试了什么 在 D:\project\gate-7.0 中下载并提取 Ga
是否有像 Eclipse 中的 SWT 示例那样的多合一 JFace 控件示例?搜索(在 stackoverflow.com 上使用谷歌搜索和搜索)对我没有帮助。 如果它是一个独立的应用程序或 ecl
我找不到任何可以清楚地解释如何通过 .net API(特别是 c#)使用谷歌计算引擎的内容。有没有人可以指点我什么? 附言我知道 API 引用 ( https://developers.google.
最近在做公司的一个项目时,客户需要我们定时获取他们矩阵系统的数据。在与客户进行对接时,提到他们的接口使用的目前不常用的BASIC 认证。天呢,它好不安全,容易被不法人监听,咋还在使用呀。但是没办法呀,
最近在做公司的一个项目时,客户需要我们定时获取他们矩阵系统的数据。在与客户进行对接时,提到他们的接口使用的目前不常用的BASIC 认证。天呢,它好不安全,容易被不法人监听,咋还在使用呀。但是没办法呀,
我正在尝试为我的应用程序设计配置文件格式并选择了 YAML。但是,这(显然)意味着我需要能够定义、解析和验证正确的 YAML 语法! 在配置文件中,必须有一个名为 widgets 的集合/序列。 .这
你能给我一个使用 pysmb 库连接到一些 samba 服务器的例子吗?我读过有类 smb.SMBConnection.SMBConnection(用户名、密码、my_name、remote_name
linux服务器默认通过22端口用ssh协议登录,这种不安全。今天想做限制,即允许部分来源ip连接服务器。 案例目标:通过iptables规则限制对linux服务器的登录。 处理方法:编
我一直在寻找任何 PostProjectAnalysisTask 工作代码示例,但没有看。 This页面指出 HipChat plugin使用这个钩子(Hook),但在我看来它仍然使用遗留的 Po
我发现了 GWT 的 CustomScrollPanel 以及如何自定义滚动条,但我找不到任何示例或如何设置它。是否有任何示例显示正在使用的自定义滚动条? 最佳答案 这是自定义 native 滚动条的
我正在尝试开发一个 Backbone Marionette 应用程序,我需要知道如何以最佳方式执行 CRUD(创建、读取、更新和销毁)操作。我找不到任何解释这一点的资源(仅适用于 Backbone)。
关闭。这个问题需要details or clarity .它目前不接受答案。 想改进这个问题?通过 editing this post 添加详细信息并澄清问题. 去年关闭。 Improve this
我需要一个提交多个单独请求的 django 表单,如果没有大量定制,我找不到如何做到这一点的示例。即,假设有一个汽车维修店使用的表格。该表格将列出商店能够进行的所有可能的维修,并且用户将选择他们想要进
我有一个 Multi-Tenancy 应用程序。然而,这个相同的应用程序有 liquibase。我需要在我的所有数据源中运行 liquibase,但是我不能使用这个 Bean。 我的应用程序.yml
我了解有关单元测试的一般思想,并已在系统中发生复杂交互的场景中使用它,但我仍然对所有这些原则结合在一起有疑问。 我们被警告不要测试框架或数据库。好的 UI 设计不适合非人工测试。 MVC 框架不包括一
我正在使用 docjure并且它的 select-columns 函数需要一个列映射。我想获取所有列而无需手动指定。 如何将以下内容生成为惰性无限向量序列 [:A :B :C :D :E ... :A
$condition使用说明和 $param在 findByAttributes在 Yii 在大多数情况下,这就是我使用 findByAttributes 的方式 Person::model()->f
我在 Ubuntu 11.10 上安装了 qtcreator sudo apt-get install qtcreator 安装的版本有:QT Creator 2.2.1、QT 4.7.3 当我启动
我是一名优秀的程序员,十分优秀!