mirror of
https://github.com/Russell-S-Harper/COMMON.git
synced 2024-11-24 23:32:09 +00:00
44 lines
777 B
Plaintext
44 lines
777 B
Plaintext
|
|
||
|
|
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(_)
|