gistfile1.hrl

module(elementcount).                                                                                                                                                                
export([elementcount/2]).                                                                                                                                                            
                                                                                                                                                                                      
elementcount(Key, List) ->                                                                                                                                                            
    lists:foldl(fun(X, Acc) ->                                                                                                                                                        
                        case X =:= Key of                                                                                                                                             
                            true ->                                                                                                                                                   
                                Acc + 1;                                                                                                                                              
                            false ->                                                                                                                                                  
                                Acc                                                                                                                                                   
                        end                                                                                                                                                           
                end,                                                                                                                                                                  
                0, List).