穆罕默德·S·安瓦爾 (Mohammad S. Anwar) 每週都會發出“每週挑戰”，讓我們所有人都有機會為兩週的任務提出解決方案。我的解決方案先用Python編寫，然後轉換為Perl。這對我們所有人來說都是練習編碼的好方法。
挑戰，我的解決方案
給你一個整數數組，@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
給你兩個整數列表，@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)
以上是幸運的一類的詳細內容。更多資訊請關注PHP中文網其他相關文章！
