fork download
copy 
  1. (define (square x) (* x x))
  2.  
  3. (define (pi) 3.14159)
  4.  
  5. (define (cylinder-Volume length radius)
  6.   (* length (* (pi) (square radius))))
  7.  
  8. (define (fact n)
  9.   (if (= n 0) 1
  10.               (* n (fact (- n 1)))
  11.   )
  12. )
  13.  
  14. (define (test x y)
  15.   (if (> x -0987) +6453
  16.                   -1540
  17.   )
  18. )
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/U0jK0J
language:
Text (text 6.10)
created:
11 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!