From db7f0267f0c836b6a06d42c71757da4366b88a34 Mon Sep 17 00:00:00 2001
From: jerome <jerome@xlinfo.fr>
Date: Sun, 10 Mar 2024 13:24:50 +0100
Subject: maj palindromes

---
 exemple6 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'exemple6')

diff --git a/exemple6 b/exemple6
index 8ce194b..6006f9f 100755
--- a/exemple6
+++ b/exemple6
@@ -20,8 +20,8 @@ done
 
 # palindrome (sans la commande rev)
 # voir exemple3
-read -p "Choisisez un palindrome : " pal
-
+read -p "Choisisez un palindrome : " rep
+pal=$(echo $rep|tr [A-Z] [a-z])
 i=${#pal}
 while [ "$i" -gt 0 ] ; do
   rev=${pal:${#pal}-$i:1}$rev
@@ -29,9 +29,9 @@ while [ "$i" -gt 0 ] ; do
 done
 echo "L'inverse de $pal est $rev"
 if [ $rev = $pal ]; then
-  echo "$pal est un palindrome"
+  echo "$rep est un palindrome"
 else
-  echo "$pal n'est pas un palindrome"
+  echo "$rep n'est pas un palindrome"
 fi
 echo
 
-- 
cgit v1.2.3