幸運的一類

每週挑戰 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)

以上是幸運的一類的詳細內容。更多資訊請關注PHP中文網其他相關文章！