challenge-035/arne-sommer/perl6/bem-test


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#! /usr/bin/env raku

use lib "lib";

use BinaryMorse;

for %BinaryMorse::morse.keys.sort -> $key
{
  say "$key | { (%BinaryMorse::morse{$key}).fmt('%-6s') } | %BinaryMorse::binary-morse{$key}";
}


say "";

for %BinaryMorse::remorse.keys.sort -> $key
{
  say "{ $key.fmt('%-6s') } | { %BinaryMorse::remorse{$key} } | { %BinaryMorse::binary-morse{%BinaryMorse::remorse{$key}} }";
}

say "";

for %BinaryMorse::binary-remorse.keys.sort -> $key
{
  say "{ $key.fmt('%-20s') } | { (%BinaryMorse::binary-remorse{$key}) } | %BinaryMorse::morse{%BinaryMorse::binary-remorse{$key}}";
}