Puede realizarse un mapa en una lista de Scala
He hecho algunas implementaciones de HList ahora. Uno basado en la charla de Daniel Spiewak High Wizardry in the Land of Scala y otro basado en una publicación en el blog de Apocalisp. El objetivo era tener una lista heterogénea de la cual no es heterogénea en el tipo primario sino más bien en el tipo superior. Por ejemplo
val requests = Request[String] :: Request[Int] :: HNil
Podría hacer un mapa en la lista para realizar la solicitud y generar una lista heterogénea del tipo superior. Asi que
requests.map(execute)
debe ser igual a
String :: Int :: HNil
Por desgracia, todos mis intentos han dado como resultado una HList of Any. Aquí está el código de un intento reciente:
class Request[+Out](o:Out) {
type O = Out
def v:O = o
}
object HList {
trait Func[-Elem,Out] {
type Apply[E <: Elem] <: Out
def apply[N <: Elem](e:N):Apply[N]
}
sealed trait HList[Base] {
type Head <: Base
type Tail <: HList[Base]
type Map[Out,F <: Func[Base,Out]] <: HList[Out]
def head:Head
def tail:Tail
def ::[A <: Base](a:A):HList[Base]
def map[Out,F <: Func[Base,Out]](f:F):Map[Out,F]
}
case class HNil[Base]() extends HList[Base] {
type Head = Nothing
type Tail = Nothing
type Map[Out,F <: Func[Base,Out]] = HNil[Out]
def head = error("Head of an empty HList")
def tail = error("Head of an empty HList")
def ::[A <: Base](a:A) = HCons(a,this)
def map[Out,F <: Func[Base,Out]](f:F) = new HNil[Out]
}
case class HCons[Base,A <: Base,B <: HList[Base]](head: A, tail: B) extends HList[Base] {
type Head = A
type Tail = B
type Map[Out,F <: Func[Base,Out]] = HCons[Out,F#Apply[Head],Tail#Map[Out,F]]
def ::[C <: Base](c:C) = HCons(c,this)
def map[Out,F <: Func[Base,Out]](f:F) =
HCons(f(head),tail.map(f))
}
val :: = HCons
}
object Test extends Application {
import HList._
val HNil = new HNil[Request[_]]
val list = new Request[Int](1) :: new Request[String]("1") :: HNil
val (a :: b :: HNil) = list
val y:Request[String] = b
val results = list.map[Any,Unwrap.type](Unwrap)
val i:Int = results.head
}
import HList._
object Unwrap extends Func[Request[Any],Any] {
type Apply[I <: Request[Any]] = I#O
def apply[N <: Request[Any]](e:N) = null.asInstanceOf[Apply[N]]
}
El otro intento se basó en la versión de Apocalisp que usa fold para crear una nueva HList y nuevamente resultó en una HList de cualquier tipo. Cualquier consejo sería apreciado.