| 1 | scriptencoding utf-8 " {{{ {{{ |
| 2 | if &cp || exists("g:loaded_rand") |
| 3 | finish |
| 4 | endif |
| 5 | let g:loaded_rand = 1 |
| 6 | |
| 7 | let s:save_cpo = &cpo |
| 8 | set cpo&vim " }}} |
| 9 | |
| 10 | function! Rand(max) " {{{ |
| 11 | perl << EOF |
| 12 | my $max = VIM::Eval('a:max'); |
| 13 | my $value = int(rand($max)), '\n'; |
| 14 | VIM::DoCommand("let l:r = $value") |
| 15 | EOF |
| 16 | return l:r |
| 17 | endfunction " }}} |
| 18 | |
| 19 | let &cpo = s:save_cpo " {{{ |
| 20 | finish " }}} }}} |
| 21 | ============================================================================== |
| 22 | rand.vim : 乱数生成ファンクション |
| 23 | ============================================================================== |
| 24 | $VIMRUNTIMEPATH/plugin/rand.vim |
| 25 | ============================================================================== |
| 26 | author : 小見 拓 |
| 27 | url : http://nanasi.jp/ |
| 28 | email : mail@nanasi.jp |
| 29 | version : 2009/12/19 16:00:00 |
| 30 | ============================================================================== |
| 31 | 乱数を生成するRand()ファンクションを定義。 |
| 32 | expressionレジスタを利用して、 |
| 33 | |
| 34 | Control-r = Rand(100) |
| 35 | |
| 36 | というように使う。 |
| 37 | 現バージョンはPerlインターフェイスを使用。 |
| 38 | |
| 39 | |
| 40 | ------------------------------------------------------------------------------ |
| 41 | Rand({max}) |
| 42 | {max}以下の乱数を生成して返します。 |
| 43 | |
| 44 | |
| 45 | ============================================================================== |
| 46 | " vim: set ts=4 sts=4 sw=4 et nowrap foldmethod=marker : |
| 47 | |
