fork download
copy 
  1.  
  2. (defun average (&rest parameters)
  3. 	(if parameters
  4. 		(let ((accum
  5. 				(reduce #'(lambda (state value)
  6. 							(list (+ (first state) value)
  7. 								(1+ (second state))))
  8. 						parameters
  9. 						:initial-value (list 0 0))))
  10. 			(/ (first accum) (second accum)))
  11. 		0))
  12.  
  13. (format t "~a~%" (average 2 4 6))
  14.  
Success #stdin #stdout 0.01s 10512KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
4
https://ideone.com/hYggrM
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!