fork download
copy 
  1. (define (square x)
  2. 	(* x x))
  3.  
  4. (define (abs-and-square x y)
  5. 	(cond
  6. 		((> x 0)
  7. 		 (values x (square y)))
  8. 		((< x 0)
  9. 		 (values (- x) (square y)))))
  10.  
  11. (let-values (((abs square) (abs-and-square 3 4)))
  12.             (display abs)
  13.             (display " ")
  14.             (display square))
  15. (newline)
  16. (let-values (((abs square) (abs-and-square -3 4)))
  17.             (display abs)
  18.             (display " ")
  19.             (display square))
Success #stdin #stdout 0s 7904KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3 16
3 16
https://ideone.com/VEuJ9K
language:
Scheme (chicken 4.13)
created:
3 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!