資料轉換：第三大字母和混亂字母

在本文中，我們將解決Perl Weekly Challenge #289 中的兩個引人入勝的任務：找到數組中的第三個不同的最大值，並打亂文本中單詞的字母，同時保留第一個和最後一個字母到位。我們將在 Perl 和 Go 中實現解決方案。

目錄

1. 第三個最大值
2. 混亂的字母
3. 結論

第三個最大值

第一個任務涉及在給定的整數數組中找到第三個不同的最大值。如果第三個最大值不存在，則函數應傳回最大數。

任務說明

輸入： 整數數組，@ints。

輸出： 第三個不同的最大值或最大數（如果第三個最大值不存在）。

範例

• 輸入： @ints = (5, 6, 4, 1)
  輸出： 4
  （不同的最大值為 6、5 和 4。）

• 輸入： @ints = (4, 5)
  輸出： 5
  （第三個最大值不存在。）

• 輸入： @ints = (1, 2, 2, 3)
  輸出： 1
  （不同的最大值為 3、2 和 1。）

解決方案

Perl 實現

在此實作中，我們建立一組唯一值，然後按降序對它們進行排序，以便輕鬆找到第三個最大值。

sub third_maximum {
    my @ints = @_;

    my %unique = map { $_ => 1 } @ints;
    my @distinct = sort { $b  $a } keys %unique;

    return @distinct >= 3 ? $distinct[2] : $distinct[0];
}

實施

Go 實作遵循類似的邏輯，使用映射來捕獲唯一整數，然後對它們進行排序。

func thirdMax(ints []int) (int, error) {
    if len(ints) == 0 {
        return 0, errors.New("input slice is empty")
    }

    unique := make(map[int]struct{})
    for _, num := range ints {
        unique[num] = struct{}{}
    }

    numsSorted := make([]int, 0, len(unique))
    for num := range unique {
        numsSorted = append(numsSorted, num)
    }

    sort.Slice(numsSorted, func(i, j int) bool {
        return numsSorted[i] > numsSorted[j]
    })

    if len(numsSorted) >= 3 {
        return numsSorted[2], nil
    }
    return numsSorted[0], nil
}

.

混亂的字母

第二個任務涉及打亂給定文本中每個單字的字母，同時確保第一個和最後一個字母保持在原位。空格和標點符號也應該保留。

任務說明

輸入： 文字字串。

輸出：輸入文字的混亂版本。

範例

• 輸入：“根據劍橋大學的一項研究，單字中字母的順序並不重要。”
• 輸出：（例如）“根據 Cmbraidge 大學的一項研究，它與某一行中的內容無關。” （每個單字中的字母隨機重新排列，第一個和最後一個字母不變。）

解決方案

Perl 實現

對於此任務，我們定義兩個函數：

1. jumble_word：此函數將一個單字作為輸入，並打亂中間的字母，同時保持第一個和最後一個字母完整。如果單字不超過 3 個字母，則原樣返回。為了打亂字母，我們使用 Perl 的 List::Util 模組。
2. jumble_text：此函數處理全文字串，將其拆分為單詞，同時保留空格和標點符號。它將 jumble_word 函數應用於每個單字，確保只有單字被打亂。

use List::Util 'shuffle';

sub jumble_word {
    my ($word) = @_;

    return $word if length($word) 

<p>.</p>

<h4>
  
  
  實施
</h4>

<p>Go 實作採用了類似的方法，利用 math/rand 套件來打亂字母，</p>

<pre class="brush:php;toolbar:false">

package main

import (
    "math/rand"
    "regexp"
    "strings"
    "time"
)

func jumbleWord(word string) string {
    if len(word) 

<p>.</p>

<h2>
  
  
  結論
</h2>

<p>在本文中，我們探討了兩個有趣的編碼挑戰：在數組中找到第三個不同的最大值以及在文本中打亂字母。這些任務說明了不同的程式語言如何解決類似的問題，每種語言都有自己的優點和方法。我希望這些例子能激勵您應對類似的挑戰並探索 Perl 的功能並走得更遠！ </p>

<p>您可以在 GitHub 上找到完整的程式碼，包括測試。 </p>


          

            
        

以上是資料轉換：第三大字母和混亂字母的詳細內容。更多資訊請關注PHP中文網其他相關文章！