fork download
copy 
  1. (print 
  2.  (let ((aaa 3000) (bbb 4000) (ms '(aaa bbb)))
  3.    (mapcar
  4.     (lambda (arg) 
  5.       (funcall 
  6.        (let ((my-closure (lambda () arg)))
  7.          (setf (car (last (function-lambda-expression my-closure))) arg)
  8.          my-closure)))
  9.     ms)))
Success #stdin #stdout 0.03s 10544KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(3000 4000)
https://ideone.com/NC2RZ
language:
Common Lisp (clisp 2.49.92)
created:
13 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!