while()=Printf.printf"%.f "(Scanf.scanf"%f %f %f "(fun a b c->let($)p q=p*.((a+.b+.c)/.2.-.q)in 1.$a$b$c$0.)**0.5)do()done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page