每周挑战 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)
以上就是幸运的一类的详细内容,更多请关注本网内其它相关文章!