fork download
copy 
  1. \ http://c...content-available-to-author-only...e.com/a/101514/34718
  2.  
  3. \ a*b*c *  1/ ( -(a+b-c) * -(b+c-a) * (a+c-b) )
  4.  
  5. : p 3 fpick ;
  6. : T p p p ;
  7. : f 0 s>f T f- f+ f- T f+ f- f* T f- f- f* 1/f f* f* f* ;
  8.  
  9. \ test cases
  10.  
  11. 1e 1e 1e f f.
  12. 3e 4e 5e f f.
  13. 42e 42e 3.14e f f.
  14. 14e 6e 12e f f.
  15. 6e 12e 14e f f.
  16. 0.5e 0.6e 0.7e f f.
Success #stdin #stdout 0s 6836KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1. 1.25 6.94760622669362 1.575 1.575 1.09375
https://ideone.com/lhvmGq
Aspect Ratio of Triangle
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!