Add Zeckendorf in TI-BASIC (#5344)

Author: rzuckerm

archive/t/ti-basic/zeckendorf.8xp.txt

@@ -0,0 +1,47 @@
+Input "",Str1
+"0123456789"->Str2
+length(Str1)->L
+L<1->E
+0->D
+0->V
+1->N
+1->S
+While E=0 and N<=L
+    sub(Str1,N,1)->C
+    inString(Str2,C)-1->K
+    If C="+" or C="-"
+    Then
+        D>0->E
+        If C="-"
+        Then 0-S->S
+        End
+    Else
+        K<0->E
+        D+1->D
+        V*10+K*S->V
+    End
+    N+1->N
+End
+If E or D<1 or V<0->E Then Disp "Usage: please input a non-negative integer"
+Else
+    1->A
+    2->B
+    While A<=V
+        B+A->B
+        B-A->A
+    End
+    {}->l1
+    0->N
+    While V>0
+        B-A->A
+        B-A->B
+        If V>=A Then
+            N+1->N
+            A->l1(N)
+            V-A->V
+        End
+    End
+End
+If l1 Then
+    Disp l1
+End