fork download
copy 
  1. ; your code goes here
  2. (defun ex1 (a b c) (apply #'+ (mapcar (lambda (n) (* n n)) (cdr (sort (list a b c) #'<)))))
  3. (print (ex1 3 2 1))
  4. (print (ex1 1 2 3))
Success #stdin #stdout 0.01s 10512KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
13 
13
https://ideone.com/lB3ph3
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!