diff options
Diffstat (limited to 'src/Model/config.ml')
| -rw-r--r-- | src/Model/config.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/Model/config.ml b/src/Model/config.ml new file mode 100644 index 0000000..99e42d1 --- /dev/null +++ b/src/Model/config.ml @@ -0,0 +1,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))) |