mirror of https://github.com/Russell-S-Harper/COMMON.git synced 2024-07-12 11:28:55 +00:00
Russell-S-Harper 4aa6d42809
2021-12-11 15:06:16 -05:00

#### 44 lines 777 B Plaintext Raw Permalink Blame History

 ``` ``` ```RCD(UNIT_TESTS) ``` ``` ``` ``` CMN ``` ``` BRS(FIBONACCI) ; #Expect FIBONACCI: 2.236 5.000 ``` ``` ESC ``` ``` BRK ``` ``` ``` ```; Calculate the square root of five using this Fibonacci series identity: ``` ```; ``` ```; F(n) F(n-1) _ ``` ```; ------ + ------ → √5 as n → ∞ ``` ```; F(n-1) F(n) ``` ```; ``` ```; FIBONACCI: 2.236 5.000 ``` ``` ``` ```BGN(FIBONACCI) ``` ``` ``` ``` SET(R0, 1) ``` ``` CPR(R1, R0) ``` ```_1 ADD(R2, R1, R0) ``` ``` BRO(_2) ``` ``` CPR(R0, R1) ``` ``` CPR(R1, R2) ``` ``` BRA(_1) ``` ```_2 DIV(R2, R0, R1) ``` ``` DIV(R1, R1, R0) ``` ``` ADD(R0, R1, R2) ``` ``` MUL(R1, R0, R0) ``` ``` EXT(S1, O_FIBONACCI) ``` ``` RTN ``` ``` ``` ```END(FIBONACCI) ``` ``` ``` ```END(UNIT_TESTS) ``` ``` ``` ```RDT(_) ``` ``` ``` ``` ; Preset constants ``` ``` ; Output D format: decimal, leading sign for negative, no padding, no thousands separators, period for decimal, three decimal places ``` ``` DEF(O_FIBONACCI, 'FIBONACCI: \eD0 \eD1\n') ``` ``` ``` ```END(_) ```