Xref: utzoo sci.math.num-analysis:1314 comp.lang.forth:4572
Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!apple!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!mcsun!hp4nl!dutrun!rctthdb
From: rctthdb@dutrun.UUCP (rctthdb)
Newsgroups: sci.math.num-analysis,comp.lang.forth
Subject: Re: # to the n-th power
Message-ID: <4733@dutrun.UUCP>
Date: 20 Nov 90 11:12:40 GMT
Reply-To: rctthdb@dutrun.UUCP (H. de Bruijn)
Organization: Delft University of Technology, The Netherlands
Lines: 16

The function x**n (x and n integer) is also non-present in standard FIG-FORTH.
Here's a possible implementation (just for fun):

: ^ ( n x -> x**n )
  1 SWAP ROT
  BEGIN DUP 0 <> WHILE
  2 /MOD >R IF
  SWAP OVER * SWAP THEN
  DUP * R> REPEAT
  DROP DROP ;

-- 
* Han de Bruijn; applications engineer | "A little bit of Physics  *
* TUD Computing Centre; P.O. Box 354   | would be NO idleness in   *
* 2600 AJ  Delft; The Netherlands.     | Mathematics" (HdB).       *
* E-mail: rctthdb@dutrun.tudelft.nl ---| Fax: +31 15 78 37 87 -----*