Written in scheme/racket create the following functions -

1)Count - Write a procedure counts variables (represent values) and a lists as arguments and returns the number of matching characters in said list

> (count 'A '(A A B C C A B A A B)) which would return 5

2) List-value Write a function List-val that takes a list as its argument and returns the total number of points that the bucket is worth.

> (list-val '(A B C C A B B A A)) returning 14

where A =1 B=2 C=3