フィボナッチ数列を計算するvim script書いた

また数学関係のスクリプトです。
以前vbでフィボナッチ数列を計算するプログラムを授業の課題として書きました。割と簡単だったのをよく覚えています。そこでまた悪魔がささやきました「vim scriptでもできるさ」
書いてみました。

function! s:fibonacci()
	let a = 0
	let b = 1
	let temp = 0
	let cnt = 0
	let @y = "0"
	new fibo
	put y
	let @y = "1"
	put y
	while cnt < 10
		let temp = b
		let b = a + b
		let @y = b
		let a = temp
		let cnt = cnt + 1
		put y
		"put s
	endwhile
	write
	for line in readfile("fibo")
		if line =~ 'Date'
			echo line
		endif
	endfor
	echo "succesfull"
endfunction

command! Fibo :call <SID>fibonacci()

実行するとfiboというファイルを作成し、そのファイルに計算結果を保存します。
10回計算すると画面を分割してファイルを表示します。表示完了時にsuccesfullと表示します。
だいたいそんな感じです。またつまらぬものを書いてしまった。
何の役にも立ちませんが、ネタとして使ってみてください。いつ書いたか忘れるくらい前に書いたものを引っ張りだしてきたｗ