7 lines
132 B
Plaintext
7 lines
132 B
Plaintext
// Test set iteration
|
|
|
|
let aggregate (i : int) (j : int) : int = i + j
|
|
|
|
let fold_op (s : int set) : int =
|
|
Set.fold aggregate s 15
|