- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如果 f# 编写了一个 etl 进程,它将在关系数据库中排序数据并将其转换为星型模式,为 3rd 方平台做好准备。因为我们正在对数据进行非规范化,所以我们(几乎)拥有重复的对象、类型和属性,这些对象、类型和属性散布在我们的系统中。到目前为止,我对此感到满意,因为对象的不同足以保证不同的功能,或者我们已经能够将公共(public)/共享属性分组到子记录中。
但是,我们现在添加的对象需要挑选系统的不同部分,并且不属于现有的公共(public)分组。
在尝试了几种不同的风格后,我开始使用界面,但使用它们感觉有些不对劲。有没有人遇到过这个问题并提出了不同的方法?
module rec MyModels =
type AccountType1 =
{ Id : int
Error : string option
Name : string option }
// PROBLEM: this get very bulky as more properties are shared
interface Props.Error<AccountType1> with member x.Optic = (fun _ -> x.Error), (fun v -> { x with Error = v })
interface Props.AccountId<AccountType1> with member x.Optic = (fun _ -> x.Id), (fun v -> { x with Id = v })
interface Props.AccountName<AccountType1> with member x.Optic = (fun _ -> x.Name), (fun v -> { x with Name = v })
type AccountType2 =
{ Id : int
Error : string option
AccountId : int
AccountName : string option
OtherValue : string }
interface Props.Error<AccountType2> with member x.Optic = (fun _ -> x.Error), (fun v -> { x with Error = v })
interface Props.AccountId<AccountType2> with member x.Optic = (fun _ -> x.AccountId), (fun v -> { x with AccountId = v })
interface Props.AccountName<AccountType2> with member x.Optic = (fun _ -> x.AccountName), (fun v -> { x with AccountName = v })
interface Props.OtherValue<AccountType2> with member x.Optic = (fun _ -> x.OtherValue), (fun v -> { x with OtherValue = v })
module Props =
type OpticProp<'a,'b> = (unit -> 'a) * ('a -> 'b)
// Common properties my models can share
// (I know they should start with an I)
type Error<'a> = abstract member Optic : OpticProp<string option, 'a>
let Error (h : Error<_>) = h.Optic
type AccountId<'a> = abstract member Optic : OpticProp<int, 'a>
let AccountId (h : AccountId<_>) = h.Optic
type AccountName<'a> = abstract member Optic : OpticProp<string option, 'a>
let AccountName (h : AccountName<_>) = h.Optic
type OtherValue<'a> = abstract member Optic : OpticProp<string, 'a>
let OtherValue (h : OtherValue<_>) = h.Optic
[<RequireQualifiedAccess>]
module Optics =
// Based on Aether
module Operators =
let inline (^.) o optic = (optic o |> fst) ()
let inline (^=) value optic = fun o -> (optic o |> snd) value
let inline get optic o =
let get, _ = optic o
get ()
let inline set optic v (o : 'a) : 'a =
let _, set = optic o
set v
open MyModels
open Optics.Operators
// Common functions that change the models
let error msg item =
item
|> (Some msg)^=Props.Error
|> Error
let accountName item =
match item^.Props.AccountId with
| 1 ->
item
|> (Some "Account 1")^=Props.AccountName
|> Ok
| 2 ->
item
|> (Some "Account 2")^=Props.AccountName
|> Ok
| _ ->
item
|> error "Can't find account"
let correctAccount item =
match item^.Props.AccountName with
| Some "Account 1" -> Ok item
| _ ->
item
|> error "This is not Account 1"
let otherValue lookup item =
let value = lookup ()
item
|> value^=Props.OtherValue
|> Ok
// Build the transform pipeline
let inline (>=>) a b =
fun value ->
match a value with
| Ok result -> b result
| Error error -> Error error
let account1TransformPipeline lookups = // Lookups can be passed around is needed
accountName
>=> correctAccount
let account2TransformPipeline lookups =
accountName
>=> correctAccount
>=> otherValue lookups
// Try out the pipelines
let account1 =
({ Id = 1; Error = None; Name = None } : AccountType1)
|> account1TransformPipeline ()
let account2 =
({ Id = 1; Error = None; AccountId = 1; AccountName = None; OtherValue = "foo" } : AccountType2)
|> account2TransformPipeline (fun () -> "bar")
最佳答案
我不太确定如何使您的解决方案更简单——我认为在您的方法中非常花哨地使用类型会使代码变得非常复杂。可能有其他方法可以简化这一点,同时保持某种类型的输入。同样,我认为在某些情况下,您需要实现的逻辑是相当动态的,然后可能值得使用一些更动态的技术,即使在 F# 中也是如此。
举个例子,这里是一个使用 Deedle data frame library 的例子。 .这使您可以将数据表示为数据框(列名称为字符串)。
在数据帧上编写您需要的两个清理操作相对容易 - 该库针对基于列的操作进行了优化,因此代码结构与您的有点不同(我们计算新列,然后将其替换为数据框):
let correctAccount idCol nameCol df =
let newNames = df |> Frame.getCol idCol |> Series.map (fun _ id ->
match id with
| 1 -> "Account 1"
| 2 -> "Account 2"
| _ -> failwith "Cannot find account")
df |> Frame.replaceCol nameCol newNames
let otherValue newValue df =
let newOther = df |> Frame.getCol "OtherValue" |> Series.mapAll (fun _ _ -> Some newValue)
df |> Frame.replaceCol "OtherValue" newOther
[ { Id = 1; Error = None; Name = None } ]
|> Frame.ofRecords
|> correctAccount "Id" "Name"
[ { Id = 1; Error = None; AccountId = 1; AccountName = None; OtherValue = "foo" } ]
|> Frame.ofRecords
|> correctAccount "Id" "AccountName"
|> otherValue "bar"
关于types - 跨类型共享功能,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55572427/
在我的应用程序中播放背景音乐时遇到问题。 首先,我在第一个 Storyboard View Controller 中的 ViewDidLoad 方法中开始播放音乐。即使我从一个页面跳转到另一个页面,它
我想跨行连接数组,然后进行不同的计数。理想情况下,这会起作用: WITH test AS ( SELECT DATE('2018-01-01') as date, 2 as value,
这是一个场景: Repo A 是一个包含大量模块和依赖项的怪异代码。安装起来并不容易。它由其他人维护并托管在 Github 上。 Repo A 包含一个非常有用的模块 X,并且几乎不依赖于 Repo
目前,我在一台服务器上运行了一个应用程序。有一个 crontab 设置,因此根据指定的规则,在某些时间运行任务。 现在,我正在考虑将我的应用程序迁移到 docker 容器中,以便我能够独立运行我的应用
我有一个全局表,我想在两个不同的 Lua 状态之间保持同步。根据我所阅读和理解的内容,唯一的方法似乎是,在我的 C 后端,在状态之间进行表的深层复制(如果表已被修改)。有没有更好的办法 ? 另外,我看
我们目前有一个 asmx webservice,它公开了一个方法来对 Sql 数据库进行各种更新,内部包装在 SqlTransaction 中。 我正在 WCF 中重写此服务,我们希望将现有方法拆分为
我是 Qt 的新手,所以请原谅这个问题的简单性,但我对 Qt 线程有点困惑。假设我有 3 个线程:主要的默认 GUI 线程和我自己创建的 2 个线程(称为 WorkerThread)。我的每个 Wor
我们的产品有一个 Restful API 和一个服务器渲染的应用程序(CMS)。两者共享数据库。两者都是用django编写的 两者所需的字段和模型并不是相互排斥的,有些仅针对 API,有些针对 CMS
我正在实现一个基于角色的访问控制系统,它具有以下数据库表。 groups --------- id (PK) name level resources --------- id (PK) name r
我有三个应用程序,为了便于管理,我希望将它们分开。他们按照建议作为 Plack 服务器运行 here , 代理在 nginx 后面。 我想有一个单独的应用程序来管理登录,并在所有其他应用程序之间共享该
我的主窗口上有一个 UIWebView。我可以通过我的第二个 View Controller 来控制它吗?如果可以的话你能给我举个例子吗? 最佳答案 是的,你可以。 “如何”是一个基本的 Cocoa/
我想制作一个小型应用程序,从连接到串行端口的设备收集数据,并将其通过 LAN 传递到另一个应用程序,后者将其存储在数据库中。 我已经在一台 PC 上的一个应用程序中完成了此操作,因此实际上会将应用程序
从主 AppDomain,我试图调用在不同 AppDomain 中实例化的类型中定义的异步方法。 比如下面的类型MyClass继承自 MarshalByRefObject并在新的 AppDomain
因为 LiveServerTestCase继承自 TransactionTestCase ,默认行为是在每个测试方法结束时删除测试数据。我想用LiveServerTestCase类,但保留方法之间的测
我正在开发我的第一个 WPF/MVVM 应用程序,但我在命令知识方面遇到了限制! 这是我的场景。 我有一个窗口——Customer.xaml。 它包含 2 个用户控件 查看CustomerSearch
这是我的 WPF 应用程序模型的简化版本: Employee +Name:string Client +Name:string +PhoneNumber:string Appointmen
我有一个 mercurial 存储库,它使用子存储库功能(如 .hgsub 文件中定义的)引入依赖项,但我正在努力让它在 TeamCity 中工作。 我启用了 mercurial_keyring 扩展
我正在尝试使用新的 Azure 虚拟网络公共(public)预览版的对等互连功能来加入我在两个不同订阅(即不同租户)上拥有的两个网络。这可能吗?我没有看到任何其他说法,但是当我尝试在 PowerShe
我有 2 个存储库。由于主干代码位于一个 protected 存储库中,因此我进行了 checkout ,然后 checkin 到另一个存储库(因为用户没有第一个 protected 存储库的权限)。
我有一个项目,其调用结构与此类似: 主要项目/应用 我的图书馆代码 别人的库代码 我的图书馆代码 一切都是用 C# 编写的,我可以访问“其他人的库代码”。他们的代码不包含在我的项目中,因为它是开源的而
我是一名优秀的程序员,十分优秀!