[lec07] Preliminary templates

src/main/scala/monads/MonadFunctor.scala

+trait Monad[F[_]] {
+  def unit[A](a: A): F[A]
+  def flatMap[A, B](fa: F[A])(f: A => F[B]): F[B]
+}
+
+trait Functor[F[_]] {
+  def map[A, B](a: F[A])(f: A => B): F[B]
+}
+
+object Functor {
+  def functorFromMonad[F[_]](m: Monad[F]): Functor[F] = new Functor[F] {
+    // your code for map here
+  }
+}

src/main/scala/monads/MonadId.scala

+final case class Id[A](value: A)
+
+object Id {
+    implicit val idMonad = new Monad[Id] {
+        def unit[A](a: A): Id[A] = ???
+        def flatMap[A, B](fa: Id[A])(f: A => Id[B]): Id[B] = ???
+    }
+}