From acee686fb34c5a94f3057277b1f9224d55cd817a Mon Sep 17 00:00:00 2001
From: joaquinferrero <explorer@joaquinferrero.com>
Date: Wed, 27 Sep 2023 22:29:34 +0200
Subject: [PATCH] Reto #30 - Raku

---
 .../raku/joaquinferrero.raku                  | 60 +++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 Retos/Reto #30 - EL TECLADO T9 [Media]/raku/joaquinferrero.raku

diff --git a/Retos/Reto #30 - EL TECLADO T9 [Media]/raku/joaquinferrero.raku b/Retos/Reto #30 - EL TECLADO T9 [Media]/raku/joaquinferrero.raku
new file mode 100644
index 0000000000..5c7da049eb
--- /dev/null
+++ b/Retos/Reto #30 - EL TECLADO T9 [Media]/raku/joaquinferrero.raku	
@@ -0,0 +1,60 @@
+#!/usr/bin/env raku
+#
+# El teclado T9
+#
+# Los primeros dispositivos móviles tenían un teclado llamado T9
+# con el que se podía escribir texto utilizando únicamente su
+# teclado numérico (del 0 al 9).
+#
+# Crea una función que transforme las pulsaciones del T9 a su
+# representación con letras.
+# - Debes buscar cuál era su correspondencia original.
+# - Si un bloque tiene más de un número, debe ser siempre el mismo.
+#
+# Ejemplo:
+#   Entrada: 6-666-88-777-33-3-33-888
+#   Salida: MOUREDEV
+#
+# Joaquín Ferrero, 20230927
+#
+use v6;
+
+my $secuencia;
+
+$secuencia = '6-666-88-777-33-3-33-888';
+say $secuencia;
+say T9($secuencia);
+
+$secuencia = '555-2-0-222-2-7777-2-0-3-33-0-555-2-0-2-22-88-33-555-2-000-0-66-00-0-77777-99999-0-***-7-444-7777-666-0-1-****';
+say $secuencia;
+say T9($secuencia);
+
+sub T9 ($secuencia) {
+    my %keys = (
+        1   => '1£$¥¤',
+        2   => 'abc2äáàâãç',
+        3   => 'def3ëéèê',
+        4   => 'ghi4ïíìî',
+        5   => 'jkl5',
+        6   => 'mno6öñóòôõ',
+        7   => 'pqrs7ß',
+        8   => 'tuv8üúùû',
+        9   => 'wxyz9ÿýæøå',
+        0   => ' .,?!0+-:¿¡"´;_',
+        '*' => '*/()<=>%',
+        '#' => '  #@\&§',
+    );
+
+#    my $salida = [~] gather {
+#        for split(/<[-]>/, $secuencia) -> $parte {
+#            my $largo = $parte.chars;
+#            my $tecla = substr $parte, 0, 1;
+#            my $letra = substr %keys{$tecla}, $largo-1, 1;
+#            take $letra;
+#        }
+#    };
+#    return $salida;
+
+    return [~] $secuencia.split(/\-/).map({ %keys{.substr(0, 1)}.substr(.chars-1, 1) });
+}
+