(def foo(s) (let a '(3) (= (car a) (cons s (car a))))) arc> (foo 3) (3 . 3) arc> (foo 3) (3 3 . 3)
$ mzscheme Welcome to MzScheme version 360, Copyright (c) 2004-2006 PLT Scheme Inc. > (define (foo s) (let ((a '(3))) (set-car! a (cons s (car a))) (car a))) > (foo 3) (3 . 3) > (foo 3) (3 3 . 3)
arc> (def foo (s) (let a (list 3) (= (car a) (cons s (car a))))) #<procedure: foo> arc> (foo 3) (3 . 3) arc> (foo 3) (3 . 3)
-----