Using haskell platform and notepad++ please

Two quistion seperatly functions.

Q1: Write these two function using Haskell platform sign :: Int -> Int that returns 1 for positive arguments, -1 for negative arguments and 0 for zero- valued arguments. howManyEqual :: Int -> Int -> Int -> Int which determines how many of its three arguments are equal (i.e. it returns either 0, 2 or 3)