langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Morse-code/Perl-6/morse-code.pl6
+++ b/Task/Morse-code/Perl-6/morse-code.pl6
@ -0,0 +1,64 @@
+my %m = ' ', '_ _ ',
+<
+    !	---.
+    "	.-..-.
+    $	...-..-
+    '	.----.
+    (	-.--.
+    )	-.--.-
+    +	.-.-.
+    ,	--..--
+    -	-....-
+    .	.-.-.-
+    /	-..-.
+    :	---...
+    ;	-.-.-.
+    =	-...-
+    ?	..--..
+    @	.--.-.
+    [	-.--.
+    ]	-.--.-
+    _	..--.-
+    0	-----
+    1	.----
+    2	..---
+    3	...--
+    4	....-
+    5	.....
+    6	-....
+    7	--...
+    8	---..
+    9	----.
+    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	--..
+>.map: -> $c, $m is copy {
+    $m.=subst(rx/'-'/, 'BGAAACK!!! ', :g);
+    $m.=subst(rx/'.'/, 'buck ', :g);
+    $c => $m ~ '_ ';
+}
+
+say prompt("Gimme a string: ").uc.comb.map: { %m{$_} // "<scratch> " }