Search icon CANCEL
Subscription
0
Cart icon
Your Cart (0 item)
Close icon
You have no products in your basket yet
Arrow left icon
Explore Products
Best Sellers
New Releases
Books
Videos
Audiobooks
Learning Hub
Conferences
Free Learning
Arrow right icon
Arrow up icon
GO TO TOP
Haskell Design Patterns

You're reading from   Haskell Design Patterns Take your Haskell and functional programming skills to the next level by exploring new idioms and design patterns

Arrow left icon
Product type Paperback
Published in Nov 2015
Publisher
ISBN-13 9781783988723
Length 166 pages
Edition 1st Edition
Languages
Arrow right icon
Author (1):
Arrow left icon
Ryan Lemmer Ryan Lemmer
Author Profile Icon Ryan Lemmer
Ryan Lemmer
Arrow right icon
View More author details
Toc

Applicative functor


Because Maybe is a Functor, we can lift the (+2) function so that it can be applied directly to a Maybe value (Just or Nothing):

  fmap (+2) (Just 3)

However, fmap does not enable us to apply a function to multiple Functor values:

  fmap (+) (Just 2) (Just 3)

For that, we need the Applicative Functor type-class, which enables us to raise a function to act on multiple Functor values:

–- Applicative inherits from Functor
class (Functor f) => Applicative f where
  pure  :: a -> f a
  (<*>) :: f (a -> b) -> f a -> f b

The pure function lifts a value into the Functor type­class while the <*> operator generalizes function application to Functor (hence the term Applicative Functor). Let's see how this works by making Maybe' an instance of Applicative:

import Control.Applicative

data Maybe' a = Just' a | Nothing'
  deriving (Show)

–- we still need the Functor instance
instance Functor Maybe' where
  fmap _ Nothing' =   Nothing'
  fmap f (Just' x) = Just...
lock icon The rest of the chapter is locked
Register for a free Packt account to unlock a world of extra content!
A free Packt account unlocks extra newsletters, articles, discounted offers, and much more. Start advancing your knowledge today.
Unlock this book and the full library FREE for 7 days
Get unlimited access to 7000+ expert-authored eBooks and videos courses covering every tech area you can think of
Renews at $19.99/month. Cancel anytime
Banner background image