view release on metacpan or  search on metacpan

README  view on Meta::CPAN

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
        use Acme::Aheui;
        my $interpreter = Acme::Aheui->new( source => '아희' );
        $interpreter->execute();
 
DESCRIPTION
    An aheui interpreter.
 
    See aheui language specification at
    https://aheui.github.io/specification.en
 
    Most logic is based on the reference implementation by Puzzlet Chung.
    (https://github.com/aheui/jsaheui)
 
PUBLIC METHODS
  new
        my $interpreter = Acme::Aheui->new( source => '아희' );
 
    This method will create and return `Acme::Aheui' object.
 
  execute
        $interpreter->execute();

lib/Acme/Aheui.pm  view on Meta::CPAN

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
    use Acme::Aheui;
    my $interpreter = Acme::Aheui->new( source => '아희' );
    $interpreter->execute();
 
=head1 DESCRIPTION
 
An aheui interpreter.
 
See aheui language specification at L<https://aheui.github.io/specification.en>
 
Most logic is based on the reference implementation by Puzzlet Chung.
(L<https://github.com/aheui/jsaheui>)
 
=cut
 
use constant {
    JONG_STROKE_NUMS =>
        [0, 2, 4, 4, 2, 5, 5, 3, 5, 7, 9, 9, 7, 9,
         9, 8, 4, 4, 6, 2, 4, 1, 3, 4, 3, 4, 4, 3],
    REQUIRED_ELEM_NUMS =>
        [0, 0, 2, 2, 2, 2, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 2, 0],