blob: f4a8dede62466b8de274715cb879c4960868f8bf (
plain)
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
|
# A solution of Task 1 of the Weekly Challenge 224.
# https://theweeklychallenge.org/blog/perl-weekly-challenge-224/#TASK1
# Comments to the code: https://andrewshitov.com/2023/07/06/built-in-classes-in-perl-5-38/
# The solution demonstrates the use of the new Perl's feature, built-in native
# classes available since Perl 5.38: https://perldoc.perl.org/perlclass.
# The below program is intentionnaly over-engineered to try as many new
# features as possible. Do not consider it as a practice to follow
# (but the algorithm in the 'SpecialNotes::solve' method is a good thing to use).
# How to run it:
# $ perl5.38.0 ch-1.pl
#
# Expected output:
# 'abc' vs. 'xyz' => false
# 'scriptinglanguage' vs. 'perl' => true
# 'aabbcc' vs. 'abc' => true
use v5.38;
use feature 'class';
no warnings 'experimental::class';
class MyString {
field $string :param;
method string {
return $string;
}
method chars {
return split //, $string;
}
method count_chars {
my %count;
for my $char ($self->chars) {
$count{$char}++;
}
return %count;
}
method compare($other_string) {
return $string eq $other_string->string;
}
method len {
return length $string;
}
}
class SpecialNotes {
field $source :param;
field $target :param;
field $source_string;
field $target_string;
ADJUST {
$source_string = MyString->new(string => $source);
$target_string = MyString->new(string => $target);
}
method dump {
return "'$source' vs. '$target'";
}
method solve {
return 'true' if $source_string->compare($target_string);
my %source_chars = $source_string->count_chars;
my %target_chars = $target_string->count_chars;
my $count = 0;
for my $char (keys %target_chars) {
last unless exists $source_chars{$char};
last if $source_chars{$char} < $target_chars{$char};
$count++;
}
return $count == $target_string->len ? 'true' : 'false';
}
}
my @tests = (
[abc => 'xyz'],
[scriptinglanguage => 'perl'],
[aabbcc => 'abc'],
);
for my $test (@tests) {
my $note = SpecialNotes->new(source => $test->[0], target => $test->[1]);
say $note->dump . " => " . $note->solve;
}
|
