Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!elroy.jpl.nasa.gov!lll-winken!tekbspa!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: PUZZLES AND PROBLEMS
Message-ID: <1334.UUL1.3#5129@willett.UUCP>
Date: 15 Jul 90 03:50:05 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 15

Category 3,  Topic 35
Message 125       Fri Jul 13, 1990
W.BADEN1 [Wil]               at 22:50 PDT
 
Roger,

I don't remember posing the problem, but the "answer" would probably be --

: lg ( n -- "log base 2 of n")
   1+   -1 SWAP ( lg n) 1 DO ( lg) 1+   I +LOOP ;

Procedamus in pace.
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or willett!dwp@hobbes.cert.sei.cmu.edu