# Concurrent Clean/AnswersCH1

2. Write a function that takes two arguments, say n and x, and computes their power, xn. Use this to construct a function that squares its argument. Write a program that computes the square of 128.

Answers:

module exercicio02

import StdEnv

quadrado n x = n ^ x

Start = quadrado 2 7

3. Define the function isum :: Int -> Int which adds the digits of its argument. So, isum 1234 = 10 isum 0 = 0 isum 1001 = 2 You may assume that isum is applied to an argument which is not negative.

Answers:

module exercicio04

import StdEnv

isum :: Int -> int

isum 1234 = 10

isum 0 = 0

isum 1001 = 2

Start = isum 0

4. Use the function isum to check whether a number can be divided by 9.

5. Define a function Max with two arguments that delivers the maximum of the two.

6. Define a function Min that has two arguments that delivers the minimum of the two.

7. Define a function MaxOfList that calculates the largest element of a list.

8. Define a function MinOfList that calculates the smallest element of a list.

9. Define a function Last that returns the last element of a list.

10. Define a function LastTwo that returns the last two elements of a list.

11. Define a function Reverse that reverses the elements in a list.

12. Define a function Palindrome which checks whether a list of characters is a palindrome, i.e. when you reverse the characters you should get the same list as the original.