用 igt 赚钱

每周挑战 303：Python 和 Perl 解决方案

Mohammad S. Anwar 的每周挑战提供了定期的编码练习。 下面介绍的我的解决方案最初是用 Python 编写的，然后适用于 Perl。 这种双重方法提高了编码能力。

挑战 303：解决方案

任务 1：生成偶数 3 位整数

任务描述：

给定一个正整数列表，生成可以使用列表中的数字组成的所有唯一偶数 3 位整数。

Python 解决方案：

此 Python 解决方案利用 itertools.permutations 函数有效生成所有可能的 3 位数组合。 集合用于保持唯一性。

from itertools import permutations

def three_digits_even(ints: list) -> list:
    solution = set()
    for p in permutations(ints, 3):
        num_str = "".join(map(str, p))
        num = int(num_str)
        if num >= 100 and num % 2 == 0 and num_str[0] != '0':
            solution.add(num)
    return sorted(list(solution))

Perl 解决方案：

Perl 等效项使用 Algorithm::Permute 模块进行排列和哈希以确保唯一性。

use Algorithm::Permute;
sub three_digits_even {
    my @ints = @_;
    my %seen;
    my @result;
    my $p = Algorithm::Permute->new(\@ints, 3);
    while (my @perm = $p->next) {
        my $num_str = join('', @perm);
        my $num = $num_str;
        if ($num >= 100 and $num % 2 == 0 and $num_str !~ /^0/) {
            push @result, $num unless $seen{$num}++;
        }
    }
    return sort {$a <=> $b} @result;
}

示例：

<code># Python
print(three_digits_even([2, 1, 3, 0]))  # Output: [102, 120, 130, 132, 210, 230, 302, 310, 312, 320]
print(three_digits_even([2, 2, 8, 8, 2])) # Output: [222, 228, 282, 288, 822, 828, 882]

# Perl
print "@{[three_digits_even(2, 1, 3, 0)]}\n"; # Output: 102 120 130 132 210 230 302 310 312 320
print "@{[three_digits_even(2, 2, 8, 8, 2)]}\n"; # Output: 222 228 282 288 822 828 882</code>

任务 2：删除并赚取

任务描述：

给定一个整数数组，通过重复删除一个元素，获得其值，然后删除所有值比被删除元素少一和多一的元素，找到你可以获得的最大分数。

Python 解决方案：

此 Python 解决方案使用 Counter 来跟踪元素频率，并采用递归函数来探索不同的删除策略。

from collections import Counter

def delete_and_earn(ints: list) -> int:
    freq = Counter(ints)
    return max_score(freq)

def max_score(freq: Counter) -> int:
    max_points = 0
    for num in list(freq): # Iterate through a copy to safely delete
        points = num * freq[num]
        new_freq = freq.copy()
        del new_freq[num]
        if num - 1 in new_freq:
            del new_freq[num - 1]
        if num + 1 in new_freq:
            del new_freq[num + 1]
        max_points = max(max_points, points + (0 if not new_freq else max_score(new_freq)))
    return max_points

Perl 解决方案：

Perl 解决方案反映了 Python 方法，使用哈希进行频率计数和递归函数。

sub delete_and_earn {
    my %freq = map { $_ => 1 + $freq{$_} // 0 } @_;
    return max_score(\%freq);
}

sub max_score {
    my $freq = shift;
    my $max_points = 0;
    foreach my $num (keys %$freq) {
        my $points = $num * $freq->{$num};
        my %new_freq = %$freq;
        delete $new_freq{$num};
        delete $new_freq{$num - 1};
        delete $new_freq{$num + 1};
        $max_points = max($max_points, $points + (0 || max_score(\%new_freq)));
    }
    return $max_points;
}

sub max {
    return shift if @_ == 1;
    return $_[0] > $_[1] ? $_[0] : $_[1];
}

示例：

<code># Python
print(delete_and_earn([3, 4, 2]))  # Output: 6
print(delete_and_earn([2, 2, 3, 3, 3, 4])) # Output: 9

# Perl
print delete_and_earn(3, 4, 2), "\n";  # Output: 6
print delete_and_earn(2, 2, 3, 3, 3, 4), "\n"; # Output: 9</code>

这些解决方案展示了解决每周挑战 303 中这两个任务的高效且清晰的方法。Python 和 Perl 的使用凸显了算法问题解决在不同编程语言之间的可移植性。

以上是用 igt 赚钱的详细内容。更多信息请关注PHP中文网其他相关文章！