Help to write program in haskell

Mustafa Khalifa Aswad ceemka@cee.hw.ac.uk
Wed, 05 Sep 2001 13:10:05 +0100


I  have function produce the string of char from list of list string  i
need how many time the elem occurece in the list  the  function as
follow

pins1 :: (Eq a) => [[a]] -> [a]
pins1   [] = []
pins1  (xs:xss) = [x   | x <- xs , or  [ x `elem` ys  | ys <- xss] ]

the input is  as follow :
"[[\"u\",\"g\",\"c\",\"\",\"au\",\"aug\",\"augc\",\"augca\",\"ug\",\"ugc\",\"ugca\",\"gc\",\"gca\",\"ca\"],[\"a\",\"u\",\"g\",\"c\",\"\",\"au\",

\"aug\",\"augc\",\"ug\",\"ugc\",\"gc\"],[\"a\",\"c\",\"\",\"ag\",\"agg\",\"aggc\",\"gg\",\"ggc\",\"gc\"]]"


the output  is as follow
"[\"u\",\"g\",\"c\",\"\",\"au\",\"aug\",\"augc\",\"ug\",\"ugc\",\"gc\"]"

 the require function  to produce output  as follow
"[(\"u\",2),(\"g\",2),(\"c\",3),
,(\"au\",2),(\"aug\",2),(\"augc\",1),(\"ug\",2),(\"ugc\",2),(\"gc\",2)]"

please contact me on
( ceemka@cee.hw.ac.uk)