|
1 | 1 |
|
2 | 2 | WeekDays :: module { |
3 | | - MONDAY := "Monday" |
4 | | - TUESDAY := "Tuesday" |
5 | | - WEDNESDAY := "Wednesday" |
6 | | - THURSDAY := "Thursday" |
7 | | - FRIDAY := "Friday" |
8 | | - SATURDAY := "Saturday" |
9 | | - SUNDAY := "Sunday" |
| 3 | + MONDAY := "Monday" |
| 4 | + TUESDAY := "Tuesday" |
| 5 | + WEDNESDAY := "Wednesday" |
| 6 | + THURSDAY := "Thursday" |
| 7 | + FRIDAY := "Friday" |
| 8 | + SATURDAY := "Saturday" |
| 9 | + SUNDAY := "Sunday" |
10 | 10 |
|
11 | 11 | getWeekDay :: (day = 0) = |
12 | 12 | when day { |
13 | | - is 0 -> WeekDays.MONDAY |
14 | | - is 1 -> WeekDays.TUESDAY |
15 | | - is 2 -> WeekDays.WEDNESDAY |
16 | | - is 3 -> WeekDays.THURSDAY |
17 | | - is 4 -> WeekDays.FRIDAY |
18 | | - is 5 -> WeekDays.SATURDAY |
19 | | - is 6 -> WeekDays.SUNDAY |
| 13 | + is 0 -> WeekDays.MONDAY |
| 14 | + is 1 -> WeekDays.TUESDAY |
| 15 | + is 2 -> WeekDays.WEDNESDAY |
| 16 | + is 3 -> WeekDays.THURSDAY |
| 17 | + is 4 -> WeekDays.FRIDAY |
| 18 | + is 5 -> WeekDays.SATURDAY |
| 19 | + is 6 -> WeekDays.SUNDAY |
20 | 20 | } |
21 | 21 |
|
22 | 22 | toNumber :: (day) = |
23 | 23 | when day { |
24 | 24 | is WeekDays.MONDAY -> 0 |
25 | | - is WeekDays.TUESDAY -> 0 |
26 | | - is WeekDays.WEDNESDAY -> 0 |
27 | | - is WeekDays.THURSDAY -> 0 |
28 | | - is WeekDays.FRIDAY -> 0 |
29 | | - is WeekDays.SATURDAY -> 0 |
30 | | - is WeekDays.SUNDAY -> 0 |
| 25 | + is WeekDays.TUESDAY -> 1 |
| 26 | + is WeekDays.WEDNESDAY -> 2 |
| 27 | + is WeekDays.THURSDAY -> 3 |
| 28 | + is WeekDays.FRIDAY -> 4 |
| 29 | + is WeekDays.SATURDAY -> 5 |
| 30 | + is WeekDays.SUNDAY -> 6 |
31 | 31 | } |
32 | 32 | } |
33 | 33 |
|
0 commit comments