簡単な分数と小数の対応表

不明な式を解析するのに便利そうなので作ってみた。1〜100までのx,yを使ってx/yを作り、整数値となるものを外してソートするだけである。下のコードは手抜きのため、非常に遅いので実行する際は注意。

;分数早見表を作る。
(let (l)
 (dotimes (a 100)
   (dotimes (b 100)
     (push (/ (1+ a) (1+ b)) l)))
   (format t "~:{~,4F ~A~%~}"
     (delete-duplicates
       (sort (mapcar (lambda (x) (list (float x) x)) (remove-if 'integerp l)) '< :key 'car)
       :key 'cadr)))