6 lines
130 B
Plaintext
6 lines
130 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
|