From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: **
X-Spam-Status: No, score=2.1 required=5.0 tests=BAYES_40,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c949,a0b5ae1c26aae4ca
X-Google-Attributes: gid10c949,public
X-Google-Thread: f6290,a0b5ae1c26aae4ca
X-Google-Attributes: gidf6290,public
X-Google-Thread: 109fba,a0b5ae1c26aae4ca
X-Google-Attributes: gid109fba,public
X-Google-Thread: fdb77,a0b5ae1c26aae4ca
X-Google-Attributes: gidfdb77,public
X-Google-Thread: 114917,a0b5ae1c26aae4ca
X-Google-Attributes: gid114917,public
X-Google-Thread: 1014db,a0b5ae1c26aae4ca
X-Google-Attributes: gid1014db,public
X-Google-Thread: 103376,a0b5ae1c26aae4ca
X-Google-Attributes: gid103376,public
X-Google-Thread: 10d15b,a0b5ae1c26aae4ca
X-Google-Attributes: gid10d15b,public
From: tomw@tsys.demon.co.uk (Tom Wheeley)
Subject: Money wanted
Date: 1996/12/31
Message-ID: <20139@tsys.demon.co.uk>#1/1
X-Deja-AN: 206879489
x-mail2news-user: tomw@tsys.demon.co.uk
x-sig-by: Tomsystems Quote v1.2.  (c)1996 Tom Wheeley, tomw@tsys.demon.co.uk
x-mail2news-path: tsys.demon.co.uk
organization: Adventures and Diving
reply-to: tw104@york.ac.uk
newsgroups: 
 comp.lang.ada,comp.lang.asm.x86,comp.lang.basic.misc,comp.lang.c,comp.lang.c++,comp.lang.clipper,comp.lang.cobol,comp.lang.java.advocacy,comp.lang.java.api,comp.lang.java.misc,comp.lang.java.programmer,comp.lang.javascript,comp.lang.pascal.borland,comp.lang.pascal.delphi.components.misc,comp.lang.pascal.delphi.databases,comp.lang.pascal.delphi.misc,comp.lang.perl.misc,comp.lang.smalltalk,comp.lang.tcl,comp.mail.eudora.ms-windows
x-mailer: SNews 1.30+mods(jlw960804)
Date: 1996-12-31T00:00:00+00:00
List-Id: <comp.lang.ada>


On Monday, in article <32C84480.62CE@netright.com>
     david_nospam@netright.com "David Hanley" wrote:

> fun earnings() = UsefulSkills;
> fun getMoney(x,needed) = if x < needed 
>                             then getMoney( x + earnings() , needed ) 
>                             else x;

(define won-lottery? #f)
(define find-job? #f
(define bank-balance 0)
(define (discover x) x)

(define (buy item)
    (if (eq? item 'lottery-ticket)
        (sequence
            (set! bank-balance (- bank-balance 1))
            'one-pound-please-sir
        )
        'not-in-stock-sir
    )
)

(define (make-money)
    (buy 'lottery-ticket)
    (if won-lottery?
        10000000
        (sequence
            (learn new-skill)
            (if (find-job?)
                (sequence
                    (set! bank-balance (+ bank-balance 10))
                    'youre-fired)
                )
                (sign-on dole)
            )
            (discover 'new-skill-worthless)
            (make-money)
        )
    )
)

:sb)   please send mail to <tw104@york.ac.uk>   http://www.york.ac.uk/~tw104/
--
First, the church was powerful. But it became corrupt and was overthrown.
Then monarchs became powerful. But they became corrupt and were overthrown. 
Now businesses are powerful. So what do we do with Bill Gates?
[ncohen@netcom.com]