穆罕默德·S·安瓦爾 (Mohammad S. Anwar) 每週都會發出“每週挑戰”,讓我們所有人都有機會為兩週的任務提出解決方案。我的解決方案先用Python編寫,然後轉換為Perl。這對我們所有人來說都是練習編碼的好方法。
挑戰,我的解決方案
給你一個正整數列表,@ints。
編寫一個腳本來排列給定清單中的所有元素,使它們形成最大的數字並傳回它。
也許我想太多了,但這並不像聽起來那麼容易。
一種選擇是計算所有排列,並查看哪個數字最大。然而,當我們添加更多整數時,這會消耗大量資源。如果我有 13 個整數,則有超過 60 億種排列。所以我排除了這個可能的解決方案。
所以顯而易見的事情就是對整數進行排序,組合它們並輸出結果。由於 Python 對待字串和整數的方式不同,我需要將排序後的列表轉換為字串,連接它們並將其轉換回整數。
def largest_number(ints: list) -> int: sorted_ints = sorted(ints, key=cmp_to_key(number_sort), reverse=True) return int(''.join(map(str, sorted_ints)))
說到排序,這有點複雜。在提供的第二個範例中,我們可以看到 3、30 和 34 都是給定的整數。為此,我知道最大的數字是透過對項目(從高到低)34、3 和 30 進行排序獲得的。
對於我的 number_sort 函數,我將整數轉換為字串 s1 和 s2。然後我得到整數 c1,它是 s1 和 s2 的串聯,而 c2 是 s2 和 s1 的串聯。
如果 c1 小於 c2,我回傳 -1。如果更大,我返回 1。如果它們相同,我返回 0。 sorted 函數使用此資訊根據需要對清單進行排序。
def number_sort(i1: int, i2: int) -> int: s1 = str(i1) s2 = str(i2) c1 = int(s1 + s2) c2 = int(s2 + s1) if c1 < c2: return -1 if c1 > c2: return 1 return 0
Perl 程式碼簡單得多:)
sub number_sort() { return "$a$b" <=> "$b$a"; }
$ ./ch-1.py 20 3 320 $ ./ch-1.py 3 30 34 5 9 9534330
給你一個整數數組,@ints。
編寫一個腳本以傳回給定整數數組中所有整數對之間的漢明距離總和。
兩個整數之間的漢明距離是它們的二進位表示形式不同的位數。
在上一個任務中,我提到了 Python 如何將整數和字串視為不同的型別。 Perl 的優點之一是我們被告知,無論出於何種目的,我們都不需要擔心變數的類型。儘管它們在內部儲存方式不同,但 Perl 知道該怎麼做。
在 Perl 5.10 和 Perl 5.16(這是我大部分 Perl 開發的地方)中,有兩個值得注意的例外。一個是 JSON 模組,它將輸出字串“10”和整數 10。
另一個是位元運算。從 perlop 頁面,105 | 150(兩個整數)是 255,而“105”| “150”(兩個字串)是 155。
所以,當我再次閱讀 perlop 頁面時,我驚訝地發現這個問題已經在 Perl 的更高版本中得到了解決。它現在具有 Perl 5.22 中實驗性的按位功能,並且在 Perl 5.28 中可用。這確保了位元運算子始終將值視為整數,並且基於字串的位元具有新的運算子。
無論如何,回到手邊的任務。為此,我計算兩個整數的所有組合。對於每個組合,我對兩個值執行 XOR(異或),將其轉換為二進位並計算二進位表示中 1 的數量。
def largest_number(ints: list) -> int: sorted_ints = sorted(ints, key=cmp_to_key(number_sort), reverse=True) return int(''.join(map(str, sorted_ints)))
def number_sort(i1: int, i2: int) -> int: s1 = str(i1) s2 = str(i2) c1 = int(s1 + s2) c2 = int(s2 + s1) if c1 < c2: return -1 if c1 > c2: return 1 return 0
以上是錘擊清單的詳細內容。更多資訊請關注PHP中文網其他相關文章!