Замена императивного PriorityQueue в моем алгоритме

Question

В настоящее время у меня есть метод, который использует scala.collection.mutable.PriorityQueue для объединения элементов в определенном порядке.Например, код выглядит примерно так:

 def process[A : Ordering](as: Set[A], f: (A, A) => A): A = {
   val queue = new scala.collection.mutable.PriorityQueue[A]() ++ as
   while (queue.size > 1) {
     val a1 = queue.dequeue
     val a2 = queue.dequeue
     queue.enqueue(f(a1, a2))
   }
   queue.dequeue
 }

Код работает так, как написано, но обязательно очень важно.Я думал об использовании SortedSet вместо PriorityQueue, но мои попытки делают процесс более запутанным.Что является более декларативным, кратким способом делать то, что я хочу сделать?

Answer 1

Если f не производит элементы, которые уже находятся в наборе, вы действительно можете использовать SortedSet.(Если это так, вам нужна очередь с неизменным приоритетом.) Декларативный способ сделать это будет:

def process[A:Ordering](s:SortedSet[A], f:(A,A)=>A):A = {
  if (s.size == 1) s.head else {
    val fst::snd::Nil = s.take(2).toList
    val newSet = s - fst - snd + f(fst, snd)
    process(newSet, f)
  }
}

Answer 2

Вот решение с SortedSet и Stream:

def process[A : Ordering](as: Set[A], f: (A, A) => A): A = {
    Stream.iterate(SortedSet.empty ++ as)(  ss => 
        ss.drop(2) + f(ss.head, ss.tail.head))
    .takeWhile(_.size > 1).last.head
}

Answer 3

Пытался улучшить ответ @Kim Stebel, но я думаю, что императивный вариант еще более ясен.

def process[A:Ordering](s: Set[A], f: (A, A) => A): A = {
  val ord = implicitly[Ordering[A]]
  @tailrec
  def loop(lst: List[A]): A = lst match {
    case result :: Nil => result
    case fst :: snd :: rest =>
      val insert = f(fst, snd)
      val (more, less) = rest.span(ord.gt(_, insert))
      loop(more ::: insert :: less)    
  }
  loop(s.toList.sorted(ord.reverse))
}