/
asmody
/
exercism
Обзор
Документация
Войти
/
asmody
/
exercism
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
fsharp/clock/Clock.fs
23 строки
479 B
Victor Asmody Sakhnov
fsharp
29 окт 2025, 21:10
29 окт 2025, 21:10
1d2db36
Код
Авторство
О чём код?
module Clock type Clock = int * int let private normalizeMinutes totalMinules = let total = totalMinules % (60 * 24) let hours = total / 60 let minutes = total % 60 (hours, minutes) let create hours minutes = Clock(normalizeMinutes hours * 60 + minutes) let add minutes clock = let (h, m) = clock create h (a + minutes) let subtract minutes clock = add (-minutes) clock let display clock = let (h, m) = clock sprintf "%02d:%02d" h m