- 15 名前：デフォルトの名無しさん mailto:sage [2014/09/21(日) 13:05:51.37 ID:94PpjV7B]
- >>12 Emacs Lisp
(defun f (N)
(let* ((AD 100.0)
(CE 100.0)
(DE 100.0)
(DB (abs N))
(BE (abs (- DE N)))
(AB (sqrt (+ (* AD AD) (* DB DB))))
(BC (sqrt (+ (* CE CE) (* BE BE)))))
(list AB BC)))
f
(f 0.0)
(100.0 141.4213562373095)
(f 100.0)
(141.4213562373095 100.0)
(f 200.0)
(223.60679774997897 141.4213562373095)
(f -100.0)
(141.4213562373095 223.60679774997897)
