ぽんとさんのために作りました

ponto-special.el

;; このようなデータを
;; 532101	18	19	
;; 532102	19	20	
;; ↓
;; 532101	18	19	1.0555555555555556	
;; 532102	19	20	1.0526315789473684	
;; このようにします

(defun ponto-special (start end)
  (interactive "r")
  (replace-regexp "^\\(.*	\\)\\([0-9]+\\)	\\([0-9]+\\)"
                  (query-replace-compile-replacement "\\1\\2	\\3	\\,(/ (string-to-int \\3) (string-to-int \\2))" t) 
                  nil start end))

(provide 'ponto-special)

なんて specific な。