The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

DYACOB / Convert-Number-Roman-0.04 / examples / numbers.pl 

            

              
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
—
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

              
#!/usr/bin/perl -w
use Convert::Number::Roman;
use utf8;
if ( $] >= 5.007 ) {
        binmode (STDOUT, ":utf8");
}
my @testNumbers = (
        "1",
        "10",
        "100",
        "1000",
        "10000",
        "100000",
        "1000000",
        "10000000",
        "100000000",
        "100010000",
        "100100000",
        "100200000",
        "100110000",
        "1",
        "11",
        "111",
        "1111",
        "11111",
        "111111",
        "1111111",
        "11111111",
        "111111111",
        "1111111111",
        "11111111111",
        "111111111111",
        "1111111111111",
        "1",
        "12",
        "123",
        "1234",
        "12345",
        "7654321",
        "17654321",
        "51615131",
        "15161513",
        "10101011",
        "101",
        "1001",
        "1010",
        "1011",
        "1100",
        "1101",
        "1111",
        "10001",
        "10010",
        "10100",
        "10101",
        "10110",
        "10111",
        "100001",
        "100010",
        "100011",
        "100100",
        "101010",
        "1000001",
        "1000101",
        "1000100",
        "1010000",
        "1010001",
        "1100001",
        "1010101",
        "101010101",
        "10000",
        "100000",
        "1000000",
        "10000000",
        "100000000",
        "1000000000",
        "10000000000",
        "100000000000",
        "1000000000000",
        "100010000",
        "100010100",
        "101010100",
        "3",
        "30",
        "33",
        "303",
        "3003",
        "3030",
        "3033",
        "3300",
        "3303",
        "3333",
        "30003",
        "30303",
        "300003",
        "303030",
        "3000003",
        "3000303",
        "3030003",
        "3300003",
        "3030303",
        "303030303",
        "333333333"
);
my $n = new Convert::Number::Roman;
my $count = 1;
foreach ( @testNumbers ) {
        printf "%02i) ", $count++;
        $n->number ( $_ );
        my $number = $n->convert;
        print "$_ => $number => ", $n->convert ( $number ), ".\n";
}
__END__
=head1 NAME
numbers.pl - Conversion demonstration for 95 numbers.
=head1 SYNOPSIS
./numbers.pl
=head1 DESCRIPTION
A demonstrator script to illustrate L<Convert::Number::Roman> usage.
=head1 AUTHOR
Daniel Yacob,  L<dyacob@cpan.org|mailto:dyacob@cpan.org>
=cut