Subject: Re: why do my function doesn't work!??
From: (Rob Warnock)
Date: 2000/05/20
Newsgroups: comp.lang.scheme
Message-ID: <8g5p7h$d1bnm$>
[Note: Newsgroups trimmed to something reasonable.]

Sady <> wrote:
| this is what i tried:
| (define (flip)
|   (let ((even-or-odd 0))
|     (lambda (even-or-odd)
|       (if (odd? even-or-odd)
|           (set! even-or-odd 0)
|           (set! even-or-odd 1)))
|             even-or-odd))

There are several things wrong here (much of which, though not all,
could have been avoided by proper indenting)...

I think you want a closure to *be* the value of "flip", not be an
unused do-nothing value. As written, your code is equivalent to this:

    (define (flip)
      (let ((even-or-odd 0))
        ; the lambda value was unused

so of course it was always going to return zero.

Or to look at it another way, here's what you actually wrote when the
short-hand "define" syntax is expanded and it's indented to match the
nesting of the parens:

    (define flip
      (lambda ()
	(let ((even-or-odd 0))
	  (lambda (even-or-odd)    ; this procedure value is never used
	    (if (odd? even-or-odd)
              (set! even-or-odd 0)
              (set! even-or-odd 1)))

Hints: The last "even-or-odd" is in the wrong place; so is the "let";
and you don't need the second "lambda" at all. (The formal arg of the
inner lambda shadows the "let" variable, so you could never access it
anyway.)  Hopefully that will be enough for you to make progress...


Rob Warnock, 41L-955
Applied Networking
Silicon Graphics, Inc.		Phone: 650-933-1673
1600 Amphitheatre Pkwy.		PP-ASEL-IA
Mountain View, CA  94043