Re: 'Money wanted' algorithm (Cobol version)

[xdragon@ames.net (Brad Dale)]

On Mon, 30 Dec 96 13:54:10 GMT, spam.free.zone@no-spam.com (Doug
Miller) wrote:


>>>DC> Step 1 Find empty coffee cup
>>>DC> Step 2 Find busy Street
>>>DC> Step 3 Sit in middle of Street
>>>DC> Step 4 goto Step 3 until sun goes down.
>>>DC> Stpe 5 goto step 1 in the next day.
>>
>>>Tsk, tsk, bad advice. Goto's are evil!
>>
>>>Program Make_Money;
>>
>>>Uses
>>>  Nothing;
>>
>>>begin
>>>  Repeat
>>>    Find(EmptyCoffeeCup);
>>>    Find(BusyStreet);
>>>    Repeat
>>>      Sit(MiddleOfStreet)
>>>    Until Sun(Down)
>>>  Until Hell(FrozenOver)
>>>end.
>>
>>>See mom, I DO have the Christmas spirit!
>>
>>>   Dennis!
>>Hey that's cool can you do it in Cobol?
>>
>Sure thing:
>
>PERFORM WITH TEST AFTER UNTIL hell-frozen-over
>    PERFORM find-empty-coffee-cup
>    PERFORM find-busy-street
>    PERFORM sit-middle-of-street UNTIL sunset
>    PERFORM wait-til-morning
>END-PERFORM
>   

(define get_money
   (lambda (status amount_money)
       (if ((!= status HELLFROZEN) amount_money)
           (+ amount_money  
               (coffee status amount_money))))))

(define coffee
   (lambda (status amount_money)
       (begin
          (1 COFFECAN)
          (find_street status amount_money))))

(define find_street
   (lambda (status amount_money)
     (begin
        (1 STREET)
        (sit_street 0 status amount_money))))

(define sit_street
   (lambda (time status amount_money)
      (if ((= time SUNSET) amount_money)
          (+ (+ amount_money PROFIT) 
              (sit_street (+ 1 time) status amount_money)))))


Written sorta in SCHEME, been awhile so don't be to hard on it
			firehawk@ames.net