March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Exponentiation-operator/Retro/exponentiation-operator-3.retro
+++ b/Task/Exponentiation-operator/Retro/exponentiation-operator-3.retro
@ -0,0 +1,7 @@
+: pow ( n m -- n^m )
+1 2rot
+[ dup 1 and 0 <>
+  [ [ tuck * swap ] dip ] ifTrue
+  [ dup * ] dip 1 >> dup 0 <>
+] while
+drop drop ;