在本文中，我们将解决 Perl Weekly Challenge #289 中的两个引人入胜的任务：找到数组中的第三个不同的最大值，并打乱文本中单词的字母，同时保留第一个和最后一个字母到位。我们将在 Perl 和 Go 中实现解决方案。
第一个任务涉及在给定的整数数组中查找第三个不同的最大值。如果第三个最大值不存在，该函数应返回最大数。
输入： 整数数组，@ints。
输出： 第三个不同的最大值或最大数（如果第三个最大值不存在）。
输入： @ints = (5, 6, 4, 1)
输出： 4
（不同的最大值为 6、5 和 4。）
输入： @ints = (4, 5)
输出： 5
（第三个最大值不存在。）
输入： @ints = (1, 2, 2, 3)
输出： 1
（不同的最大值为 3、2 和 1。）
在此实现中，我们创建一组唯一值，然后按降序对它们进行排序，以便轻松找到第三个最大值。
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
}
.
第二个任务涉及打乱给定文本中每个单词的字母，同时确保第一个和最后一个字母保持在原位。空格和标点符号也应该保留。
输入： 文本字符串。
输出：输入文本的混乱版本。
对于此任务，我们定义两个函数：
use List::Util 'shuffle';
sub jumble_word {
my ($word) = @_;
return $word if length($word) <= 3;
my $middle = substr($word, 1, -1);
my @m_chars = split('', $middle);
@m_chars = shuffle(@m_chars);
my $subst = join('', @m_chars);
substr($word, 1, -1, $subst);
return $word;
}
sub jumble_text {
my ($text) = @_;
my @tokens = split(/(\W+|_)/, $text);
for my $token (@tokens) {
if ($token =~ /^[A-Za-z]+$/) {
$token = jumble_word($token);
}
}
return join('', @tokens);
}
.
Go 实现采用了类似的方法，利用 math/rand 包来打乱字母，
package main
import (
"math/rand"
"regexp"
"strings"
"time"
)
func jumbleWord(word string) string {
if len(word) <= 3 {
return word
}
middle := word[1 : len(word)-1]
chars := []rune(middle)
rand.Seed(time.Now().UnixNano())
rand.Shuffle(len(chars), func(i, j int) {
chars[i], chars[j] = chars[j], chars[i]
})
return string(word[0]) + string(chars) + string(word[len(word)-1])
}
func jumbleText(text string) string {
re := regexp.MustCompile(`(\W+|_)`)
tokens := re.Split(text, -1)
nonWordTokens := re.FindAllString(text, -1)
var result []string
for i, token := range tokens {
if isAlpha(token) {
result = append(result, jumbleWord(token))
}
if i < len(nonWordTokens) {
result = append(result, nonWordTokens[i])
}
}
return strings.Join(result, "")
}
func isAlpha(s string) bool {
re := regexp.MustCompile(`^[A-Za-z]+$`)
return re.MatchString(s)
}
.
在本文中，我们探讨了两个有趣的编码挑战：在数组中找到第三个不同的最大值以及在文本中打乱字母。这些任务说明了不同的编程语言如何解决类似的问题，每种语言都有自己的优势和方法。我希望这些例子能够激励您应对类似的挑战并探索 Perl 的功能并走得更远！
您可以在 GitHub 上找到完整的代码，包括测试。
以上是数据转换：第三大字母和混乱字母的详细内容。更多信息请关注PHP中文网其他相关文章！
