Spelling of ordinal numbers: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: Update for module change)
(→‎{{header|Perl 6}}: Update for Unicode 12.1, added introspection, some other tweaks and verbiage)
Line 532: Line 532:


=={{header|Perl 6}}==
=={{header|Perl 6}}==
{{works with|Rakudo|2017.08}}
{{works with|Rakudo|2019.07.1}}

Rakudo version 2019.07.1 is updated to Unicode version 12.1. Unicode version 12.0 introduced some new numeric digits, which changed the output here a bit. This will ''work'' with earlier versions of Rakudo, but will yield slightly different results.

This would be pretty simple to implement from scratch; it would be straightforward to do a minor modification of the [[Number_names#Perl_6| Number names]] task code. Much simpler to just use the Lingua::EN::Numbers module from the Perl 6 ecosystem though. It will easily handles ordinal number conversions.
This would be pretty simple to implement from scratch; it would be straightforward to do a minor modification of the [[Number_names#Perl_6| Number names]] task code. Much simpler to just use the Lingua::EN::Numbers module from the Perl 6 ecosystem though. It will easily handles ordinal number conversions.


We need to be slightly careful of terminology. In Perl 6, 123, 00123.0, & 1.23e2 are not all integers. They are respectively an Int (integer), a Rat (rational number) and a Num (floating point number). (The fourth numeric is a Complex) For this task it doesn't much matter as the ordinal routine coerces its argument to an Int, but to Perl 6 they are different things. We can further abuse allomorphic types and role mixins for some somewhat non-intuitive results as well.
We need to be slightly careful of terminology. In Perl 6, 123, 00123.0, & 1.23e2 are not all integers. They are respectively an Int (integer), a Rat (rational number) and a Num (floating point number). (The fourth numeric is a Complex) For this task it doesn't much matter as the ordinal routine coerces its argument to an Int, but to Perl 6 they are different things. We can further abuse allomorphic and String types and role mixins for some somewhat non-intuitive results as well.


Note that the different allomorphic integer forms of 123 are evaluated on ''use'', not on ''assignment''. They can be passed around in parameters, but until they are used numerically, they retain their stringy characteristics. The numerics are evaluated on assignment, hence the stringified output not exactly matching the input format. The mixin role returns different things depending on what context you evaluate it under. When evaluated as a string it is 17, numerically, it is 123.
Note that the different allomorphic integer forms of 123 are evaluated on ''use'', not on ''assignment''. They can be passed around in parameters, but until they are used numerically, they retain their stringy characteristics and are distinctive, determinable through introspection. The numerics are evaluated on assignment, hence the stringified output not exactly matching the input format. The mixin role returns different things depending on what context you evaluate it under. When evaluated as a string it is 17, numerically, it is 123.


Perl 6 uses Unicode natively. If it has a Unicode 'Numeric Digit' property, it is treated as a numeric digit.
Perl 6 uses Unicode natively. If a glyph has a Unicode 'Numeric Digit' (<:Nd>) property, it is treated as a numeric digit, and may be used as one.


It is not really clear what is meant by "Write a driver and a function...". Well, the function part is clear enough; driver not so much. Perhaps this will suffice.
It is not really clear what is meant by "Write a driver and a function...". Well, the function part is clear enough; driver not so much. Perhaps this will suffice.


<lang perl6>use Lingua::EN::Numbers; # Version 2.4.0 or higher
<lang perl6>use Lingua::EN::Numbers;


# The task
printf( "\%16s : %s\n", $_, ordinal($_) ) for
+$_ ?? printf( "Type: \%-14s %16s : %s\n", $_.^name, $_, ordinal($_) ) !! say "\n$_:" for


# Testing
# Required tests
'Required tests',
|<1 2 3 4 5 11 65 100 101 272 23456 8007006005004003>,
1, 2, 3, 4, 5, 11, 65, 100, 101, 272, 23456, 8007006005004003,


# Optional tests
'Optional tests - different forms of 123',
⚫
'Numerics',
123, 00123.0, 1.23e2, 123+0i,


⚫
'Allomorphs',
⚫
# Numerics
|(123, 1_2_3, 00123.0, 1.23e2, 123+0i),
|<123 1_2_3 00123.0 1.23e2 123+0i 0b1111011 0o173 0x7B 861/7>,


'Numeric Strings',
⚫
# Allomorphs
|<1_2_3 00123.0 1.23e2 123+0i 0b1111011 0o173 0x7B 861/7>,
|'1_2_3 00123.0 1.23e2 123+0i 0b1111011 0o173 0x7B 861/7'.words,


'Unicode Numeric Strings',
# Unicode (Only using groups of digits from the same Unicode block. Technically,
# (Only using groups of digits from the same Unicode block. Technically,
# digits from any block could be combined with digits from any other block.)
# digits from any block could be combined with digits from any other block.)
|((^0x1FFFF).grep( { .chr ~~ /<:Nd>/ and
|(^0x1FFFF).grep( { .chr ~~ /<:Nd>/ and .unival == 1|2|3 }).rotor(3)».chr».join,
.chr.uniname ~~ / "DIGIT ONE" | "DIGIT TWO" | "DIGIT THREE" /
}).rotor(3)».chr».join),


'Role Mixin',
# type system abuse (role mixin)
'17' but 123;</lang>
'17' but 123;</lang>
{{out}}
{{out}}
<pre>Required tests:
<pre> 1 : first
2 : second
Type: Int 1 : first
3 : third
Type: Int 2 : second
4 : fourth
Type: Int 3 : third
5 : fifth
Type: Int 4 : fourth
11 : eleventh
Type: Int 5 : fifth
65 : sixty-fifth
Type: Int 11 : eleventh
100 : one hundredth
Type: Int 65 : sixty-fifth
101 : one hundred first
Type: Int 100 : one hundredth
272 : two hundred seventy-second
Type: Int 101 : one hundred first
23456 : twenty-three thousand, four hundred fifty-sixth
Type: Int 272 : two hundred seventy-second
Type: Int 23456 : twenty-three thousand, four hundred fifty-sixth
8007006005004003 : eight quadrillion, seven trillion, six billion, five million, four thousand third
Type: Int 8007006005004003 : eight quadrillion, seven trillion, six billion, five million, four thousand third
⚫
123 : one hundred twenty-third

⚫
123 : one hundred twenty-third
Optional tests - different forms of 123:
⚫
123 : one hundred twenty-third

⚫
123 : one hundred twenty-third
Numerics:
⚫
123+0i : one hundred twenty-third
1_2_3 : one hundred twenty-third
Type: Int 123 : one hundred twenty-third
00123.0 : one hundred twenty-third
Type: Rat 123 : one hundred twenty-third
1.23e2 : one hundred twenty-third
Type: Num 123 : one hundred twenty-third
123+0i : one hundred twenty-third
Type: Complex 123+0i : one hundred twenty-third

⚫
0b1111011 : one hundred twenty-third
Allomorphs:
⚫
0o173 : one hundred twenty-third
0x7B : one hundred twenty-third
Type: IntStr 123 : one hundred twenty-third
861/7 : one hundred twenty-third
Type: IntStr 1_2_3 : one hundred twenty-third
123 : one hundred twenty-third
Type: RatStr 00123.0 : one hundred twenty-third
١٢٣ : one hundred twenty-third
Type: NumStr 1.23e2 : one hundred twenty-third
۱۲۳ : one hundred twenty-third
Type: ComplexStr 123+0i : one hundred twenty-third
߁߂߃ : one hundred twenty-third
Type: IntStr 0b1111011 : one hundred twenty-third
१२३ : one hundred twenty-third
Type: IntStr 0o173 : one hundred twenty-third
১২৩ : one hundred twenty-third
Type: IntStr 0x7B : one hundred twenty-third
੧੨੩ : one hundred twenty-third
Type: RatStr 861/7 : one hundred twenty-third

⚫
૧૨૩ : one hundred twenty-third
Numeric Strings:
⚫
୧୨୩ : one hundred twenty-third
௧௨௩ : one hundred twenty-third
Type: Str 1_2_3 : one hundred twenty-third
౧౨౩ : one hundred twenty-third
Type: Str 00123.0 : one hundred twenty-third
೧೨೩ : one hundred twenty-third
Type: Str 1.23e2 : one hundred twenty-third
൧൨൩ : one hundred twenty-third
Type: Str 123+0i : one hundred twenty-third
෧෨෩ : one hundred twenty-third
Type: Str 0b1111011 : one hundred twenty-third
๑๒๓ : one hundred twenty-third
Type: Str 0o173 : one hundred twenty-third
໑໒໓ : one hundred twenty-third
Type: Str 0x7B : one hundred twenty-third
༡༢༣ : one hundred twenty-third
Type: Str 861/7 : one hundred twenty-third

⚫
၁၂၃ : one hundred twenty-third
Unicode Numeric Strings:
⚫
႑႒႓ : one hundred twenty-third
១២៣ : one hundred twenty-third
Type: Str 123 : one hundred twenty-third
᠑᠒᠓ : one hundred twenty-third
Type: Str ١٢٣ : one hundred twenty-third
᥇᥈᥉ : one hundred twenty-third
Type: Str ۱۲۳ : one hundred twenty-third
᧑᧒᧓ : one hundred twenty-third
Type: Str ߁߂߃ : one hundred twenty-third
᪁᪂᪃ : one hundred twenty-third
Type: Str १२३ : one hundred twenty-third
᪑᪒᪓ : one hundred twenty-third
Type: Str ১২৩ : one hundred twenty-third
᭑᭒᭓ : one hundred twenty-third
Type: Str ੧੨੩ : one hundred twenty-third
᮱᮲᮳ : one hundred twenty-third
Type: Str ૧૨૩ : one hundred twenty-third
᱁᱂᱃ : one hundred twenty-third
Type: Str ୧୨୩ : one hundred twenty-third
᱑᱒᱓ : one hundred twenty-third
Type: Str ௧௨௩ : one hundred twenty-third
꘡꘢꘣ : one hundred twenty-third
Type: Str ౧౨౩ : one hundred twenty-third
꣑꣒꣓ : one hundred twenty-third
Type: Str ೧೨೩ : one hundred twenty-third
꤁꤂꤃ : one hundred twenty-third
Type: Str ൧൨൩ : one hundred twenty-third
꧑꧒꧓ : one hundred twenty-third
Type: Str ෧෨෩ : one hundred twenty-third
꧱꧲꧳ : one hundred twenty-third
Type: Str ๑๒๓ : one hundred twenty-third
꩑꩒꩓ : one hundred twenty-third
Type: Str ໑໒໓ : one hundred twenty-third
꯱꯲꯳ : one hundred twenty-third
Type: Str ༡༢༣ : one hundred twenty-third
１２３ : one hundred twenty-third
Type: Str ၁၂၃ : one hundred twenty-third
𐒡𐒢𐒣 : one hundred twenty-third
Type: Str ႑႒႓ : one hundred twenty-third
𐴱𐴲𐴳 : one hundred twenty-third
Type: Str ១២៣ : one hundred twenty-third
𑁧𑁨𑁩 : one hundred twenty-third
Type: Str ᠑᠒᠓ : one hundred twenty-third
𑃱𑃲𑃳 : one hundred twenty-third
Type: Str ᥇᥈᥉ : one hundred twenty-third
𑄷𑄸𑄹 : one hundred twenty-third
Type: Str ᧑᧒᧓ : one hundred twenty-third
𑇑𑇒𑇓 : one hundred twenty-third
Type: Str ᪁᪂᪃ : one hundred twenty-third
𑋱𑋲𑋳 : one hundred twenty-third
Type: Str ᪑᪒᪓ : one hundred twenty-third
𑑑𑑒𑑓 : one hundred twenty-third
Type: Str ᭑᭒᭓ : one hundred twenty-third
𑓑𑓒𑓓 : one hundred twenty-third
Type: Str ᮱᮲᮳ : one hundred twenty-third
𑙑𑙒𑙓 : one hundred twenty-third
Type: Str ᱁᱂᱃ : one hundred twenty-third
𑛁𑛂𑛃 : one hundred twenty-third
Type: Str ᱑᱒᱓ : one hundred twenty-third
𑜱𑜲𑜳 : one hundred twenty-third
Type: Str ꘡꘢꘣ : one hundred twenty-third
𑣡𑣢𑣣 : one hundred twenty-third
Type: Str ꣑꣒꣓ : one hundred twenty-third
𑱑𑱒𑱓 : one hundred twenty-third
Type: Str ꤁꤂꤃ : one hundred twenty-third
𑵑𑵒𑵓 : one hundred twenty-third
Type: Str ꧑꧒꧓ : one hundred twenty-third
𑶡𑶢𑶣 : one hundred twenty-third
Type: Str ꧱꧲꧳ : one hundred twenty-third
𖩡𖩢𖩣 : one hundred twenty-third
Type: Str ꩑꩒꩓ : one hundred twenty-third
𖭑𖭒𖭓 : one hundred twenty-third
Type: Str ꯱꯲꯳ : one hundred twenty-third
𝟏𝟐𝟑 : one hundred twenty-third
Type: Str １２３ : one hundred twenty-third
𝟙𝟚𝟛 : one hundred twenty-third
Type: Str 𐒡𐒢𐒣 : one hundred twenty-third
𝟣𝟤𝟥 : one hundred twenty-third
Type: Str 𐴱𐴲𐴳 : one hundred twenty-third
𝟭𝟮𝟯 : one hundred twenty-third
Type: Str 𑁧𑁨𑁩 : one hundred twenty-third
𝟷𝟸𝟹 : one hundred twenty-third
Type: Str 𑃱𑃲𑃳 : one hundred twenty-third
𞥑𞥒𞥓 : one hundred twenty-third
Type: Str 𑄷𑄸𑄹 : one hundred twenty-third
17 : one hundred twenty-third</pre>
Type: Str 𑇑𑇒𑇓 : one hundred twenty-third
⚫
Type: Str 𑋱𑋲𑋳 : one hundred twenty-third
⚫
Type: Str 𑑑𑑒𑑓 : one hundred twenty-third
⚫
Type: Str 𑓑𑓒𑓓 : one hundred twenty-third
⚫
Type: Str 𑙑𑙒𑙓 : one hundred twenty-third
⚫
Type: Str 𑛁𑛂𑛃 : one hundred twenty-third
⚫
Type: Str 𑜱𑜲𑜳 : one hundred twenty-third
⚫
Type: Str 𑣡𑣢𑣣 : one hundred twenty-third
⚫
Type: Str 𑱑𑱒𑱓 : one hundred twenty-third
⚫
Type: Str 𑵑𑵒𑵓 : one hundred twenty-third
⚫
Type: Str 𑶡𑶢𑶣 : one hundred twenty-third
Type: Str 𖩡𖩢𖩣 : one hundred twenty-third
Type: Str 𖭑𖭒𖭓 : one hundred twenty-third
Type: Str 𝟏𝟐𝟑 : one hundred twenty-third
Type: Str 𝟙𝟚𝟛 : one hundred twenty-third
Type: Str 𝟣𝟤𝟥 : one hundred twenty-third
Type: Str 𝟭𝟮𝟯 : one hundred twenty-third
Type: Str 𝟷𝟸𝟹 : one hundred twenty-third
Type: Str 𞥑𞥒𞥓 : one hundred twenty-third

Role Mixin:
⚫
Type: Str+{<anon|1>} 17 : one hundred twenty-third</pre>


=={{header|Phix}}==
=={{header|Phix}}==
Retrieved from "https://rosettacode.org/wiki/Spelling_of_ordinal_numbers"