8. Walk I

1. Make AList mean [Int].

2. Write a function (ao) that takes in an AList and puts out an Int. The ao function adds up all of the odd numbers in the list. Include signature.

3. Make WP (for “word pair”) mean (String, String).

4. Write a function (ce) counting how many times the two strings are equal in a list of WP. Include signature.

5. Make a data type called Celsius that holds a Float measuring the temperature.

6. Make a similar data type called Fahrenheit.

7. (tempchange) Make a function that converts Celsius to Fahrenheit according to the rule (f = 9/5 c + 32).

8. Names: Surname is a String, and GivenName is a String. Make two data types, one for each.

9. The marry function takes two Surname and combines them with a hyphen to create a new Surname. Write the signature and function.

10. Beginning with the Point definition below, write a d0 function measuring the distance to the origin.

    data Point = Origin | Point Float Float
    

11. Make a datatype Drink which is Water or Gatorade.

12. Make a calories function that converts Drink to Int calories. Water is 0, Gatorade is 15. Include a signature.

Tester code

p1 :: AList
p1 = [10,20,30]
p2 = (ao p1 == 40)
p3 :: WP
p3 = ("Chicago","Illinois")
p4 = (ce [("X","Y"),("A","A"),("B","B"),("C","D")] == 2)
p5 :: Celsius
p5 = Celsius 37.0
p6 :: Fahrenheit
p6 = Fahrenheit 98.6
p7 = (p6 == tempchange p5)
p8a :: Surname
p8a = Surname "Mauer"
p8b = Surname "Oats"
p8c :: GivenName
p8c = GivenName "Doc"
p9 = (marry p8a p8b) == Surname "Mauer-Oats"
p10a = (d0 Origin == 0)
p10b = (d0 (Point 3.0 4.0)) == 5.0
p11a :: Drink
p11a = Gatorade
p11b :: Drink
p11b = Water
p12 = (calories Water, calories Gatorade) == (0,15)