每周挑战 284

穆罕默德·s·安瓦尔 (mohammad s. anwar) 每周都会发出“每周挑战”，让我们所有人都有机会为每周两次的任务提出解决方案。我的解决方案首先用python编写，然后转换为perl。这对我们所有人来说都是练习编码的好方法。

挑战，我的解决方案

任务1：幸运整数

任务

给你一个整数数组，@ints。

编写一个脚本来查找幸运整数，如果找到则返回-1。如果有多个，则返回最大的。

幸运整数是数组中出现频率等于其值的整数。

我的解决方案

这个任务相对简单，所以不需要太多解释。我创建了每个整数频率的字典（perl 中的散列），称为 freq。然后我迭代 freq 的键（首先是最高值）。如果整数的频率与值相同，我将返回该数字。如果迭代器耗尽，我返回 -1。

def lucky_integer(ints: list) -> str:
    freq = counter(ints)

    for i in sorted(freq, reverse=true):
        if i == freq[i]:
            return i

    return -1

示例

$ ./ch-1.py 2 2 3 4
2

$ ./ch-1.py 1 2 2 3 3 3
3

$ ./ch-1.py 1 1 1 3
-1

任务 2：相对排序

任务

给你两个整数列表，@list1 和@list2。 @list2 中的元素是不同的，@list1 中的元素也是不同的。

编写一个脚本对@list1中的元素进行排序，使得@list1中的项目的相对顺序与@list2中的相同。 @list2 中缺少的元素应按升序放置在 @list1 的末尾。

我的解决方案

虽然python确实有列表的索引函数，但如果该项目不在列表中，它会引发 valueerror 异常。因此，我创建了一个名为 find_index 的函数，如果找到，它将返回 val 在 lst 中的位置，如果没有，则返回列表的长度。

def find_index(lst: list, val: int):
    return lst.index(val) if val in lst else len(lst)

perl方案也有同样的功能，利用list::moreutil的first_index来查找位置。

sub find_index( $lst, $val ) {
    my $idx = first_index { $_ == $val } @$lst;
    return $idx == -1 ? scalar(@$lst) : $idx;
}

我使用排序函数对第一个列表进行排序。每个项目都按索引位置和整数的元组排序。这可确保结果列表的第一部分根据第二个列表中的位置进行排序，而其余值则按数字排序。

def relative_sort(list1: list, list2: list) -> list:
    return sorted(list1, key=lambda i: (find_index(list2, i), i))

perl 解决方案使用相同的逻辑，但语法完全不同。

sub main ($lists) {
    my $list1 = $lists->[0];
    my $list2 = $lists->[1];

    my @solution = sort {
        find_index( $list2, $a )  find_index( $list2, $b )
          or $a  $b
    } @$list1;
    say '(', join( ', ', @solution ), ')';
}

对于通过命令行输入，我采用一个 json 字符串，该字符串应该是整数列表的列表。

示例

$ ./ch-2.py "[[2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5],[2, 1, 4, 3, 5, 6]]"
(2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)

$ ./ch-2.py "[[3, 3, 4, 6, 2, 4, 2, 1, 3],[1, 3, 2]]"
(1, 3, 3, 3, 2, 2, 4, 4, 6)

$ ./ch-2.py "[[3, 0, 5, 0, 2, 1, 4, 1, 1],[1, 0, 3, 2]]"
(1, 1, 1, 0, 0, 3, 2, 4, 5)