ieee754 by kozima

(defun f(p x y z w)(setf r(read-from-string(format()"~A~A0"(read-line)p))(values a e s)(integer-decode-float r)n(if(= a 0)0(+(ash(+(ash(/(1- s)-2)x)y(ash 1(1- x))e -1)(+ y z))a(-(ash(- 1 z)y)))))(format t"~(~V,'0X~)
"w(if(< 3 r(+ 3 z))(+(if(oddp n)-1 1)n)n)))(loop(case(read)(single(f"f"8 23 0 8))(double(f"d"11 52 0 16))(t(f"l"15 63 1 20))))

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page