我有一个像这样定义的枚举类型:
type tags =
| ART = 0
| N = 1
| V = 2
| P = 3
| NULL = 4
Run Code Online (Sandbox Code Playgroud)
有办法for ... in tags do吗?
这是我得到的错误:
tags未定义值,构造函数,命名空间或类型
你能建议更简单,更清晰的方式来编写这个函数吗?
let cartesian_product sequences =
let step acc sequence = seq {
for x in acc do
for y in sequence do
yield Seq.append x [y] }
Seq.fold step (Seq.singleton Seq.empty) sequences
Run Code Online (Sandbox Code Playgroud)