area of triangle by kozima

(loop(setf a(read)b(read)c(read)s(/(+ a b c)2))(format t"~D
"(round(sqrt(*(- s a)(- s b)(- s c)s)))))

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

download

return to the top page