Return to Answer

added 56 characters in body

edited Mar 30, 2013 at 7:59

R : 4848 43 characters

f=function(a,b,c...){prod(sum(a+b+c...)/2-c(0,a,b,c...))^.5}

Using Heron's formula as well but taking advantage of R's vectorization.
Thanks to @flodel for the idea of the ellipsis.

Usage:

f(2,3,4) [1] 2.904738 f(3,4,5) [1] 6

f=function(a,b,c){prod((a+b+c)/2-c(0,a,b,c))^.5}

Using Heron's formula as well but taking advantage of R's vectorization.

Usage:

f(2,3,4) [1] 2.904738 f(3,4,5) [1] 6

f=function(...)prod(sum(...)/2-c(0,...))^.5

Using Heron's formula as well but taking advantage of R's vectorization.
Thanks to @flodel for the idea of the ellipsis.

Usage:

f(2,3,4) [1] 2.904738 f(3,4,5) [1] 6

answered Mar 26, 2013 at 13:04

f=function(a,b,c){prod((a+b+c)/2-c(0,a,b,c))^.5}

Using Heron's formula as well but taking advantage of R's vectorization.

Usage:

f(2,3,4) [1] 2.904738 f(3,4,5) [1] 6