【AtCoder ABC239A】
Horizon
（倍精度浮動小数点数）

• B – Horizon

精度を上げるために、double-floatにして計算し、出力時には末尾の d0 をなくすように、”~f”のフォーマットを使いました。

(defun horizon (x)
  (declare (type number x))
  (sqrt (* x (+ 12800000d0 x))))

(defun main ()
  (format t "~f" (horizon (read))))

#-swank(main)
Code language: Lisp (lisp)