1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
━━━━━━━━━━━━━━━
CHALLENGE 187
Andinus
━━━━━━━━━━━━━━━
2022-10-27
1 Task 1 - Days Together
════════════════════════
Two friends, Foo and Bar gone on holidays seperately to the same city.
You are given their schedule i.e. start date and end date.
To keep the task simple, the date is in the form DD-MM and all dates
belong to the same calendar year i.e. between 01-01 and 31-12. Also
the year is non-leap year and both dates are inclusive.
Write a script to find out for the given schedule, how many days they
spent together in the city, if at all.
┌────
│ Example 1
│ Input: Foo => SD: '12-01' ED: '20-01'
│ Bar => SD: '15-01' ED: '18-01'
│
│ Output: 4 days
│
│ Example 2
│ Input: Foo => SD: '02-03' ED: '12-03'
│ Bar => SD: '13-03' ED: '14-03'
│
│ Output: 0 day
│
│ Example 3
│ Input: Foo => SD: '02-03' ED: '12-03'
│ Bar => SD: '11-03' ED: '15-03'
│
│ Output: 2 days
│
│ Example 4
│ Input: Foo => SD: '30-03' ED: '05-04'
│ Bar => SD: '28-03' ED: '02-04'
│
│ Output: 4 days
└────
1.1 Raku
────────
We convert the date to an integer representing number of days since
the start of the year. Then simply subtract the minimum of end days
with maximum of start days. The goal is to find the common days.
┌────
│ sub MAIN() {
│ my @schedules = %( foo => <12-01 20-01>, bar => <15-01 18-01> ),
│ %( foo => <02-03 12-03>, bar => <13-03 14-03> ),
│ %( foo => <02-03 12-03>, bar => <11-03 15-03> ),
│ %( foo => <30-03 05-04>, bar => <28-03 02-04> );
│
│ for @schedules -> %schedule {
│ put days-together(%schedule) ~ " day(s)";
│ }
│ }
│
│ #| date-to-int takes a date in "DD-MM" form and converts it to an
│ #| integer.
│ sub date-to-int(Str $date --> Int) {
│ my @days-in-month = 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31;
│
│ given $date.split("-").map(*.Int) {
│ return $_[0] + ([+] @days-in-month[^ ($_[1] - 1)])
│ }
│ }
│
│ #| days-together returns the days foo & bar are together.
│ sub days-together(%schedule --> Int) {
│ my $foo-start = date-to-int %schedule<foo>[0];
│ my $foo-end = date-to-int %schedule<foo>[1];
│
│ my $bar-start = date-to-int %schedule<bar>[0];
│ my $bar-end = date-to-int %schedule<bar>[1];
│
│ return min($foo-end, $bar-end) - max($foo-start, $bar-start) + 1;
│ }
│
└────
2 Task 2 - Mask Code
════════════════════
You are given a list of codes in many random format.
Write a script to mask first four characters (a-z,0-9) and keep the
rest as it is.
┌────
│ Example 1
│
│ Input: @list = ('ab-cde-123', '123.abc.420', '3abc-0010.xy')
│ Output: ('xx-xxe-123', 'xxx.xbc.420', 'xxxx-0010.xy')
│
│ Example 2
│
│ Input: @list = ('1234567.a', 'a-1234-bc', 'a.b.c.d.e.f')
│ Output: ('xxxx567.a', 'x-xxx4-bc', 'x.x.x.x.e.f')
└────
2.1 Raku
────────
Takes an array of codes as input. Loops over characters of a code and
prints every character except first four matching the regex "\w".
┌────
│ unit sub MAIN(*@codes);
│
│ for @codes -> $code {
│ my Int $count;
│ for $code.comb {
│ given $_ {
│ when /\w/ { print ($count++ < 4 ?? "x" !! $_) }
│ default { .print }
│ }
│ }
│ put "";
│ }
└────
|
