Re: I need m/ help

2019-01-14 Thread Brad Gilbert
That is only because the special coding rules for Roman numerals weren't added.

It still is a wrong way to think about Nl.

On Mon, Jan 14, 2019 at 12:59 PM JJ Merelo  wrote:
>
>
>
> El lun., 14 ene. 2019 a las 18:41, Brad Gilbert () 
> escribió:
>>
>> Nl is not “non-arabic numbers” and it is not “numbers that have a value by 
>> themselves”.
>> While both seem like correct statements, they are the wrong way to think 
>> about the Nl category.
>> If either were entirely correct then there wouldn't be a need for No (Number 
>> other).
>>
>> Nl (Number letter) is for “Numerals composed of letters or letterlike 
>> symbols (e.g., Roman numerals)”
>> (copied from 
>> https://en.wikipedia.org/wiki/Template:General_Category_(Unicode) )
>>
>> Note that Roman numerals also “have a positional value” and can “be collated 
>> to other numbers to form bigger numbers”.
>
>
> No, they don't, at least not in Perl 6:
>
> say ⅮⅭ
> https://gist.github.com/Whateverable/14d4c361c81bc6e784c42a12ca83a6a0
>
> You can try for any other Nl, it just does not. However:
>
> say Ⅾ+Ⅽ; OUTPUT: «600␤»
>
> (because they have a numeric value by themselves).
>
> Only those with the Nd property can be collated to form any kind of number; 
> these are in number system which are positional and decimal (at least those 
> I've tried):
>
> say ߁߃ # OUTPUT: «13␤»
>
> (these are Nko digits)
>
> Cheers
>
> JJ


Re: I need m/ help

2019-01-14 Thread JJ Merelo
El lun., 14 ene. 2019 a las 18:41, Brad Gilbert ()
escribió:

> Nl is not “*non-arabic numbers*” and it is not “*numbers that have a
> value by themselves*”.
> While both seem like correct statements, they are the wrong way to think
> about the Nl category.
> If either were entirely correct then there wouldn't be a need for No
> (Number other).
>
> *Nl (Number letter)* is for *“Numerals composed of letters or letterlike
> symbols (e.g., Roman numerals)”*
> (copied from
> https://en.wikipedia.org/wiki/Template:General_Category_(Unicode) )
>
> Note that Roman numerals also “*have a positional value*” and can “*be
> collated to other numbers to form bigger numbers*”.
>

No, they don't, at least not in Perl 6:

say ⅮⅭ
https://gist.github.com/Whateverable/14d4c361c81bc6e784c42a12ca83a6a0

You can try for any other Nl, it just does not. However:

say Ⅾ+Ⅽ; OUTPUT: «600␤»

(because they have a numeric value by themselves).

Only those with the Nd property can be collated to form any kind of number;
these are in number system which are positional and decimal (at least those
I've tried):

say ߁߃ # OUTPUT: «13␤»

(these are Nko digits)

Cheers

JJ


Re: I need m/ help

2019-01-14 Thread Brad Gilbert
Nl is not “*non-arabic numbers*” and it is not “*numbers that have a value
by themselves*”.
While both seem like correct statements, they are the wrong way to think
about the Nl category.
If either were entirely correct then there wouldn't be a need for No
(Number other).

*Nl (Number letter)* is for *“Numerals composed of letters or letterlike
symbols (e.g., Roman numerals)”*
(copied from
https://en.wikipedia.org/wiki/Template:General_Category_(Unicode) )

Note that Roman numerals also “*have a positional value*” and can “*be
collated to other numbers to form bigger numbers*”.


On Mon, Jan 14, 2019 at 12:29 AM JJ Merelo  wrote:

> I would say they are numbers that have a value by themselves, but can't be
> collated to other numbers to form bigger numbers, that is, they are not
> digits and they don't have a positional value.
>
> El dom., 13 ene. 2019 a las 20:13, Timo Paulssen ()
> escribió:
>
>> There ought to be some documentation on the unicode website or maybe the
>> wikipedia article has some explanation.
>>
>> Other than that, here's a list of all unicode characters that match <:Nl>:
>>
>> perl6 -e 'for ^0x10 { say "$_: $(chr($_)) $(uniname($_))" if chr($_)
>> ~~ /<:Nl>/ }'
>>
>> 5870: ᛮ RUNIC ARLAUG SYMBOL
>> 5871: ᛯ RUNIC TVIMADUR SYMBOL
>> 5872: ᛰ RUNIC BELGTHOR SYMBOL
>> 8544: Ⅰ ROMAN NUMERAL ONE
>> 8545: Ⅱ ROMAN NUMERAL TWO
>> 8546: Ⅲ ROMAN NUMERAL THREE
>> 8547: Ⅳ ROMAN NUMERAL FOUR
>> 8548: Ⅴ ROMAN NUMERAL FIVE
>> 8549: Ⅵ ROMAN NUMERAL SIX
>> 8550: Ⅶ ROMAN NUMERAL SEVEN
>> 8551: Ⅷ ROMAN NUMERAL EIGHT
>> 8552: Ⅸ ROMAN NUMERAL NINE
>> 8553: Ⅹ ROMAN NUMERAL TEN
>> 8554: Ⅺ ROMAN NUMERAL ELEVEN
>> 8555: Ⅻ ROMAN NUMERAL TWELVE
>> 8556: Ⅼ ROMAN NUMERAL FIFTY
>> 8557: Ⅽ ROMAN NUMERAL ONE HUNDRED
>> 8558: Ⅾ ROMAN NUMERAL FIVE HUNDRED
>> 8559: Ⅿ ROMAN NUMERAL ONE THOUSAND
>> 8560: ⅰ SMALL ROMAN NUMERAL ONE
>> 8561: ⅱ SMALL ROMAN NUMERAL TWO
>> 8562: ⅲ SMALL ROMAN NUMERAL THREE
>> 8563: ⅳ SMALL ROMAN NUMERAL FOUR
>> 8564: ⅴ SMALL ROMAN NUMERAL FIVE
>> 8565: ⅵ SMALL ROMAN NUMERAL SIX
>> 8566: ⅶ SMALL ROMAN NUMERAL SEVEN
>> 8567: ⅷ SMALL ROMAN NUMERAL EIGHT
>> 8568: ⅸ SMALL ROMAN NUMERAL NINE
>> 8569: ⅹ SMALL ROMAN NUMERAL TEN
>> 8570: ⅺ SMALL ROMAN NUMERAL ELEVEN
>> 8571: ⅻ SMALL ROMAN NUMERAL TWELVE
>> 8572: ⅼ SMALL ROMAN NUMERAL FIFTY
>> 8573: ⅽ SMALL ROMAN NUMERAL ONE HUNDRED
>> 8574: ⅾ SMALL ROMAN NUMERAL FIVE HUNDRED
>> 8575: ⅿ SMALL ROMAN NUMERAL ONE THOUSAND
>> 8576: ↀ ROMAN NUMERAL ONE THOUSAND C D
>> 8577: ↁ ROMAN NUMERAL FIVE THOUSAND
>> 8578: ↂ ROMAN NUMERAL TEN THOUSAND
>> 8581: ↅ ROMAN NUMERAL SIX LATE FORM
>> 8582: ↆ ROMAN NUMERAL FIFTY EARLY FORM
>> 8583: ↇ ROMAN NUMERAL FIFTY THOUSAND
>> 8584: ↈ ROMAN NUMERAL ONE HUNDRED THOUSAND
>> 12295: 〇 IDEOGRAPHIC NUMBER ZERO
>> 12321: 〡 HANGZHOU NUMERAL ONE
>> 12322: 〢 HANGZHOU NUMERAL TWO
>> 12323: 〣 HANGZHOU NUMERAL THREE
>> 12324: 〤 HANGZHOU NUMERAL FOUR
>> 12325: 〥 HANGZHOU NUMERAL FIVE
>> 12326: 〦 HANGZHOU NUMERAL SIX
>> 12327: 〧 HANGZHOU NUMERAL SEVEN
>> 12328: 〨 HANGZHOU NUMERAL EIGHT
>> 12329: 〩 HANGZHOU NUMERAL NINE
>> 12344: 〸 HANGZHOU NUMERAL TEN
>> 12345: 〹 HANGZHOU NUMERAL TWENTY
>> 12346: 〺 HANGZHOU NUMERAL THIRTY
>> 42726: ꛦ BAMUM LETTER MO
>> 42727: ꛧ BAMUM LETTER MBAA
>> 42728: ꛨ BAMUM LETTER TET
>> 42729: ꛩ BAMUM LETTER KPA
>> 42730: ꛪ BAMUM LETTER TEN
>> 42731: ꛫ BAMUM LETTER NTUU
>> 42732: ꛬ BAMUM LETTER SAMBA
>> 42733: ꛭ BAMUM LETTER FAAMAE
>> 42734: ꛮ BAMUM LETTER KOVUU
>> 42735: ꛯ BAMUM LETTER KOGHOM
>> 65856: ŀ GREEK ACROPHONIC ATTIC ONE QUARTER
>> 65857: Ł GREEK ACROPHONIC ATTIC ONE HALF
>> 65858: ł GREEK ACROPHONIC ATTIC ONE DRACHMA
>> 65859: Ń GREEK ACROPHONIC ATTIC FIVE
>> 65860: ń GREEK ACROPHONIC ATTIC FIFTY
>> 65861: Ņ GREEK ACROPHONIC ATTIC FIVE HUNDRED
>> 65862: ņ GREEK ACROPHONIC ATTIC FIVE THOUSAND
>> 65863: Ň GREEK ACROPHONIC ATTIC FIFTY THOUSAND
>> 65864: ň GREEK ACROPHONIC ATTIC FIVE TALENTS
>> 65865: ʼn GREEK ACROPHONIC ATTIC TEN TALENTS
>> 65866: Ŋ GREEK ACROPHONIC ATTIC FIFTY TALENTS
>> 65867: ŋ GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
>> 65868: Ō GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
>> 65869: ō GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
>> 65870: Ŏ GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
>> 65871: ŏ GREEK ACROPHONIC ATTIC FIVE STATERS
>> 65872: Ő GREEK ACROPHONIC ATTIC TEN STATERS
>> 65873: ő GREEK ACROPHONIC ATTIC FIFTY STATERS
>> 65874: ΠGREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
>> 65875: œ GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
>> 65876: Ŕ GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
>> 65877: ŕ GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
>> 65878: Ŗ GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
>> 65879: ŗ GREEK ACROPHONIC ATTIC TEN MNAS
>> 65880: Ř GREEK ACROPHONIC HERAEUM ONE PLETHRON
>> 65881: ř GREEK ACROPHONIC THESPIAN ONE
>> 65882: Ś GREEK ACROPHONIC HERMIONIAN ONE
>> 65883: ś GREEK ACROPHONIC EPIDAUREAN TWO
>> 65884: Ŝ GREEK ACROPHONIC THESPIAN TWO
>> 65885: ŝ GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
>> 65886: Ş GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
>> 65887: ş GREEK 

Re: I need m/ help

2019-01-13 Thread JJ Merelo
I would say they are numbers that have a value by themselves, but can't be
collated to other numbers to form bigger numbers, that is, they are not
digits and they don't have a positional value.

El dom., 13 ene. 2019 a las 20:13, Timo Paulssen ()
escribió:

> There ought to be some documentation on the unicode website or maybe the
> wikipedia article has some explanation.
>
> Other than that, here's a list of all unicode characters that match <:Nl>:
>
> perl6 -e 'for ^0x10 { say "$_: $(chr($_)) $(uniname($_))" if chr($_)
> ~~ /<:Nl>/ }'
>
> 5870: ᛮ RUNIC ARLAUG SYMBOL
> 5871: ᛯ RUNIC TVIMADUR SYMBOL
> 5872: ᛰ RUNIC BELGTHOR SYMBOL
> 8544: Ⅰ ROMAN NUMERAL ONE
> 8545: Ⅱ ROMAN NUMERAL TWO
> 8546: Ⅲ ROMAN NUMERAL THREE
> 8547: Ⅳ ROMAN NUMERAL FOUR
> 8548: Ⅴ ROMAN NUMERAL FIVE
> 8549: Ⅵ ROMAN NUMERAL SIX
> 8550: Ⅶ ROMAN NUMERAL SEVEN
> 8551: Ⅷ ROMAN NUMERAL EIGHT
> 8552: Ⅸ ROMAN NUMERAL NINE
> 8553: Ⅹ ROMAN NUMERAL TEN
> 8554: Ⅺ ROMAN NUMERAL ELEVEN
> 8555: Ⅻ ROMAN NUMERAL TWELVE
> 8556: Ⅼ ROMAN NUMERAL FIFTY
> 8557: Ⅽ ROMAN NUMERAL ONE HUNDRED
> 8558: Ⅾ ROMAN NUMERAL FIVE HUNDRED
> 8559: Ⅿ ROMAN NUMERAL ONE THOUSAND
> 8560: ⅰ SMALL ROMAN NUMERAL ONE
> 8561: ⅱ SMALL ROMAN NUMERAL TWO
> 8562: ⅲ SMALL ROMAN NUMERAL THREE
> 8563: ⅳ SMALL ROMAN NUMERAL FOUR
> 8564: ⅴ SMALL ROMAN NUMERAL FIVE
> 8565: ⅵ SMALL ROMAN NUMERAL SIX
> 8566: ⅶ SMALL ROMAN NUMERAL SEVEN
> 8567: ⅷ SMALL ROMAN NUMERAL EIGHT
> 8568: ⅸ SMALL ROMAN NUMERAL NINE
> 8569: ⅹ SMALL ROMAN NUMERAL TEN
> 8570: ⅺ SMALL ROMAN NUMERAL ELEVEN
> 8571: ⅻ SMALL ROMAN NUMERAL TWELVE
> 8572: ⅼ SMALL ROMAN NUMERAL FIFTY
> 8573: ⅽ SMALL ROMAN NUMERAL ONE HUNDRED
> 8574: ⅾ SMALL ROMAN NUMERAL FIVE HUNDRED
> 8575: ⅿ SMALL ROMAN NUMERAL ONE THOUSAND
> 8576: ↀ ROMAN NUMERAL ONE THOUSAND C D
> 8577: ↁ ROMAN NUMERAL FIVE THOUSAND
> 8578: ↂ ROMAN NUMERAL TEN THOUSAND
> 8581: ↅ ROMAN NUMERAL SIX LATE FORM
> 8582: ↆ ROMAN NUMERAL FIFTY EARLY FORM
> 8583: ↇ ROMAN NUMERAL FIFTY THOUSAND
> 8584: ↈ ROMAN NUMERAL ONE HUNDRED THOUSAND
> 12295: 〇 IDEOGRAPHIC NUMBER ZERO
> 12321: 〡 HANGZHOU NUMERAL ONE
> 12322: 〢 HANGZHOU NUMERAL TWO
> 12323: 〣 HANGZHOU NUMERAL THREE
> 12324: 〤 HANGZHOU NUMERAL FOUR
> 12325: 〥 HANGZHOU NUMERAL FIVE
> 12326: 〦 HANGZHOU NUMERAL SIX
> 12327: 〧 HANGZHOU NUMERAL SEVEN
> 12328: 〨 HANGZHOU NUMERAL EIGHT
> 12329: 〩 HANGZHOU NUMERAL NINE
> 12344: 〸 HANGZHOU NUMERAL TEN
> 12345: 〹 HANGZHOU NUMERAL TWENTY
> 12346: 〺 HANGZHOU NUMERAL THIRTY
> 42726: ꛦ BAMUM LETTER MO
> 42727: ꛧ BAMUM LETTER MBAA
> 42728: ꛨ BAMUM LETTER TET
> 42729: ꛩ BAMUM LETTER KPA
> 42730: ꛪ BAMUM LETTER TEN
> 42731: ꛫ BAMUM LETTER NTUU
> 42732: ꛬ BAMUM LETTER SAMBA
> 42733: ꛭ BAMUM LETTER FAAMAE
> 42734: ꛮ BAMUM LETTER KOVUU
> 42735: ꛯ BAMUM LETTER KOGHOM
> 65856: ŀ GREEK ACROPHONIC ATTIC ONE QUARTER
> 65857: Ł GREEK ACROPHONIC ATTIC ONE HALF
> 65858: ł GREEK ACROPHONIC ATTIC ONE DRACHMA
> 65859: Ń GREEK ACROPHONIC ATTIC FIVE
> 65860: ń GREEK ACROPHONIC ATTIC FIFTY
> 65861: Ņ GREEK ACROPHONIC ATTIC FIVE HUNDRED
> 65862: ņ GREEK ACROPHONIC ATTIC FIVE THOUSAND
> 65863: Ň GREEK ACROPHONIC ATTIC FIFTY THOUSAND
> 65864: ň GREEK ACROPHONIC ATTIC FIVE TALENTS
> 65865: ʼn GREEK ACROPHONIC ATTIC TEN TALENTS
> 65866: Ŋ GREEK ACROPHONIC ATTIC FIFTY TALENTS
> 65867: ŋ GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
> 65868: Ō GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
> 65869: ō GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
> 65870: Ŏ GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
> 65871: ŏ GREEK ACROPHONIC ATTIC FIVE STATERS
> 65872: Ő GREEK ACROPHONIC ATTIC TEN STATERS
> 65873: ő GREEK ACROPHONIC ATTIC FIFTY STATERS
> 65874: ΠGREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
> 65875: œ GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
> 65876: Ŕ GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
> 65877: ŕ GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
> 65878: Ŗ GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
> 65879: ŗ GREEK ACROPHONIC ATTIC TEN MNAS
> 65880: Ř GREEK ACROPHONIC HERAEUM ONE PLETHRON
> 65881: ř GREEK ACROPHONIC THESPIAN ONE
> 65882: Ś GREEK ACROPHONIC HERMIONIAN ONE
> 65883: ś GREEK ACROPHONIC EPIDAUREAN TWO
> 65884: Ŝ GREEK ACROPHONIC THESPIAN TWO
> 65885: ŝ GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
> 65886: Ş GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
> 65887: ş GREEK ACROPHONIC TROEZENIAN FIVE
> 65888: Š GREEK ACROPHONIC TROEZENIAN TEN
> 65889: š GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
> 65890: Ţ GREEK ACROPHONIC HERMIONIAN TEN
> 65891: ţ GREEK ACROPHONIC MESSENIAN TEN
> 65892: Ť GREEK ACROPHONIC THESPIAN TEN
> 65893: ť GREEK ACROPHONIC THESPIAN THIRTY
> 65894: Ŧ GREEK ACROPHONIC TROEZENIAN FIFTY
> 65895: ŧ GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
> 65896: Ũ GREEK ACROPHONIC HERMIONIAN FIFTY
> 65897: ũ GREEK ACROPHONIC THESPIAN FIFTY
> 65898: Ū GREEK ACROPHONIC THESPIAN ONE HUNDRED
> 65899: ū GREEK ACROPHONIC THESPIAN THREE HUNDRED
> 65900: Ŭ GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
> 65901: ŭ GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
> 65902: Ů GREEK ACROPHONIC THESPIAN FIVE HUNDRED
> 65903: ů 

Re: I need m/ help

2019-01-13 Thread ToddAndMargo via perl6-users

On 1/13/19 2:04 PM, Brad Gilbert wrote:

<:Nl> matches a Number that is letter-like


Hi Brad and Timo,

Now I understand.  It is for non-Arabic numbers such
as Roman numerals.

Thank you!

-T


Re: I need m/ help

2019-01-13 Thread Brad Gilbert
<:Nl> matches a Number that is letter-like

I mean obviously `Ⅿ` (ROMAN NUMERAL ONE THOUSAND) looks like a letter.

There is also <:Nd> for Number digit,
and <:No> for other Numbers

If you want to find out the general category of a character you can
call `.uniprop`.

say "1".uniprop; # Nd # Number digit
say "Ⅿ".uniprop; # Nl # Number letter # (ROMAN NUMERAL ONE THOUSAND)
say "¼".uniprop; # No # Number other

say "m".uniprop; # Ll # Letter lowercase
say "M".uniprop; # Lu # Letter uppercase
say "ߢ".uniprop; # Lo # Letter other
say "ῼ".uniprop; # Lt # Letter titlecase
say "ʹ".uniprop; # Lm # Letter modifier # (MODIFIER LETTER PRIME)

say (0..0x10).map(*.uniprop).Set.keys.sort;
# (Cc Cf Cn Co Cs Ll Lm Lo Lt Lu Mc Me Mn Nd Nl No Pc Pd Pe Pf Pi
Po Ps Sc Sk Sm So Zl Zp Zs)

These are all defined by Unicode.

The MODIFIER LETTER PRIME is particularly useful if you want to write code like:

my \A = …;
my \Aʹ = A + …;

That works because it is a letter.

Note that if you call it on a number you are asking for the uniprop of
the character with that codepoint.

say "A".ord; # 65
say 65.uniprop; # Lu # because A is an uppercase Letter

There is also a `.uniprops` for getting a sequence of unicode
properties for each character in a string.

say "A5".uniprops; # (Lu Nd)
say "A5".comb.map(*.uniprop); # (Lu Nd)

On Sun, Jan 13, 2019 at 2:42 AM ToddAndMargo via perl6-users
 wrote:
>
> On 1/12/19 3:04 PM, Timo Paulssen wrote:
> > On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:
> >> But this does not.  What is wrong with (<:N>**2)  ?
> >>
> >> $ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
> >> (<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
> >> Use of Nil in string context
> >>in block  at -e line 1
> >> Use of Nil in string context
> >>in block  at -e line 1
> >> Use of Nil in string context
> >>in block  at -e line 1
> >> 2019-01-12T14:33:10.692302-08:00
> >>
> >>
> >> Many thanks,
> >> -T
> >
> >
> > Hi Todd,
> >
> > it looks like you have an accidental l in there: the third capture group
> > has <:Nl> instead of <:N>.
> >
> > Changing that makes it work for me
> >- Timo
> >
>
> Hi Timo,
>
> Just out of curiosity, what is the difference between "Number (<:N>)"
> and "Number Like (<:Nl>)"?  What would they not be the same in this context?
>
> My latest:
>
> $ perl6 -e 'DateTime.now.Str ~~ m/ (<:N>+) "-" (<:N>+) "-" (<:N>+) "T"
> .* /; my Str $Po="$1$2x$0_"; $Po~~s/x20//;print "$Po\n";'
>
> 011319_
>
> I stuck the "x" in there so I would not clobber day = 20.
>
> -T


Re: I need m/ help

2019-01-13 Thread Timo Paulssen
There ought to be some documentation on the unicode website or maybe the
wikipedia article has some explanation.

Other than that, here's a list of all unicode characters that match <:Nl>:

perl6 -e 'for ^0x10 { say "$_: $(chr($_)) $(uniname($_))" if chr($_)
~~ /<:Nl>/ }'

5870: ᛮ RUNIC ARLAUG SYMBOL
5871: ᛯ RUNIC TVIMADUR SYMBOL
5872: ᛰ RUNIC BELGTHOR SYMBOL
8544: Ⅰ ROMAN NUMERAL ONE
8545: Ⅱ ROMAN NUMERAL TWO
8546: Ⅲ ROMAN NUMERAL THREE
8547: Ⅳ ROMAN NUMERAL FOUR
8548: Ⅴ ROMAN NUMERAL FIVE
8549: Ⅵ ROMAN NUMERAL SIX
8550: Ⅶ ROMAN NUMERAL SEVEN
8551: Ⅷ ROMAN NUMERAL EIGHT
8552: Ⅸ ROMAN NUMERAL NINE
8553: Ⅹ ROMAN NUMERAL TEN
8554: Ⅺ ROMAN NUMERAL ELEVEN
8555: Ⅻ ROMAN NUMERAL TWELVE
8556: Ⅼ ROMAN NUMERAL FIFTY
8557: Ⅽ ROMAN NUMERAL ONE HUNDRED
8558: Ⅾ ROMAN NUMERAL FIVE HUNDRED
8559: Ⅿ ROMAN NUMERAL ONE THOUSAND
8560: ⅰ SMALL ROMAN NUMERAL ONE
8561: ⅱ SMALL ROMAN NUMERAL TWO
8562: ⅲ SMALL ROMAN NUMERAL THREE
8563: ⅳ SMALL ROMAN NUMERAL FOUR
8564: ⅴ SMALL ROMAN NUMERAL FIVE
8565: ⅵ SMALL ROMAN NUMERAL SIX
8566: ⅶ SMALL ROMAN NUMERAL SEVEN
8567: ⅷ SMALL ROMAN NUMERAL EIGHT
8568: ⅸ SMALL ROMAN NUMERAL NINE
8569: ⅹ SMALL ROMAN NUMERAL TEN
8570: ⅺ SMALL ROMAN NUMERAL ELEVEN
8571: ⅻ SMALL ROMAN NUMERAL TWELVE
8572: ⅼ SMALL ROMAN NUMERAL FIFTY
8573: ⅽ SMALL ROMAN NUMERAL ONE HUNDRED
8574: ⅾ SMALL ROMAN NUMERAL FIVE HUNDRED
8575: ⅿ SMALL ROMAN NUMERAL ONE THOUSAND
8576: ↀ ROMAN NUMERAL ONE THOUSAND C D
8577: ↁ ROMAN NUMERAL FIVE THOUSAND
8578: ↂ ROMAN NUMERAL TEN THOUSAND
8581: ↅ ROMAN NUMERAL SIX LATE FORM
8582: ↆ ROMAN NUMERAL FIFTY EARLY FORM
8583: ↇ ROMAN NUMERAL FIFTY THOUSAND
8584: ↈ ROMAN NUMERAL ONE HUNDRED THOUSAND
12295: 〇 IDEOGRAPHIC NUMBER ZERO
12321: 〡 HANGZHOU NUMERAL ONE
12322: 〢 HANGZHOU NUMERAL TWO
12323: 〣 HANGZHOU NUMERAL THREE
12324: 〤 HANGZHOU NUMERAL FOUR
12325: 〥 HANGZHOU NUMERAL FIVE
12326: 〦 HANGZHOU NUMERAL SIX
12327: 〧 HANGZHOU NUMERAL SEVEN
12328: 〨 HANGZHOU NUMERAL EIGHT
12329: 〩 HANGZHOU NUMERAL NINE
12344: 〸 HANGZHOU NUMERAL TEN
12345: 〹 HANGZHOU NUMERAL TWENTY
12346: 〺 HANGZHOU NUMERAL THIRTY
42726: ꛦ BAMUM LETTER MO
42727: ꛧ BAMUM LETTER MBAA
42728: ꛨ BAMUM LETTER TET
42729: ꛩ BAMUM LETTER KPA
42730: ꛪ BAMUM LETTER TEN
42731: ꛫ BAMUM LETTER NTUU
42732: ꛬ BAMUM LETTER SAMBA
42733: ꛭ BAMUM LETTER FAAMAE
42734: ꛮ BAMUM LETTER KOVUU
42735: ꛯ BAMUM LETTER KOGHOM
65856: ŀ GREEK ACROPHONIC ATTIC ONE QUARTER
65857: Ł GREEK ACROPHONIC ATTIC ONE HALF
65858: ł GREEK ACROPHONIC ATTIC ONE DRACHMA
65859: Ń GREEK ACROPHONIC ATTIC FIVE
65860: ń GREEK ACROPHONIC ATTIC FIFTY
65861: Ņ GREEK ACROPHONIC ATTIC FIVE HUNDRED
65862: ņ GREEK ACROPHONIC ATTIC FIVE THOUSAND
65863: Ň GREEK ACROPHONIC ATTIC FIFTY THOUSAND
65864: ň GREEK ACROPHONIC ATTIC FIVE TALENTS
65865: ʼn GREEK ACROPHONIC ATTIC TEN TALENTS
65866: Ŋ GREEK ACROPHONIC ATTIC FIFTY TALENTS
65867: ŋ GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
65868: Ō GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
65869: ō GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
65870: Ŏ GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
65871: ŏ GREEK ACROPHONIC ATTIC FIVE STATERS
65872: Ő GREEK ACROPHONIC ATTIC TEN STATERS
65873: ő GREEK ACROPHONIC ATTIC FIFTY STATERS
65874: ΠGREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
65875: œ GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
65876: Ŕ GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
65877: ŕ GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
65878: Ŗ GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
65879: ŗ GREEK ACROPHONIC ATTIC TEN MNAS
65880: Ř GREEK ACROPHONIC HERAEUM ONE PLETHRON
65881: ř GREEK ACROPHONIC THESPIAN ONE
65882: Ś GREEK ACROPHONIC HERMIONIAN ONE
65883: ś GREEK ACROPHONIC EPIDAUREAN TWO
65884: Ŝ GREEK ACROPHONIC THESPIAN TWO
65885: ŝ GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
65886: Ş GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
65887: ş GREEK ACROPHONIC TROEZENIAN FIVE
65888: Š GREEK ACROPHONIC TROEZENIAN TEN
65889: š GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
65890: Ţ GREEK ACROPHONIC HERMIONIAN TEN
65891: ţ GREEK ACROPHONIC MESSENIAN TEN
65892: Ť GREEK ACROPHONIC THESPIAN TEN
65893: ť GREEK ACROPHONIC THESPIAN THIRTY
65894: Ŧ GREEK ACROPHONIC TROEZENIAN FIFTY
65895: ŧ GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
65896: Ũ GREEK ACROPHONIC HERMIONIAN FIFTY
65897: ũ GREEK ACROPHONIC THESPIAN FIFTY
65898: Ū GREEK ACROPHONIC THESPIAN ONE HUNDRED
65899: ū GREEK ACROPHONIC THESPIAN THREE HUNDRED
65900: Ŭ GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
65901: ŭ GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
65902: Ů GREEK ACROPHONIC THESPIAN FIVE HUNDRED
65903: ů GREEK ACROPHONIC CARYSTIAN FIVE HUNDRED
65904: Ű GREEK ACROPHONIC NAXIAN FIVE HUNDRED
65905: ű GREEK ACROPHONIC THESPIAN ONE THOUSAND
65906: Ų GREEK ACROPHONIC THESPIAN FIVE THOUSAND
65907: ų GREEK ACROPHONIC DELPHIC FIVE MNAS
65908: Ŵ GREEK ACROPHONIC STRATIAN FIFTY MNAS
66369: ́ GOTHIC LETTER NINETY
66378: ͊ GOTHIC LETTER NINE HUNDRED
66513: ϑ OLD PERSIAN NUMBER ONE
66514: ϒ OLD PERSIAN NUMBER TWO
66515: ϓ OLD PERSIAN NUMBER TEN
66516: ϔ OLD PERSIAN NUMBER TWENTY
66517: ϕ OLD PERSIAN NUMBER 

Re: I need m/ help

2019-01-13 Thread ToddAndMargo via perl6-users

On 1/12/19 3:04 PM, Timo Paulssen wrote:

On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:

But this does not.  What is wrong with (<:N>**2)  ?

$ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
(<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
2019-01-12T14:33:10.692302-08:00


Many thanks,
-T



Hi Todd,

it looks like you have an accidental l in there: the third capture group
has <:Nl> instead of <:N>.

Changing that makes it work for me
   - Timo



Thank you!

Mumble, mumble


Re: I need m/ help

2019-01-13 Thread ToddAndMargo via perl6-users

On 1/12/19 3:04 PM, Timo Paulssen wrote:

On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:

But this does not.  What is wrong with (<:N>**2)  ?

$ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
(<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
Use of Nil in string context
   in block  at -e line 1
2019-01-12T14:33:10.692302-08:00


Many thanks,
-T



Hi Todd,

it looks like you have an accidental l in there: the third capture group
has <:Nl> instead of <:N>.

Changing that makes it work for me
   - Timo



Hi Timo,

Just out of curiosity, what is the difference between "Number (<:N>)"
and "Number Like (<:Nl>)"?  What would they not be the same in this context?

My latest:

$ perl6 -e 'DateTime.now.Str ~~ m/ (<:N>+) "-" (<:N>+) "-" (<:N>+) "T" 
.* /; my Str $Po="$1$2x$0_"; $Po~~s/x20//;print "$Po\n";'


011319_

I stuck the "x" in there so I would not clobber day = 20.

-T


Re: I need m/ help

2019-01-12 Thread Timo Paulssen
On 12/01/2019 23:40, ToddAndMargo via perl6-users wrote:
> But this does not.  What is wrong with (<:N>**2)  ?
>
> $ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-"
> (<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'
> Use of Nil in string context
>   in block  at -e line 1
> Use of Nil in string context
>   in block  at -e line 1
> Use of Nil in string context
>   in block  at -e line 1
> 2019-01-12T14:33:10.692302-08:00
>
>
> Many thanks,
> -T


Hi Todd,

it looks like you have an accidental l in there: the third capture group
has <:Nl> instead of <:N>.

Changing that makes it work for me
  - Timo


I need m/ help

2019-01-12 Thread ToddAndMargo via perl6-users

Hi All,

This works:

$ p6 'my $x="2018-09-15"; $x~~s/ (<:N>+) "-" (<:N>+) "-" (<:N>+) 
/$0.$1.$2/; say $x;'

2018.09.15


And this does too:

$ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>+) "-" (<:N>+) 
"-" (<:N>+) "T" .* /; print "$Date\n\t$0  $1  $2\n"'

2019-01-12T14:35:23.242587-08:00
2019  01  12



But this does not.  What is wrong with (<:N>**2)  ?

$ perl6 -e 'my Str $Date=DateTime.now.Str; $Date~~m/ (<:N>**4) "-" 
(<:N>**2) "-" (<:Nl>**2) "T" .* /; print "$Date\n\t$0  $1  $2\n"'

Use of Nil in string context
  in block  at -e line 1
Use of Nil in string context
  in block  at -e line 1
Use of Nil in string context
  in block  at -e line 1
2019-01-12T14:33:10.692302-08:00


Many thanks,
-T


Re: I need -M help

2018-09-14 Thread Todd Chester

> On 14/09/2018 12:52, Todd Chester wrote:
>> Hi All,
>>
>> With a one liner, how to I load a module that resides in the
>> current directory?

On 09/14/2018 03:58 AM, Timo Paulssen wrote:

The equivalent of "use lib 'blah'" on the commandline is "-I blah", just
like "-M bloop" is the equivalent of "use 'bloop'" in code.

HTH
   - Timo



Hi Timo,

Perfect!  Thank you!

$ perl6 -I./ -M./PrintColors -e 'PrintRed "Hi\n";'
Hi

-T


Re: I need -M help

2018-09-14 Thread Timo Paulssen
The equivalent of "use lib 'blah'" on the commandline is "-I blah", just
like "-M bloop" is the equivalent of "use 'bloop'" in code.

HTH
  - Timo

On 14/09/2018 12:52, Todd Chester wrote:
> Hi All,
>
> With a one liner, how to I load a module that resides in the
> current directory?
>
> $ ls PrintColors.pm6
> PrintColors.pm6
>
>
> $ perl6 -MPrintColors -e 'PrintRed "Hi";'
> ===SORRY!===
> Could not find PrintColors at line 1 in:
>     /home/tony/.perl6
>     /opt/rakudo-pkg/share/perl6/site
>     /opt/rakudo-pkg/share/perl6/vendor
>     /opt/rakudo-pkg/share/perl6
>     CompUnit::Repository::AbsolutePath<58670368>
>     CompUnit::Repository::NQP<53138976>
>     CompUnit::Repository::Perl5<53139016>
>
>
> $ perl6 -M./PrintColors -e 'PrintRed "Hi";'
> ===SORRY!===
> Could not find ./PrintColors at line 1 in:
>     /home/tony/.perl6
>     /opt/rakudo-pkg/share/perl6/site
>     /opt/rakudo-pkg/share/perl6/vendor
>     /opt/rakudo-pkg/share/perl6
>     CompUnit::Repository::AbsolutePath<53332448>
>     CompUnit::Repository::NQP<47798144>
>     CompUnit::Repository::Perl5<47798184>
>
>
> This works:
> $ p6 'use lib "/home/linuxutil"; use PrintColors; PrintRed "Hi\n";'
> Hi
>
> But how do I get it into the "-M"?
>
> Many thanks,
> -T


I need -M help

2018-09-14 Thread Todd Chester

Hi All,

With a one liner, how to I load a module that resides in the
current directory?

$ ls PrintColors.pm6
PrintColors.pm6


$ perl6 -MPrintColors -e 'PrintRed "Hi";'
===SORRY!===
Could not find PrintColors at line 1 in:
/home/tony/.perl6
/opt/rakudo-pkg/share/perl6/site
/opt/rakudo-pkg/share/perl6/vendor
/opt/rakudo-pkg/share/perl6
CompUnit::Repository::AbsolutePath<58670368>
CompUnit::Repository::NQP<53138976>
CompUnit::Repository::Perl5<53139016>


$ perl6 -M./PrintColors -e 'PrintRed "Hi";'
===SORRY!===
Could not find ./PrintColors at line 1 in:
/home/tony/.perl6
/opt/rakudo-pkg/share/perl6/site
/opt/rakudo-pkg/share/perl6/vendor
/opt/rakudo-pkg/share/perl6
CompUnit::Repository::AbsolutePath<53332448>
CompUnit::Repository::NQP<47798144>
CompUnit::Repository::Perl5<47798184>


This works:
$ p6 'use lib "/home/linuxutil"; use PrintColors; PrintRed "Hi\n";'
Hi

But how do I get it into the "-M"?

Many thanks,
-T