fork download
copy 
  1. (defmacro runner (fun &rest arg)
  2.    `(mapcar (lambda (a) (funcall #',fun a)) (list ,@arg)))
  3.  
  4. (setq l1 (list 1 2 3))
  5. (setq l2 (list 2 3 4))
  6. (setq l3 (list 3 4 5))
  7.  
  8. (defun summer (l)
  9.   (reduce #'+ l))
  10.  
  11. (print (runner summer l1 l2 l3))
  12.  
  13. (print (runner (lambda (x) (+ x 1)) 1 3 4))
Success #stdin #stdout 0s 10520KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(6 9 12) 
(2 4 5)
https://ideone.com/uHXjPp
language:
Common Lisp (clisp 2.49.92)
created:
9 years ago
visibility:
secret

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!