fork download
copy 
  1. (print (funcall (lambda (x y z)
  2. 			   (flet ((square (x) (* x x)))
  3. 			     (apply #' + (mapcar #'square (cdr (sort (list x y z) #'<))))))
  4. 			 2 4 1))
Success #stdin #stdout 0.01s 10512KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
20
https://ideone.com/gYh1W7
language:
Common Lisp (clisp 2.49.92)
created:
9 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!