fork download
copy 
  1. (define (square x)
  2. 	(* x x))
  3.  
  4. (define (abs_and_square x y)
  5. 	(
  6. 		(if (> x 0)
  7. 		    (x (square y))
  8. 		    ((- x) (square y)))))
  9.  
  10. (display (abs_and_square 3 4))
Runtime error #stdin #stdout #stderr 0s 7716KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: call of non-procedure: 3

	Call history:

	<syntax>	  [abs_and_square] (##core#if (> x 0) (x (square y)) ((- x) (square y)))
	<syntax>	  [abs_and_square] (> x 0)
	<syntax>	  [abs_and_square] (x (square y))
	<syntax>	  [abs_and_square] (square y)
	<syntax>	  [abs_and_square] ((- x) (square y))
	<syntax>	  [abs_and_square] (- x)
	<syntax>	  [abs_and_square] (square y)
	<syntax>	  (display (abs_and_square 3 4))
	<syntax>	  (abs_and_square 3 4)
	<eval>	  (display (abs_and_square 3 4))
	<eval>	  (abs_and_square 3 4)
	<eval>	  [abs_and_square] ((if (> x 0) (x (square y)) ((- x) (square y))))
	<eval>	  [abs_and_square] (> x 0)
	<eval>	  [abs_and_square] (x (square y))
	<eval>	  [abs_and_square] (square y)
	<eval>	  [square] (* x x)	<--
https://ideone.com/fKCyCb
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!