簡単な分数と小数の対応表
不明な式を解析するのに便利そうなので作ってみた。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)))