blob: 99e42d120a95937ac8648d89cbd5c798ceeffcad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
type config = {
prepare : int;
tabatas : int;
cycles : int;
work : int;
rest : int;
}
let init = { prepare = 10; tabatas = 4; cycles = 8; work = 20; rest = 10 }
let getDuration { prepare; tabatas; cycles; work; rest } =
tabatas * (prepare + (cycles * (work + rest)))
|
