タンブラー？

Merry Christmas

ちょっと遅れたけど。
scriptencoding utf-8

let s:seed = 0
function! s:srand(seed)
  let s:seed = a:seed
endfunction

function! s:rand()
  let s:seed = s:seed * 214013 + 2531011
  return (s:seed  http://j.mp/uktPHP