每周挑战 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)
