Paste: Exponentiation

Author: mokrzu
Mode: factor
Date: Sat, 30 Oct 2010 11:22:49
Plain Text | 
: my_expo ( x y -- z ) 1 [ rot dup * rot rot 1 + = not ] loop

Annotation: loads of mistakes

Author: marian
Mode: text
Date: Sun, 31 Oct 2010 18:40:16
Plain Text | 
Even as a random by-walker I see few bugs in your code

[ rot rot ] is same as []
[ dup * ] is square function -- likely not what you want
[ 1 + = ] pops two items -- ditto

New Annotation

Summary:
Author:
Mode:
Body: