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 ответов

75 просмотров

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))

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

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

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

30500 за редактор? )
Владимир
47
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
4
Он в одиночку это дело запилил или была какая-то команда?
Aquinary
12
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Всем привет, нужна как никогда, нужна помощь с IO в загрузчике. Пишу в code16 после установки сегментных регистров, пишу вывод символа. Пробовал 2 варианта: # 1 mov $0x0E, %a...
Shadow Akira
14
Карта сайта