169 похожих чатов

Всем привет, есть тестовый трейт Monad в котором определен метод

flatten2.
trait Monad[F[_]] {
def flatMap2[A, B](fa: F[A])(f: A => F[B]): F[B]
def flatten2[A](f: F[F[A]]): F[A] =
flatMap2(f)(fa => fa)
}

object Monad {

def apply[F[_]](implicit instance: Monad[F]): Monad[F] = instance

implicit val optionMonad: Monad[Option] = new Monad[Option] {
override def flatMap2[A, B](fa: Option[A])(f: A => Option[B]): Option[B] = fa.flatMap(f)
}

implicit val listMonad: Monad[List] = new Monad[List] {
override def flatMap2[A, B](fa: List[A])(f: A => List[B]): List[B] = fa.flatMap(f)
}

implicit val setMonad: Monad[Set] = new Monad[Set] {
override def flatMap2[A, B](fa: Set[A])(f: A => Set[B]): Set[B] = fa.flatMap(f)
}
implicit class MonadOps[F[_]: Monad](f: F[_]){
def flatten2[A](implicit f: F[F[A]]): F[A] = Monad[F].flatten2(f)
}
}
}
Но в при сиользовании метод flatten2 не подцепляется
val oo = Some(Some("foo"))
val o = oo.flatten2
println(o)
Пишет что value flatten2 is not a member of Some[Some[String]] val o = oo.flatten2. Ошибка где-то в implicit class?

7 ответов

37 просмотров

val oo = Some(Some("foo")) val o = Monad[Option].flatten2(oo) println(o)

там тип выводится Some скорее всего

Nagllort- Автор вопроса

trait Monad[F[_]] { def flatMap2[A, B](fa: F[A])(f: A => F[B]): F[B] def flatten2[A](fa: F[F[A]]): F[A] = flatMap2(fa)(identity) } object Monad { def apply[F[_]](implicit instance: Monad[F]): Monad[F] = instance implicit val monadOption = new Monad[Option] { override def flatMap2[A, B](fa: Option[A])(f: A => Option[B]): Option[B] = fa.flatMap(f) } implicit class MonadOps[A, F[_]: Monad](self: F[A]) { def flatMap2[B](f: A => F[B]): F[B] = Monad[F].flatMap2[A, B](self)(f) } implicit class MonadFlat[A, F[_]: Monad](self: F[F[A]]) { def flatten2 = Monad[F].flatten2(self) } } object Main { import Monad._ def main(args: Array[String]): Unit = { val o1: Option[Int] = Some(42) val o2 = o1.flatMap2(x => Some(x + 10)) val o3: Option[Option[Int]] = Some(Some(42)) val o4 = o3.flatten2 println(o4) } }

Nagllort- Автор вопроса
kei
trait Monad[F[_]] { def flatMap2[A, B](fa: F[A])...

а flatMap2 для чего имплисить?

Nagllort
а flatMap2 для чего имплисить?

val o1: Option[Int] = Some(42) val o2 = o1.flatMap2(x => Some(x + 10)) val o2_2 = Monad[Option].flatMap2(o1)(x => Some(x + 10))

почему здесь не работает имеете в виду?

Похожие вопросы

Обсуждают сегодня

Добрый день. Хочу сделать отрисовку по команде на панели. Почему-то рисуется только при втором вызове. С чем может быть связано, не подскажете? procedure TForm1.FormDblClick(...
Kirill Filippenok
20
а зачем этот вопрос для удаления из чата?
Mёdkinson Medvezhkin
63
Эх кто-то пришел и весь праздник испортил :( You need complex FBX scene importing setup to change things on import? good luck with that. You need navigation and pathfinding? g...
Serg Gini
5
Всем привет! Нужен совет от опытных. Переношу свой проект с Делфи 10.2 Токио на Лазарус 3.2 установленный через инсталлятор fpcupdeluxe-x86_64-win64. При импортировании проект...
Дмитрий Завгородний
2
Всем привет! Подскажите. Я написал приложение на Delphi 10.2 Tokyo под Windows 10. И передо мной стал вопрос о том чтобы сделать это приложение кроссплатформенным (под Linux и...
Дмитрий Завгородний
24
Какого хера? /Sources/App/Modules/User/Models/UserLinkApple.swift:21:20: warning: stored property '_id' of 'Sendable'-conforming class 'UserLinkApple' is mutable @ID(...
Alexander Sherbakov
14
Привет всем. Подскажите где можно посмотреть, какая версия электрон, поддерживает версии windows? Некий changelog. Мне бы желательно, поддержку 7,8,10... latest, как понимаю и...
Anonym Squad
21
Почему стало ломаться на D11? "739002.86400000' is not a valid timestamp" function IncDateTime(aStamp:TTimeStamp;aKind:TTriggerKind;aInterval:Integer):TDateTime; //aStamp = 2...
Катерина Свиридова
8
у меня программа тысяч на 10 строк. Там в основном моя собственная логика. А по содержанию она просто работает с файловой системой (мастер для бэкапов) и таблицей с данными о ...
Дмитрий Завгородний
5
У тебя в конфиге нигде нет deny all; или вообще любого deny?
Alexander Sherbakov
10
Карта сайта