Skip to content

Instantly share code, notes, and snippets.

Created October 7, 2013 19:22
Show Gist options
  • Save anonymous/6873422 to your computer and use it in GitHub Desktop.
Save anonymous/6873422 to your computer and use it in GitHub Desktop.
Comparison of the straightforward embedding of a basic tenet of category theory in Scala vs Haskell.
yonedaLemma = Iso (flip fmap) ($ id)
def yonedaLemma[F[_]:Functor, A]: F[A] <=> (({type λ[α] = A => α })#λ ~> F) =
new (F[A] <=> (({type λ[α] = A => α })#λ ~> F)) {
def to(fa: F[A]) = new (({type λ[α] = A => α })#λ ~> F) {
def apply[R](f: A => R) = Functor[F].map(fa)(f)
}
def from(f: (({type λ[α] = A => α })#λ ~> F)) = f(a => a)
}
@non
Copy link

non commented Oct 7, 2013

Not that I disagree with the conclusion here, but to be fair you could use some type aliases to make the Scala version easier to read:

type X[A] = A => X
type Y[F[_], A] = F[A] <=> X ~> F

def yonedaLemma[F[_]:Functor, A]: Y[F, A] = new Y[F, A] {
  def to(fa: F[A]) = new (X ~> F) {
    def apply[R](f: A => R) = Functor[F].map(fa)(f)
  }
  def from(f: X ~> F) = f(a => a)
}

@djspiewak
Copy link

If Scala had higher rank types, I could do this in three concise lines (two if you allow me to omit the definition of Iso, as you did). So, this is really a better demonstration of how Scala's type system needs a specific feature, rather than the general depravity of the language.

I do really, really wish Scala had higher rank types though…

@runarorama
Copy link

Also to be fair, the Haskell version should have a type annotation because the Scala version does:

yonedaLemma :: forall f a. (Functor f) => Iso (f a) (forall b. (a -> b) -> f b)
yonedaLemma = Iso (flip fmap) ($ id)

@nafg
Copy link

nafg commented Sep 11, 2017

How is the affected by recent scala, typelevel scala, or dotty features?

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment