Как составить функцию для аппликативных с помощью скаляза - PullRequest
Новая
       45

Как составить функцию для аппликативных с помощью скаляза

11 голосов
/ 23 февраля 2012

Во время обучения Scalaz 6 я пытаюсь написать безопасные для типов читатели, возвращающие проверки. Вот мои новые типы: 

type ValidReader[S,X] = (S) => Validation[NonEmptyList[String],X]
type MapReader[X] = ValidReader[Map[String,String],X]

и у меня есть две функции создания карт-ридеров для строк и строк (*): 

def readInt( k: String ): MapReader[Int] = ...
def readString( k: String ): MapReader[String] = ...

Учитывая следующую карту: 

val data = Map( "name" -> "Paul", "age" -> "8" )

Я могу написать двум читателям, чтобы получить имя и возраст: 

val name = readString( "name" )
val age = readInt( "age" )

println( name(data) ) //=> Success("Paul")
println( age(data) )  //=> Success(8)

Все отлично работает, но теперь я хочу собрать обоих читателей для создания Boy экземпляра: 

case class Boy( name: String, age: Int )

Мой лучший выбор: 

  val boy = ( name |@| age ) {
    (n,a) => ( n |@| a ) { Boy(_,_) }
  }
  println( boy(data) ) //=> Success(Boy(Paul,8))

Это работает, как и ожидалось, но выражение выглядит неловко с двумя уровнями аппликативных строителей. Есть ли способ заставить следующий синтаксис работать? 

  val boy = ( name |@| age ) { Boy(_,_) }

(*) Полная и работоспособная реализация в: https://gist.github.com/1891147

Обновление: Вот сообщение об ошибке компилятора, которое я получаю при попытке строки выше, или предложение Даниэля: 

[error] ***/MapReader.scala:114: type mismatch;
[error]  found   : scalaz.Validation[scalaz.NonEmptyList[String],String]
[error]  required: String
[error]   val boy = ( name |@| age ) { Boy(_,_) }
[error]                                    ^

Ответы [ 2 ]

5 голосов
/ 23 февраля 2012

Как насчет этого? 

val boy = (name |@| age) {
  (Boy.apply _).lift[({type V[X]=ValidationNEL[String,X]})#V]
}

или с использованием псевдонима типа: 

type VNELStr[X] = ValidationNEL[String,X]

val boy = (name |@| age) apply (Boy(_, _)).lift[VNELStr]

Это основано на следующем сообщении об ошибке на консоли: 

scala> name |@| age apply Boy.apply
<console>:22: error: type mismatch;
 found   : (String, Int) => MapReader.Boy
 required: (scalaz.Validation[scalaz.NonEmptyList[String],String], 
            scalaz.Validation[scalaz.NonEmptyList[String],Int]) => ?

Так что я просто поднял Boy.apply, чтобы взять нужный тип.

2 голосов
/ 11 августа 2012

Обратите внимание, что, поскольку Reader и Validation (с полугруппой E) являются аппликативными, их состав также аппликативен.Используя scalaz 7, это можно выразить как: 

import scalaz.Reader
import scalaz.Reader.{apply => toReader}
import scalaz.{Validation, ValidationNEL, Applicative, Kleisli, NonEmptyList}

//type IntReader[A] = Reader[Int, A] // has some ambigous implicit resolution problem
type IntReader[A] = Kleisli[scalaz.IdInstances#Id, Int, A]
type ValNEL[A] = ValidationNEL[Throwable, A]

val app = Applicative[IntReader].compose[ValNEL]

Теперь мы можем использовать одну операцию |@| для составного Applicative: 

val f1 = toReader((x: Int) => Validation.success[NonEmptyList[Throwable], String](x.toString))
val f2 = toReader((x: Int) => Validation.success[NonEmptyList[Throwable], String]((x+1).toString))

val f3 = app.map2(f1, f2)(_ + ":" + _)

f3.run(5) should be_==(Validation.success("5:6"))
...