08/07/01 00:37:35 DKgSRgMq0
おもろそうだからワンライナーに挑戦
function! Get_words_starting_with(head_str)
let words = {}
call substitute(join(getline('1', '$')), '\<' . a:head_str . '.\{-}\>', '\=empty(extend(words, {submatch(0):0}))', 'g')
return keys(words)
endfunction
できんかった…
思いがけずsubstituteで辞書に追加する方法を見つけた