История изменений

Исправление tp_for_my_bunghole, 15.10.16 00:44 (текущая версия) :

julia> 1/1000000000000000*100000000000000000000
100000.00000000001

clisp> (/ 1 (* 1000000000000000 100000000000000000000))
1/100000000000000000000000000000000000

;;SBCL
* (/ 1 (* 1000000000000000 100000000000000000000))
1/100000000000000000000000000000000000

(guile-user)> (/ 1 (* 1000000000000000 100000000000000000000))
$1 = 1/100000000000000000000000000000000000

Так в Lisp и Scheme по стандарту(Numerical tower).

Исходная версия tp_for_my_bunghole, 15.10.16 00:38:

julia> 1/1000000000000000*100000000000000000000
100000.00000000001

clisp> (/ 1 (* 1000000000000000 100000000000000000000))
1/100000000000000000000000000000000000

;;SBCL
* (/ 1 (* 1000000000000000 100000000000000000000))
1/100000000000000000000000000000000000

(guile-user)> (/ 1 (* 1000000000000000 100000000000000000000))
$1 = 1/100000000000000000000000000000000000

Так в Common Lisp и Scheme по стандарту(Numerical tower).