ランダムな行に移動する

　Emacsのひらいているバッファで適当な行へジャンプするものをつくった。

	(require 'cl)
	(cl-defun y-goto-randam-line(&optional (cond (lambda(x) x)))
	"バッファのランダムな行へ移動する"
	(let ((max (save-excursion (end-of-buffer)
	(line-number-at-pos))))
	(cl-random max (make-random-state))
	(while (not (let ((line (+ (cl-random max) 1)))
	(when (funcall cond line)
	(goto-line line)))))))

view raw y-goto-randam-line.el hosted with ❤ by GitHub

　引数は飛び先の行を判定する条件をコントロールするもの。

(y-goto-randam-line 'oddp)

　これで奇数行だけにジャンプする(はず)。

　——これが何の役に立つのか？
　立たないかもしれない。