\ http://c...content-available-to-author-only...e.com/a/101514/34718
\ a*b*c * 1/ ( -(a+b-c) * -(b+c-a) * (a+c-b) )
: p 3 fpick ;
: T p p p ;
: f 0 s>f T f- f+ f- T f+ f- f* T f- f- f* 1/f f* f* f* ;
\ test cases
1e 1e 1e f f.
3e 4e 5e f f.
42e 42e 3.14e f f.
14e 6e 12e f f.
6e 12e 14e f f.
0.5e 0.6e 0.7e f f.
XCBodHRwOi8vYy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5jb20vYS8xMDE1MTQvMzQ3MTgKClwgYSpiKmMgKiAgMS8gKCAtKGErYi1jKSAqIC0oYitjLWEpICogKGErYy1iKSApCgo6IHAgMyBmcGljayA7CjogVCBwIHAgcCA7CjogZiAwIHM+ZiBUIGYtIGYrIGYtIFQgZisgZi0gZiogVCBmLSBmLSBmKiAxL2YgZiogZiogZiogOwoKXCB0ZXN0IGNhc2VzCgoxZSAxZSAxZSBmIGYuCjNlIDRlIDVlIGYgZi4KNDJlIDQyZSAzLjE0ZSBmIGYuCjE0ZSA2ZSAxMmUgZiBmLgo2ZSAxMmUgMTRlIGYgZi4KMC41ZSAwLjZlIDAuN2UgZiBmLg==