From bf88aaa95100bece9d52e0da21c72956e84a908c Mon Sep 17 00:00:00 2001
From: joaquinferrero <explorer@joaquinferrero.com>
Date: Sun, 24 Sep 2023 18:55:39 +0200
Subject: [PATCH] Reto #24 - Raku, ultimos cambios, de verdad

---
 .../raku/joaquinferrero.raku"                          | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git "a/Retos/Reto #24 - CIFRADO C\303\211SAR [F\303\241cil]/raku/joaquinferrero.raku" "b/Retos/Reto #24 - CIFRADO C\303\211SAR [F\303\241cil]/raku/joaquinferrero.raku"
index d7d2f5c93b..41dd4f425e 100644
--- "a/Retos/Reto #24 - CIFRADO C\303\211SAR [F\303\241cil]/raku/joaquinferrero.raku"	
+++ "b/Retos/Reto #24 - CIFRADO C\303\211SAR [F\303\241cil]/raku/joaquinferrero.raku"	
@@ -14,20 +14,20 @@ use v6;
 
 sub cifra-césar($texto, $hay-que-cifrar = True, $desplazamiento = 3) {
     my @alfabeto = <a á b c ç d e é f g h i í j k l m n ñ o ó p q r s t u ú ü v w x y z>;
-    my %indice-a-letra = @alfabeto.kv;
-    my %letra-a-indice = %indice-a-letra.invert;
+    my %índice-a-letra = @alfabeto.kv;
+    my %letra-a-índice = %índice-a-letra.invert;
 
     my $shift = $desplazamiento;		# separación entre alfabetos normal y codificado
     $shift *= -1 if $hay-que-cifrar;		# al decodificar se invierte el sentido del desplazamiento
 
     my $texto-cifrado = [~] gather {		# resultado de la (des)codificación
         for $texto.comb -> $letra {
-            my $letra-índice = %letra-a-indice{$letra};
+            my $letra-índice = %letra-a-índice{$letra};
             my Bool $letra-es-mayúscula = not defined $letra-índice;
             my $letra-en-minúscula = $letra-es-mayúscula
                 ?? do {
                     my $l = $letra.lc;
-                    $letra-índice = %letra-a-indice{$l};
+                    $letra-índice = %letra-a-índice{$l};
                     $letra-es-mayúscula = False if not defined $letra-índice;   # Es un carácter no alfabético
                     $l;
                 }
@@ -35,7 +35,7 @@ sub cifra-césar($texto, $hay-que-cifrar = True, $desplazamiento = 3) {
 
             take do {
                 my $letra-cifrada = (defined $letra-índice)
-                    ?? %indice-a-letra{($letra-índice + $shift) % @alfabeto}
+                    ?? %índice-a-letra{($letra-índice + $shift) % @alfabeto}
                     !! $letra;
 
                 $letra-cifrada = $letra-cifrada.uc if $letra-es-mayúscula;