giles
50a219b688
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 50s
Counter-style record with two mutable fields. Validates the new
r.f <- v field mutation end-to-end through type decl + record literal
+ field access + field assignment + sequence operator.
type counter = { mutable count : int; mutable last : int }
let bump c = c.count <- c.count + 1 ; c.last <- c.count
After 5 bumps: count=5, last=5, sum=10.
17 lines
321 B
JSON
17 lines
321 B
JSON
{
|
|
"btree.ml": 39,
|
|
"calc.ml": 13,
|
|
"closures.ml": 315,
|
|
"exception_handle.ml": 4,
|
|
"expr_eval.ml": 16,
|
|
"factorial.ml": 3628800,
|
|
"fizzbuzz.ml": 57,
|
|
"list_ops.ml": 30,
|
|
"module_use.ml": 3,
|
|
"mutable_record.ml": 10,
|
|
"option_match.ml": 5,
|
|
"quicksort.ml": 44,
|
|
"sum_squares.ml": 385,
|
|
"word_count.ml": 3
|
|
}
|