language: Common Lisp (clisp) (clisp 2.47)
date: 164 days 20 hours ago
link:
visibility: public
1
2
3
4
5
6
7
 (defun prefix (a y)
  (cond ((null y) nil)
        (t (cons (cons a (car y))
                 (prefix a (cdr y))))))
 
(print (prefix "a" '(1 2 3 4)))