ocaml like module(functor) programming in scala

1_bad.scala

imoprt Iteratee._

lazy val takeOdds = {
  val aux = for {
   one <- headOption[Byte[Array]] // ダサい
    _ <- headOption[Byte[Array]] // ダサい
  } yield one

  for {
    odds <- aux
    rest <- takeOdds
  } yield for {
    odds <- odds
    rest <- rest
  } yield odds ++ rest
}

2_good.scala

object ByteArrayIteratee extends IterateeBase[Array[Byte]]
imoprt ByteArrayIteratee._

lazy val takeOdds = {
  val aux = for {
   one <- headOption // やった
    _ <- headOption // やった
  } yield one

  for {
    odds <- aux
    rest <- takeOdds
  } yield for {
    odds <- odds
    rest <- rest
  } yield odds ++ rest
}