Book Image

Soar with Haskell

By : Tom Schrijvers
Book Image

Soar with Haskell

By: Tom Schrijvers

Overview of this book

With software systems reaching new levels of complexity and programmers aiming for the highest productivity levels, software developers and language designers are turning toward functional programming because of its powerful and mature abstraction mechanisms. This book will help you tap into this approach with Haskell, the programming language that has been leading the way in pure functional programming for over three decades. The book begins by helping you get to grips with basic functions and algebraic datatypes, and gradually adds abstraction mechanisms and other powerful language features. Next, you’ll explore recursion, formulate higher-order functions as reusable templates, and get the job done with laziness. As you advance, you’ll learn how Haskell reconciliates its purity with the practical need for side effects and comes out stronger with a rich hierarchy of abstractions, such as functors, applicative functors, and monads. Finally, you’ll understand how all these elements are combined in the design and implementation of custom domain-specific languages for tackling practical problems such as parsing, as well as the revolutionary functional technique of property-based testing. By the end of this book, you’ll have mastered the key concepts of functional programming and be able to develop idiomatic Haskell solutions.
Table of Contents (23 chapters)
Free Chapter
1
Part 1:Basic Functional Programming
6
Part 2: Haskell-Specific Features
11
Part 3: Functional Design Patterns
16
Part 4: Practical Programming

Programmatic data access

Unlike the built-in field access functionality in programming languages, lenses are defined entirely programmatically. In the previous section, we used them rather rigidly to access actual fields of data types. Nothing forces those fields to be present, and we can deviate from them if we want.

Virtual fields

Consider the following data type for claiming car trip expenses:

data Trip = MkTrip { _origin       :: String
                   , _destination  :: String
                   , _distanceInKm :: Float }

The distance is stored in kilometers and comes with an appropriate lens:

distanceInKm :: Lens' Trip Float
distanceInKm t (MkTrip o d km) =
  fmap (\km' -> MkTrip o d km') (t km)

However...