什么是避免在调用堆栈中传递状态选择上下文的“函数方式”？

Question

假设我有一个有两个列表的特征。有时我对其中一个感兴趣，有时对另一个感兴趣。

trait ListHolder {
  val listOne = List("foo", "bar")
  val listTwo = List("bat", "baz")
}

我有一个函数调用链，在其顶部有我需要在列表之间选择的上下文，但在其底部我使用了特征。

在命令式范式中，我通过函数向下传递上下文：

class Imperative extends Object with ListHolder {
  def activeList(choice : Int) : List[String] = {
    choice match {
      case 1 => listOne
      case 2 => listTwo
    }
  }
}

def iTop(is : List[Imperative], choice : Int) = {
  is.map{iMiddle(_, choice)}
}

def iMiddle(i : Imperative, choice : Int) = {
  iBottom(i, choice)
}

def iBottom(i : Imperative, choice : Int) = {
  i.activeList(choice)
}

val ps = List(new Imperative, new Imperative)
println(iTop(ps, 1)) //Prints "foo, bar" "foo,bar"
println(iTop(ps, 2)) //Prints "bat, baz" "bat, baz"

在面向对象的范例中，我可以使用内部状态来避免向下传递上下文：

class ObjectOriented extends Imperative {
  var variable = listOne
}

def oTop(ps : List[ObjectOriented], choice : Int) = {
  ps.map{ p => p.variable = p.activeList(choice) }
  oMiddle(ps)
}

def oMiddle(ps : List[ObjectOriented]) = oBottom(ps)

def oBottom(ps : List[ObjectOriented]) = {
  ps.map(_.variable)  //No explicitly-passed-down choice, but hidden state
}

val oops = List(new ObjectOriented, new ObjectOriented)

println(oTop(oops, 1))
println(oTop(oops, 2))

在函数式语言中实现类似结果的惯用方法是什么？

也就是说，我希望下面的输出与上面的输出类似。

class Functional extends Object with ListHolder{
  //IDIOMATIC FUNCTIONAL CODE
}

def fTop(fs : List[Functional], choice : Int) = {
    //CODE NEEDED HERE TO CHOOSE LIST
    fMiddle(fs)
}

def fMiddle(fs : List[Functional]) = {
   //NO CHANGES ALLOWED
   fBottom(fs)
}

def fBottom(fs : List[Functional]) = {
  fs.map(_.activeList) //or similarly simple
}

def fs = List(new Functional, new Functional)

println(fTop(fs, 1))
println(fTop(fs, 2))

更新:这会被认为是正常的功能吗？

class Functional extends Imperative with ListHolder{}

class FunctionalWithList(val activeList : List[String]) extends Functional{}

def fTop(fs : List[Functional], band : Int) = {
  fMiddle(fs.map(f => new FunctionalWithList(f.activeList(band))))
}

def fMiddle(fs : List[FunctionalWithList]) = {
  //NO CHANGES ALLOWED
  fBottom(fs)
}

def fBottom(fs : List[FunctionalWithList]) = {
  fs.map(_.activeList)
}

def fs = List(new Functional, new Functional)

println(fTop(fs, 1))
println(fTop(fs, 2))

Answer 1

好吧，人们总是可以使用单数和一元理解来处理这类事情，但问题的核心是，不是将选择向下传递到堆栈中，而是在堆栈中向上返回函数，直到有人知道如何解决问题可以处理它。

def fTop(fs : List[Functional]) = {
    fMiddle(fs)
}

def fMiddle(fs : List[Functional]) = {
   fBottom(fs)
}

def fBottom(fs : List[Functional]) = {
 (choice: Int) => fs map (_ activeList choice)
}

然后

println(fTop(fs)(1))

一旦你开始为这类事情开发模式，你就会得到各种各样的monad (每种monad代表一种特定的模式)。

Answer 2

你的第一个命令式版本在我看来是最实用的。

通常，Reader monad和State monad转换器用于在调用堆栈中向下传递上下文或状态。

有关状态单元格的示例，请参阅Scalaz state monad examples，并查看此scalaz邮件list thread，以获得类似的问题和答案。

Answer 3

Reader monad可能会有所帮助。请参阅Tony Morris's blog