fork download 
  1. (defun r (x y)
  2.   (sqrt (+ (expt x 2) (expt y 2))))
  3.  
  4. (defun f628 (n)
  5.   (print (elt (sort (loop for x from 1 to n
  6. 						  nconc (loop for y upto x collect (r x y)))
  7. 					#'<)
  8. 			  (1- n))))
  9.  
  10. (f628 1)
  11. (f628 2)
  12. (f628 5)
  13. (f628 9)
Success #stdin #stdout 0.02s 10608KB
comments (?)
stdin 
Standard input is empty
stdout 
1 
1.4142135 
2.828427 
4
https://ideone.com/rkrDkd
language:
Common Lisp (clisp 2.49.92)
created:
10 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!