使用 XQuery 获取序列中重复次数最多的元素

Question

我有一系列值。它们可以都是平等的……也可以不是。因此，通过 XQuery，我想获取序列中最常见的项目。

let $counter := 0, $index1 := 0 
for $value in $sequence 
if (count(index-of($value, $sequence))) 
then 
{ 
$counter := count(index-of($value, $sequence)) $index1 := index-of($value) 
} else {} 

我无法完成这项工作，所以我想我做错了什么。

预先感谢您能给我的任何帮助。

Answer 1

使用：

  for $maxFreq in 
           max(for $val in distinct-values($sequence)
                     return count(index-of($sequence, $val))
               )
   return
      distinct-values($sequence)[count(index-of($sequence, .)) eq $maxFreq]

---

更新，2015 年 12 月：

这明显更短，但可能不太高效：

$pSeq[index-of($pSeq,.)[max(for $item in $pSeq return count(index-of($pSeq,$item)))]]

可以为 XPath 3.1 构造最短的表达式：

甚至更短且可复制 - 使用单字符名称：

$s[index-of($s,.)[max($s ! count(index-of($s, .)))]]

Answer 2

您从过于迫切的角度来处理这个问题。

在 XQuery 中，您可以设置变量的值，但永远无法更改它们。

执行迭代类型算法的正确方法是使用递归函数：

declare funciton local:most($sequence, $index, $value, $count)
{
  let $current=$sequence[$index]
  return
    if (empty($current))
    then $value
    else
      let $current-count = count(index-of($current, $sequence))
      return
        if ($current-count > $count)
        then local:most($sequence, $index+1, $current, $current-count)
        else local:most($sequence, $index+1, $value, $count)
}

但解决问题的更好方法是以非迭代方式描述问题。在这种情况下，对于序列中的所有不同值，您需要一个在任何不同值中出现最多次数的值。

前面的句子翻译成 XQuery 是

let $max-count := max(for $value1 in distinct-values($sequence)
                      return count(index-of($sequence, $value1)))
for $value2 in distinct-values($sequence)
where (count(index-of($sequence, $value2)) = $max-count
return $value2