Haskell-book/07/src/ArtfulDodgy.purs


1
2
3
4
5
6
7
8
9
10
11
12
13

module ArtfulDodgy where

import Prelude

-- Exercise 1
dodgy :: Int -> Int -> Int
dodgy x y = x + y * 10

oneIsOne :: Int -> Int
oneIsOne = dodgy 1

oneIsTwo :: Int -> Int
oneIsTwo = (flip dodgy) 2