Discrete math with computers_3

can be reduced to 24 (notice that is repeatedly copied but never used):

factorial 4

=f 4

=4 × f 3

=4 × (3 × f 2 )

=4 × (3 × (2 × f 1 ))

=4 × (3 × (2 × (1 × f 0 )))

=4 × (3 × (2 × (1 × 1)))

=4 × (3 × (2 × 1))

=4 × (3 × 2)

=4 × 6

=24

Example 96. The following function is not primitive recursive, because if the argument is odd (except for 1) it calls itself recursively with the same arguments. However, if the argument is a power of 2, then the recursion will terminate with f 1, and the function will return the logarithm (base 2) of its argument.

f 0 = 0 f 1 = 0 f x =

if even x

then 1 + f (x ‘div‘ 2) else f x

11.2.3Computational Complexity

The computational complexity of a function is a measure of how costly it is to evaluate. The memory consumption and the time required are common measures of the cost of a function.

Recursion can create some very expensive computations. A famous example is Ackermann’s function:

Definition 66. Ackermann’s function is

ack 0 y = y+1

ack x 0 = ack (x-1) 1

ack x y = ack (x-1) (ack x (y-1))

The ack function is easy to evaluate for small arguments, but the time it takes grows extremely quickly as x and y increase. Books on computability theory and algorithmic complexity show why this happens, but it is interesting to make a table for yourself of ack x y for small values of the arguments.

11.2.4State

A function always returns the same result, given the same argument. This kind

√ √

of repeatability is essential: if 4 = 2 today, then 4 = 2 also tomorrow. Some computations do not have this property. For example, many programming languages provide a ‘function’ that returns the current date and time of day, and the result returned from such a query will definitely be di erent tomorrow. The entire set of circumstances that can a ect the result of a computation is called the state.

Example 97. The state of a computer system includes the current date and time of day, as well as the contents of the file system. Thus a ‘function’ that queries the date, or the amount of free space on disk, will not return the same result every time it is called. These are not true functions, although some programming languages use the keyword function erroneously to refer to them.

Example 98. As consumers, we expect to have to trade money for products. The interface between us and those that sell these products is a functional one. However, we also have to take into consideration things like depreciation over time, or wear and tear, or product expiration dates. These issues concern the state of the items for which we trade money.

Example 99. Some programming languages allow a ‘function’ to modify the value of a global variable. Even if such a ‘function’ always returns the same result for each argument value, its behaviour is not in principle describable by a function graph. A ‘function’ in a program that modifies the global state is not a mathematical function.

Notwithstanding these examples, it is possible to describe computations with state using pure mathematical functions. The idea is to include the state of the system as an extra argument to the function. For example, suppose we need a function f that takes an integer and returns an integer, but the result might also depend on the state of the computer system (perhaps the time of day, or the contents of the file system). We can handle this by defining a new type State that represents all the relevant aspects of the system state, and then providing the current state to f:

f :: State -> Int -> Int

Now f can return a result that depends on the time of day, even though it is a mathematical function. Given the same system state and the same argument, it will always return the same result.

Programs that need to manipulate the state can be written as pure functions, with the state made explicit and passed as an argument to each function that uses it. When a program needs to use the state frequently, however, it becomes awkward to use explicit State arguments; this clutters up the program, and errors in keeping track of the state can be hard to find.

Imperative languages solve this problem by making the state implicit, and allowing side e ects to modify the state. This is a simple way to allow algorithms to use the system state. The cost of this approach is that reasoning about the program is more di cult. In mathematics, if you have an equation of the form x = y, you can replace x by y, or vice versa. This is called substituting equals for equals or equational reasoning. Unfortunately, equational reasoning doesn’t work in general in imperative languages. If a function f depends on the system state, it is not even true that f x = f x. It is still possible to reason formally about imperative programs, for example using the weakest precondition method, but this is more complex than equational reasoning.

Haskell takes a di erent approach: it provides a mechanism allowing you to define operations that use the state implicitly. The mechanism is called a monad, and it is used with do expressions in Haskell. The technique is explained in [32].

11.3Higher Order Functions

A distinction is often made between data (numbers, characters, etc.) and algorithms (code to be executed on a computer). For example, 23 and [1,2,3] are data values, while the length function is code to be executed. Many programming languages treat functions as code, and disallow their use as data. This means that the arguments and result of a function application must be data; functions themselves cannot be used as arguments or results.

In both mathematics and functional programming languages, this restriction is removed: computer code—in the form of functions—can be used as ordinary data values. This means, for example, that you can store functions in data structures. You can also pass a function like length to some other function, which might use it; you can also write a function that does some computation, and then produces a brand new function which it returns. Functions like this are called higher order functions.

Definition 67. A first order function has ordinary (non-function) arguments and result. A higher order function is one that either takes a function as an argument, or returns a function as its value, or both.

Example 100. The Haskell function map is a higher order function, because its first argument is a function which map will apply to each element of the second argument, which is a list. The type of map is

map :: (a->b) -> [a] -> [b]

This type reveals that the function is higher order, since the first argument has a type that contains an arrow, indicating that this argument is a function.

Example 101. The length function is not higher order. As its type makes plain, the argument is a list type and the result is an integer:

length :: [a] -> Int

We will now look in detail at the various kinds of higher order functions: functions that take other functions as arguments and functions that return functions as results. We will also compare two methods for allowing a function to take several arguments: building a tuple so that all the arguments are packaged in a data structure, and using higher order functions to take the arguments one at a time.

11.3.1Functions That Take Functions as Arguments

Any function that takes another function as an argument is higher order. This kind of higher order function will have a type something like the following:

f :: (· · · → · · · ) → · · ·

We have already seen many examples of such functions in Haskell; map and foldr are typical. Generally, this variety of higher order function will also take a data argument, and it will apply its function argument to its data argument in a special way.

Example 102. As we have already seen, the map function takes a data structure (which must be a list of data values) and applies its function argument to each element of the list.

map :: (a->b) -> [a] -> [b] map f [] = []

map f (x:xs) = f x : map f xs

Example 103. The following function performs an operation twice on the data argument x. The operation to be performed is specified by the first argument f, which is a function.

twice :: (a -> a) -> a -> a twice f x = f (f x)

Notice that the type of f is more restricted in twice than it is in map. The reason for this is that nothing in map constrains either the argument type or the result type of f, so the function can have the general function type a->b. In twice, however, the result returned by f is used as the argument to another application of f. This means that f must have the less general function type a->a.

Higher order functions provide a flexible and powerful approach to userdefined control structures. A control structure is a programming language construct that specifies a sequence of computations. Examples of control structures in imperative programming languages include for loops, while loops, the if statement, and the like.

It is often possible to define a higher order function that implements a control structure. For example, let ys be a list of length n. Then the Haskell equation

ys = map f xs

is similar to the following for loop (written in a common imperative style):

for i = 1 to n y[i] := f (x[i]);

Thus map describes an iteration that computes a list of values, where the ith element of the result is computed from the ith element of the argument by applying the function f. Similarly,

y = foldl f a xs

is similar to the following imperative loop:

y := a;

for i := 1 to n do y := f y x[i]

11.3.2Functions That Return Functions

Any function that returns another function as its result is higher order, and its type will have the following form:

f :: · · · → (· · · → · · · )

To understand this kind of higher order function, it is helpful to study the function graph in detail. First, we define some first order functions to be used in the examples:

ident, double, triple, quadruple :: Int -> Int

ident 1 = 1 ident 2 = 2 ident 3 = 3

double 1 = 2 double 2 = 4 double 3 = 6

triple 1 = 3 triple 2 = 6 triple 3 = 9

quadruple 1 = 4 quadruple 2 = 8 quadruple 3 = 12

These simple functions perform multiplication on small arguments. For example, double takes a number x (which must be 1, 2 or 3) and it returns 2 × x. The graph of a first order function is a straightforward set of ordered pairs; the functions just defined have the following graphs:

ident = {(1, 1), (2, 2), (3, 3)} double = {(1, 2), (2, 4), (3, 6)} triple = {(1, 3), (2, 6), (3, 9)}

quadruple = {(1, 4), (2, 8), (3, 12)}

Now we define a higher order function, multby, which takes one argument of type Int and returns a function with type Int->Int:

multby :: Int -> (Int->Int) multby 1 = ident

multby 2 = double multby 3 = triple multby 4 = quadruple

This function simply looks at its first argument x, an integer that must be in {1, 2, 3, 4}, and it returns another function. Now consider the value of multby 3 2. This is syntactically equivalent to (multby 3) 2, and we can evaluate the expression using the function definitions. Notice that multby 3 returns a function that multiplies things by 3, so multby 3 2 evaluates to 6:

multby 3 2

=(multby 3) 2 syntax rule of Haskell

=triple 2 definition of multby (third equation)

If a function returns another function as its result, then its graph will be a set of ordered pairs (x, y) where x is the argument to the function and y is another function graph. Figure 11.5 shows the graph of multby:

multby = (1, {(1, 1), (2, 2), (3, 3)}) (2, {(1, 2), (2, 4), (3, 6)}) (3, {(1, 3), (2, 6), (3, 9)})

(4, {(1, 4), (2, 8), (3, 12)})

11.3.4Multiple Results as a Tuple

A function must return exactly one result, but sometimes in practice we want one to return several pieces of information. In such cases, the multiple pieces can be packaged into a tuple, and the function can return that as a single result. This technique is analogous to passing several arguments as a tuple.

Example 105. The following Haskell function takes an integer x, and returns two results x − 1 and x + 1 packaged in a pair (i.e., a 2-tuple):

addsub1 :: Integer -> (Integer,Integer) addsub1 x = (x-1, x+1)

11.3.5Multiple Arguments with Higher Order Functions

Higher order functions provide another method for passing several arguments to a function. Suppose that a function needs to receive two arguments, x :: a and y :: b, and it will return a result of type c. The idea is to define the function with type

f :: a → (b → c).

Thus f takes only one argument, which has type a, and it returns a function with type b → c. The result function is ready to be applied to the second argument, of type b, whereupon it will return the result with type c. This method is called Currying, in honour of the logician Haskell B. Curry (for whom the programming language Haskell is also named).

The graph of f is a set of ordered pairs; the first element of each pair is a data value of type a, while the second element is the function graph for the result function. That function graph contains, in e ect, the information that f obtained from the first argument.

Example 106. The following function, mult, is similar to add (see example 104); apart from using * rather than +, the only di erence is that mult is higher order, and takes its arguments one at a time:

mult :: Integer -> (Integer->Integer) mult x y = x*y

The graph of mult is a set of ordered pairs of the form (k, fk ), where k is the value of the first argument to mult, and fk is the graph of a function that takes a number and multiplies it by k:

11.4Total and Partial Functions

Recall that the domain of a function f :: A → B is a subset of A consisting of all the elements of A for which f is defined. There are two sets that can be used to describe the possible arguments of f . The argument type A is generally thought of as a constraint: if you apply f to x, then it is required that x A (alternatively, x :: A). If this constraint is violated then the application f x is meaningless. The domain of f is the set of arguments for which f will produce a result. Naturally, domain f must be a subset of A. However, there is an important distinction between functions where the domain is the same as the argument type, and functions where the domain is a proper subset of the argument type.

Definition 68. Let f :: A → B be a function. If domain f = A then f is a total function. If domain f A then f is a partial function.

If f is a partial function, and x domain f , then we say that f x is defined. There are several standard ways to describe an application f y where y :: A but y domain f . It is common, especially in mathematics, to write ‘f y is undefined’. Another approach, frequently used in theoretical computer science, is to introduce a special symbol (pronounced bottom), which stands for an undefined value. This allows us to write f y = .

Example 107. The following function has argument type Integer, but its domain is {1, 2, 3}:

f :: Integer -> Char f 1 = ’a’

f 2 = ’b’ f 3 = ’c’

The expression f 1 is defined, and its value is the character ’a’. The expression f 4 is undefined, and it has no value. Another way to say this is that f 1 = ’a’ and f 4 = . The graph of f is {(1, ’a’), (2, ’b’), (3, ’c’)}.

Partial functions are useful when describing the behaviour of programs. Generally, the type of a function can be used for compile-time analysis by the compiler, but the domain may be di cult or impossible to work out from the function’s definition.

Example 108. The function sqrt :: Float->Float takes the square root of its argument. The argument type is Float, and the compiler uses that constraint to detect errors in the program. Thus if a program contains an application like sqrt "cat" the compiler will produce an error message, because a character string is not an element of the type Float. However, the compiler cannot determine whether a numeric argument to sqrt will be positive or negative.

Example 109. The following function can be applied to any integer, but it is defined only for 1:

justone :: Int -> Int justone 1 = 3

If this function is applied to anything that isn’t an integer, the compiler will produce a type error message, and the program cannot be executed. If it is applied to 2, no error is detected at compile time but a runtime error message will be produced, for example:

> justone 2

Program error: {justone 2}

Many programming languages have the property that some type errors are not detectable by the compiler, and the application of a function to an argument of the wrong type is likely to crash the program. The Haskell type system is designed carefully so that the compiler guarantees that all type errors will be detected at compile time; it is impossible for the program to crash at runtime due to a type error. Unix programmers using C are accustomed to running a program and getting the message segmentation fault; this is caused by a type error (for example, if an integer value is used as an address). Such errors are rare in Haskell; even though the compiler knows nothing about the domains of functions, it is able to catch most errors just by checking their types.

If a function is applied to a value that has the right type, but that is not in the function’s domain, then a runtime error occurs. Sometimes the program, or the system, is able to detect this and produce an error message. For example, if the sqrt function is applied to -2, an error message will be produced explaining what happened.

Some runtime error messages are generated automatically, but Haskell also allows you to implement such error messages yourself. The function error takes a string argument, which is an error message; if an application of error is evaluated, the string is printed and the program execution is terminated.