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))) |
IChkZWZ1biBwcmVmaXggKGEgeSkKICAoY29uZCAoKG51bGwgeSkgbmlsKQogICAgICAgICh0IChjb25zIChjb25zIGEgKGNhciB5KSkKICAgICAgICAgICAgICAgICAocHJlZml4IGEgKGNkciB5KSkpKSkpCiAKKHByaW50IChwcmVmaXggImEiICcoMSAyIDMgNCkpKQo=
-
upload with new input
-
result: Success time: 0.02s memory: 10592 kB returned value: 0
(("a" . 1) ("a" . 2) ("a" . 3) ("a" . 4))


