September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Exponentiation-operator/Forth/exponentiation-operator-3.fth
+++ b/Task/Exponentiation-operator/Forth/exponentiation-operator-3.fth
@ -1,11 +0,0 @@
-: pow ( n m -- n^m )
-( written in Retro Forth )
-1 2rot
-[
-  dup 1 and 0 <>
-  [ [ tuck * swap ] dip ] ifTrue
-  [ dup * ] dip
-  1 >>
-  dup 0 <>
-] while
-drop drop ;