Path: utzoo!utgpu!news-server.csri.toronto.edu!helios.physics.utoronto.ca!ists!yunexus!oz
From: oz@yunexus.yorku.ca (Ozan Yigit)
Newsgroups: comp.lang.lisp
Subject: Re: Is this the end of the lisp wave?
Message-ID: <20535@yunexus.YorkU.CA>
Date: 16 Jan 91 18:39:25 GMT
References: <127724@linus.mitre.org> <18944@ultima.socs.uts.edu.au> <5420@idunno.Princeton.EDU>
Sender: news@yunexus.YorkU.CA
Organization: York U. Communications Research & Development
Lines: 49

In article <5420@idunno.Princeton.EDU> eliot@phoenix.Princeton.EDU
(Eliot Handelman) writes:

>Simple, yet elegant.

Still is. ;-)

;;; fib with peano arithmetic and call/cc (by Kent Dybvig)

(define addc
   (rec addc
      (lambda (x y k)
         (if (zero? y)
             (k x)
             (addc (1+ x) (1- y) k)))))

(define fibc
   (rec fibc
      (lambda (x c)
         (if (zero? x)
             (c 0)
             (if (zero? (1- x))
                 (c 1)
                 (addc (call/cc (lambda (c) (fibc (1- x) c)))
                       (call/cc (lambda (c) (fibc (1- (1- x)) c)))
                       c))))))


And just in case you are not convinced, here is another expert
opinion. 

The wonderful thing about Scheme is:
Scheme is a wonderful thing.
Complex procedural ideas
Are expressed via simple strings.
Its clear semantics, and lack of pedantics,
Help make programs run, run, RUN!
But the most wonderful thing about Scheme is:
Programming in it is fun,
Programming in it is FUN!

                        tigger@hundred-acre-wood.milne.disney
                        forwarded by ramsdell@linus.uucp


cheers...	oz
---
Where the stream runneth smoothest,   | Internet: oz@nexus.yorku.ca 
the water is deepest.  - John Lyly    | UUCP: utzoo/utai!yunexus!oz