fork download
copy 
  1.  
  2.  
  3. (define (ass x)
  4.   (cond
  5.     ((> x 0) x) ; Manca una parentesi di chiusura qui
  6.     ((< x 0) (- x))
  7.     ((= x 0) 0)))
  8.  
  9.  
  10.  
  11. (display (ass 5))
  12.        (display(ass -7))
  13. (display(ass 0))
  14. (display(ass (* -3 6)))
  15.  
Success #stdin #stdout 0.02s 10972KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
57018
https://ideone.com/Qq1RJN
language:
Scheme (guile 2.2.4)
created:
9 days 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!