osse's freqs

gistfile1.vim

function! LetThereBeKeys(dict, list, default)
  let dict = a:dict
  call map(copy(a:list), 'extend(dict, {v:val : get(dict, v:val, a:default)})')
  return dict
endfunction

function! Freqs2(list)
  let freqs = {}
  let words = split(join(getline(1, '$')))
  call map(copy(a:list)
        \ , 'extend(freqs, {v:val : '
        \ .   'len(filter(copy(words), ''v:val =~ "\\<'' . v:val . ''\\>"''))})')
  return freqs
endfunction


function! Freqs(list)
  let freqs = {}
  for line in getline(1, '$')
    for word in a:list
      if line =~ '\<' . word . '\>'
        let freqs[word] = get(freqs, word, 0) + 1
      endif
    endfor
  endfor
  return freqs
endfunction