ce63c129-3052-4916-9baf-6fc07ecade52 7 4 5 false false 0 0 decimal

&[DATE] &[TIME] - &[FILENAME]

https://en.wikipedia.org/wiki/Recursion_(computer_science)#Recursion_versus_iteration

Fibonacci number

a b f a b + :

n 15 :

n F.rec n 0 ≡ 0 n 1 ≡ 1 n 1 - F.rec n 2 - F.rec f if 11 line :

n F.ite x y 12 mat 0112 mat : k 2 : k n ≤ k k 1 + : x y 12 mat y x y f 12 mat : for y 31 line :

n F.rec 610

n F.ite 610

Heron's Method

x a h 12 / x a x / + (* :

n 6 :

a 5 :

a sqrt 2.23606797749979

n a H.rec n 1 ≡ 1 n 1 - a H.rec a h if 11 line :

n a H.ite x 1 : k 2 : k n ≤ k k 1 + : x x a h : for x 31 line :

n a H.rec 2.23606797749998

n a H.ite 2.23606797749998

Euclede's algorithm

a b ε a b mod :

a b E.rec b 0 ≡ a b a b ε E.rec if 11 line :

a b E.ite α β 12 mat a b 12 mat : β 0 ≠ α β 12 mat β α β ε 12 mat : while α 31 line :

5040 E.rec 10

5040 E.ite 10

Alvaro