- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
用例:一款跨多个消息服务跟踪用户的应用。有一个 TwitterAccount
数据类型,一个 FacebookAccount
数据类型,等等。这些可以很容易地与 Account
总和类型结合在一起,但是下一层层次结构导致了我的问题。
一个 TwitterAccount
有一个 TwitterPost
的列表,一个 FacebookAccount
有一个 FacebookPost
的列表,等等.
我的任务:我希望能够将所有帐户最近 10 天的所有帖子放入一个列表中,并从中提取公共(public)时间和消息正文字段以进行显示。
我失败的方法: 我认为如果 Post
的每个类都实现一个类型类,如 SimplePost
公开函数 messageBody
和 messageTime
这可能会解决我的问题,但我无法创建 [SimpleMessage]
的列表。
我想保持 TwitterAccount
只能包含TwitterPost
等不变性,所以我不能使用 sum -类型。我不想创建对象的副本来执行此操作。
这个问题最好、最干净、最像 Haskell 的设计是什么?
更新这不是答案,但作为 recursion.ninja 和 Helder Pereira 提供的四种解决方案的替代方案,我一直在考虑是否可以使用幻像类型满足我的不变量,Account
和 Post
类型包含所有提供者所需的所有可能信息。然而,元组的使用和笨拙的逻辑意味着它不能很好地扩展;也许这应该在不同的问题中。
{-# LANGUAGE EmptyDataDecls #-}
-- Some FSharpisms
(|>) = flip ($)
(<|) = ($)
infixr 0 <|
data Twitter
data Facebook
data LinkedIn
data Post a = Post{
postBody :: String,
postDate :: UTCTime,
postForwarded :: Bool,
postFriendMentions :: [UserName]
} deriving (Show, Eq)
data Account a = Account {
accountName :: String,
accountPosts :: [Post a]
} deriving (Show, Eq)
data User = User {
userName :: String,
userTweets :: Account Twitter,
userFaces :: Account Facebook,
userLinks :: Account LinkedIn
}
prettyShowUtc :: UTCTime -> String
prettyShowUtc utc = ...
prettyShow :: Post a -> String
prettyShow p = prettyShowUtc (postDate p) ++ " : " ++ show (postBody p)
showOrderedOf2 :: ([Post a], [Post b]) -> [String]
showOrderedOf2 ([], []) = []
showOrderedOf2 (ls, []) = map prettyShow ls
showOrderedOf2 ([], rs) = map prettyShow rs
showOrderedOf2 ((l:ls), (r:rs)) =
if postDate l < postDate r
then prettyShow l : showOrderedOf2 (ls, (r:rs))
else prettyShow r : showOrderedOf2 ((l:ls), rs)
showOrderedOf3 :: ([Post a], [Post b], [Post c]) -> [String]
showOrderedOf3 ([], [], []) = []
showOrderedOf3 (as, [], []) = map postBody as
showOrderedOf3 ([], bs, []) = map postBody bs
showOrderedOf3 ([], [], cs) = map postBody cs
showOrderedOf3 (as, bs, []) = showOrderedOf2 (as, bs)
showOrderedOf3 ([], bs, cs) = showOrderedOf2 (bs, cs)
showOrderedOf3 (as, [], cs) = showOrderedOf2 (as, cs)
showOrderedOf3 ((a:as), (b:bs), (c:cs)) =
let (adate, bdate, cdate) = (postDate a, postDate b, postDate c)
minDate = minimum [adate, bdate, cdate]
in
if adate == minDate
then prettyShow a : showOrderedOf3 (as, (b:bs), (c:cs))
else (if bdate == minDate
then prettyShow b : showOrderedOf3 ((a:as), bs, (c:cs))
else prettyShow c : showOrderedOf3 ((a:as), (b:bs), cs))
createAndShowSample :: IO ()
createAndShowSample =
let faceAc = Account {...} :: Account Facebook
twitAc = Account {...} :: Account Twitter
linkAc = Account {...} :: Account LinkedIn
in
showOrderedOf3 (accountPosts faceAc, accountPosts twitAc, accountPosts linkAc)
|> intercalate "\n"
|> putStrLn
最佳答案
您应该将 FaceBookAccount
和 TwitterAccount
抽象为 SocialMediaAccount
的实例
Haskell 代码:
import Control.Applicative ((<$>))
import Data.List
import Data.Ord
import Data.Time
data FaceBookAccount = FaceBookAccount [FaceBookPost]
data TwitterAccount = TwitterAccount [TwitterPost]
data FaceBookPost = FaceBookPost String UTCTime
data TwitterPost = TwitterPost String UTCTime
data SocialMediaAccount
= SocialMediaAccount
{ accountPosts :: [SocialMediaPost]
}
data SocialMediaPost
= SocialMediaPost
{ postBody :: String
, postTime :: UTCTime
}
class SocialMedia a where
simpleAccount :: a -> SocialMediaAccount
instance SocialMedia FaceBookAccount where
simpleAccount (FaceBookAccount xs) = SocialMediaAccount $ f <$> xs
where
f (FaceBookPost text time) = SocialMediaPost text time
instance SocialMedia TwitterAccount where
simpleAccount (TwitterAccount xs) = SocialMediaAccount $ f <$> xs
where
f (TwitterPost text time) = SocialMediaPost text time
getAllMessages :: (SocialMedia a, SocialMedia b) => a -> b -> [SocialMediaPost]
getAllMessages xs ys = sortBy (comparing postTime)
$ extract xs
++ extract ys
where
extract :: SocialMedia a => a -> [SocialMediaPost]
extract = accountPosts . simpleAccount
关于haskell - 如何在不使用求和类型或副本的情况下创建异构数据类型列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32035857/
我正在尝试编写一个相当多态的库。我遇到了一种更容易表现出来却很难说出来的情况。它看起来有点像这样: {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE
谁能解释一下这个表达式是如何工作的? type = type || 'any'; 这是否意味着如果类型未定义则使用“任意”? 最佳答案 如果 type 为“falsy”(即 false,或 undef
我有一个界面,在IAnimal.fs中, namespace Kingdom type IAnimal = abstract member Eat : Food -> unit 以及另一个成功
这个问题在这里已经有了答案: 关闭 10 年前。 Possible Duplicate: What is the difference between (type)value and type(va
在 C# 中,default(Nullable) 之间有区别吗? (或 default(long?) )和 default(long) ? Long只是一个例子,它可以是任何其他struct类型。 最
假设我有一个案例类: case class Foo(num: Int, str: String, bool: Boolean) 现在我还有一个简单的包装器: sealed trait Wrapper[
这个问题在这里已经有了答案: Create C# delegate type with ref parameter at runtime (1 个回答) 关闭 2 年前。 为了即时创建委托(dele
我正在尝试获取图像的 dct。一开始我遇到了错误 The function/feature is not implemented (Odd-size DCT's are not implemented
我正在尝试使用 AFNetworking 的 AFPropertyListRequestOperation,但是当我尝试下载它时,出现错误 预期的内容类型{( “应用程序/x-plist” )}, 得
我在下面收到错误。我知道这段代码的意思,但我不知道界面应该是什么样子: Element implicitly has an 'any' type because index expression is
我尝试将 SignalType 从 ReactiveCocoa 扩展为自定义 ErrorType,代码如下所示 enum MyError: ErrorType { // .. cases }
我无法在任何其他问题中找到答案。假设我有一个抽象父类(super class) Abstract0,它有两个子类 Concrete1 和 Concrete1。我希望能够在 Abstract0 中定义类
我想知道为什么这个索引没有用在 RANGE 类型中,而是用在 INDEX 中: 索引: CREATE INDEX myindex ON orders(order_date); 查询: EXPLAIN
我正在使用 RxJava,现在我尝试通过提供 lambda 来订阅可观察对象: observableProvider.stringForKey(CURRENT_DELETED_ID) .sub
我已经尝试了几乎所有解决问题的方法,其中包括。为 提供类型使用app.use(express.static('public'))还有更多,但我似乎无法为此找到解决方案。 index.js : imp
以下哪个 CSS 选择器更快? input[type="submit"] { /* styles */ } 或 [type="submit"] { /* styles */ } 只是好
我不知道这个设置有什么问题,我在 IDEA 中获得了所有注释(@Controller、@Repository、@Service),它在行号左侧显示 bean,然后转到该 bean。 这是错误: 14-
我听从了建议 registering java function as a callback in C function并且可以使用“简单”类型(例如整数和字符串)进行回调,例如: jstring j
有一些 java 类,加载到 Oracle 数据库(版本 11g)和 pl/sql 函数包装器: create or replace function getDataFromJava( in_uLis
我已经从 David Walsh 的 css 动画回调中获取代码并将其修改为 TypeScript。但是,我收到一个错误,我不知道为什么: interface IBrowserPrefix { [
我是一名优秀的程序员,十分优秀!