From 87e39ebed342bc811634617a08ac96de73e0f13a Mon Sep 17 00:00:00 2001
From: rzuckerm <rzuckerm@users.noreply.github.com>
Date: Sun, 2 Feb 2025 08:42:53 -0600
Subject: [PATCH] Add Palindromic Number in TI Basic (#4444)

---
 .../t/ti-basic/palindromic-number.tiprogram   | 36 +++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 archive/t/ti-basic/palindromic-number.tiprogram

diff --git a/archive/t/ti-basic/palindromic-number.tiprogram b/archive/t/ti-basic/palindromic-number.tiprogram
new file mode 100644
index 000000000..45cbf4637
--- /dev/null
+++ b/archive/t/ti-basic/palindromic-number.tiprogram
@@ -0,0 +1,36 @@
+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 Then Disp "Usage: please input a non-negative integer"
+Else
+    V->T
+    0->R
+    While T>0
+        10*R+remainder(T,10)->R
+        int(T/10)->T
+    End
+    If R=V Then Disp "true"
+    Else Disp "false"
+    End
+End