fork download
copy 
  1.  (defun prefix (a y)
  2.   (cond ((null y) nil)
  3.         (t (cons (cons a (car y))
  4.                  (prefix a (cdr y))))))
  5.  
  6. (print (prefix "a" '(1 2 3 4)))
  7.  
Success #stdin #stdout 0.02s 10592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(("a" . 1) ("a" . 2) ("a" . 3) ("a" . 4))
https://ideone.com/FyeJVR
language:
Common Lisp (clisp 2.49.92)
created:
11 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!