fork(4) download
copy 
  1. ; heron's formula
  2.  
  3. (define (area a b c)
  4.   (let ((s (/ (+ a b c) 2)))
  5.     (sqrt (* s (- s a) (- s b) (- s c)))))
  6.  
  7. (display (area 3 4 5)) (newline)
Success #stdin #stdout 0.02s 50224KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
6
https://ideone.com/Co94oe
language:
Scheme (guile 2.2.4)
created:
6 years ago
visibility:
public

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!