view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        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

    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],