Haskell:

Write a function length_char c string (that uses recursion) that takes a character c and a string string and returns the number of times that c occurs at the start of string.

So length char 'a' "aaabaa" should return 3, and length char 'c' "cbcac" should return 1.