wordcount.vim

let s:S = vital#vital#import('Data.String')
let s:L = vital#vital#import('Data.List')

function! s:count_words(text) abort
  let F = { memo, x -> extend(memo, {x: get(memo, x, 0) + 1}) }
  return s:L.foldl(F, {}, s:S.scan(a:text, '\w\+'))
endfunction

echo s:count_words('this is a pen or not a pen')
" {'this': 1, 'is': 1, 'a': 2, 'pen': 2, ...}