Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!pt.cs.cmu.edu!dsl.pitt.edu!pitt!willett!ForthNet
From: ForthNet@willett.pgh.pa.us (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: PUZZLES AND PROBLEMS
Message-ID: <1652.UUL1.3#5129@willett.pgh.pa.us>
Date: 3 Sep 90 04:08:02 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 28


 Date: 08-25-90 (14:28)              Number: 3711 (Echo)
   To: DENNIS RUFFER                 Refer#: NONE
 From: IAN WATTERS                     Read: NO
 Subj: PUZZLES AND PROBLEMS          Status: PUBLIC MESSAGE

 DRpWell, if that is all there is to it, then it is simple:
 DRp
 DRp: TEST   BEGIN  CR ." Type in 2 letters "
 DRp                KEY  KEY  SWAP 2DUP - ABS
 DRp                CR ." There are " .
 DRp                   ." characters that seperate the letters "
 DRp                EMIT  ."  and "  EMIT  AGAIN ;
 DRp
 DRpHowever, I again didn't try it, so if it works it's a surprise to me.

 Yep, it gives one too many "between" if they aren't the same...  You
 also don't need the swap (except to EMIT in the same order as they
 came in)

   Ian

 PCRelay:IBBSNET -> #143 RelayNet (tm)

 NET/Mail : DC Information Exchange, MetroLink Int'l Hub.  (202)433-6639
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or dwp@willett.pgh.pa.us