»ö« Welcome to Perl 6! | perl6.org/ | evalbot usage: 'p6: say 3;' or rakudo:, or /msg camelia p6: ... | irclog: irc.perl6.org or colabti.org/irclogger/irclogger_logs/perl6 | UTF-8 is our friend!
Set by moritz on 22 December 2015.
Todd How do I checkl for a "<" in a regex? p6 'if "</span xxx" ~~ m/ (\</span) / {say "y"}else{say "n"};' 03:51
skids m: if "</span xxx" ~~ m/ ("</"span) / {say "y"} else {say "n"}; 03:56
camelia y
skids All non-alphanumerics are considered meta unless backslashed or quoted. The / wasn't backslashed. 03:57
Todd p6 'if "</span xxx" ~~ m/ "<\/"span) / {say "y"}else{say "n"};' ===SORRY!=== Error while compiling -e Couldn't find terminator / (corresponding / was at line 1) at -e:1 ------> if "</span xxx" ~~ m/ "<\/"span⏏) / {say "y"}else{say "n"}; expecting any of: / 03:58
skids Now you're closing a ) group that you never opened with a ( 03:59
Todd Got it! p6 'if "</span xxx" ~~ m| ("</"span) | {say "y"}else{say "n"};' y
$ p6 'if "</spmm xxx" ~~ m| ("</"span) | {say "y"}else{say "n"};' n 04:00
Thank you!
skids np
b2gills m: if "</span xxx" ~~ /"</span"/ {say "y"}else{say "n"}; 04:15
camelia y
lookatme Hi, why I can't declare a subset of Code ? 05:52
m: subset WalkCb of Code where { .signature ~~ :(Int, Int); }; sub (WalkCb) { }
camelia ( no output )
lookatme m: subset WalkCb of Callable where { .signature ~~ :(Int, Int); }; sub (WalkCb) { } 05:53
camelia ( no output )
lookatme :/ strange
bisectable6: subset WalkCb of Code where { .signature ~~ :(Int, Int); }; sub (WalkCb) { } 05:55
bisectable6 lookatme, On both starting points (old=2015.12 new=2f4b2f4) the exit code is 0 and the output is identical as well
lookatme, Output on both points: «»
lookatme It's so wild, my rakudo report `===SORRY!=== Cannot look up attributes in a WalkCb type object` for the first sentence :/ 05:57
Geth doc: 1b68121105 | (JJ Merelo)++ | doc/Language/traps.pod6
Adds introduction to the Cool section of traps

Along the lines suggested by @AlexDaniel. After 29 comments and half a dozen of commits, it's difficult to say if this is solved or not, but I think that it addresses @alexdaniel's (by copying it almost literally) and thus closes #992.
I would suggest not to open this again. If there's a trap related to Cool and Lists or Strings, please open a different issue and reference this one, #992, for additional information.		 06:00
synopsebot Link: doc.perl6.org/language/traps
AlexDaniel jmerelo: I'm happy that it's closed 06:01
jmerelo lookatme: you asked something similar some time ago, and I asked in StackOverflow stackoverflow.com/questions/503848...in-general Please check out the answers there, maybe one will help
AlexDaniel: you pretty much provided the closing solution.
AlexDaniel: issues such as these are the most difficult. Maybe I'll add it to my May list :-) 06:02
lookatme jmerelo, not that question 06:03
It raised error when I am using `subset WalkCb of Code where { .signature ~~ :(Int, Int); }; sub (WalkCb) { }`
for test
jmerelo lookatme: I know, but probably there's something in the answers that helps you. Besides, next question in StackOverflow will be #700 for perl 6 stackoverflow.com/questions/tagged/perl6
lookatme jmerelo, because I am just aware Callable not have a signature method, so I am not sure this is right using `of Callable` 06:05
jmerelo lookatme: well, you have to qualify a subset using what's in the subset. But what's exactly what you want to do? Why do you want to do that? 06:07
lookatme jmerelo, declare a callable type can reuse somewhere 06:08
El_Che lookatme: create a role that consumes the calleble role? 06:10
lookatme m: subset WalkCb of Code where { .signature ~~ :(Int, Int); }; sub (WalkCb) { } 06:12
camelia ( no output )
lookatme El_Che, Above is right, but not work for my rakudo currently
lookatme I just ask why .. 06:13
jmerelo lookatme: which version of Rakudo are you using? Can't you upgrade?
lookatme It's 2018.04 06:15
I compile from source 06:16
maybe I should make a fresh update :)
when 2018.05 ready
El_Che should be soonish 06:17
although I don't know if it's a bug
lookatme okay, just ignore it currently 06:20
Geth doc: JJ self-assigned LTA example of using The $ Variable more than once github.com/perl6/doc/issues/1864
4cc2a7f252 | (JJ Merelo)++ | doc/Language/traps.pod6
 06:22
lookatme another problem occurred, I can not using this subset in NativeCall sub declare :)
lookatme maybe I should fill an issue when off work :) 06:24
Is this problem reported ?
The error: Type check failed in binding to parameter '$sig'; expected Signature but got Any (Any)
Just using a Callable subset in signature:　sub uv_close(Handle, CloseCb) is native(&find-uv) { * } 06:25
AlexDaniel squashable6: next 06:39
squashable6 AlexDaniel, Next SQUASHathon in 10 days and ≈3 hours (2018-06-02 UTC-12⌁UTC+14). See github.com/rakudo/rakudo/wiki/Mont...Squash-Day
AlexDaniel why do I use ⌁ as a range operator? 06:40
synopsebot Link: doc.perl6.org/language/traps
jmerelo AlexDaniel: because it's cool. It's the Harry Potter operator. 07:17
AlexDaniel jmerelo: ✨ 07:18
Geth doc: fd7e010046 | (JJ Merelo)++ | 2 files
Changes example of re-use of $ variable

Basically following the suggestions in the OP by @jimav. The second suggestion in the comment is probably a bit too verbose for something we wouldn't want people to do anyway. This closes #1864.		 07:30
Kaiepi m: say Blob.new(['a','b','c'].ords).decode 07:38
camelia a b c
Kaiepi m: say Blob.new('abc'.ords).decode 07:38
camelia abc
Kaiepi why does the array include the spaces?
Qwerasd Hey, I'm trying to create a module and it has internal dependencies (The main file is in lib with then another folder containing extra files), but it's giving an error when I try to use the internal dependencies. 'use Foo::Bar' 'SORRY! Could not find Foo::Bar in' + list of locations 07:41
El_Che when developing: 07:42
perl6 -Ilib bin/your-script.p6
or set PERL6LIB env variable toi your lib directory
robertle I always forget that PERL6LIB does not use ':' as a separator... 07:43
El_Che really? 07:44
I only use it for my lib dir so I haven't been bitten
Qwerasd How would I do that (Set PERL6LIB env variable)? Sorry.
El_Che what does it use?
Qwerasd: what OS do you run?
Qwerasd MacOS
robertle I am running linux, and I think it is ',' 07:45
El_Che export PERL6LIB=<your lib path here>
Kaiepi or PERL6LIB=path perl6 ...
for a one off thing
El_Che Kaiepi: no, that's not correct
Kaiepi it's not?
El_Che it's not setting the path to perl6, but adding the lib directory to the INC
Qwerasd export PERL6LIB=/full/path/to/lib/ ? 07:46
El_Che Qwerasd: yes
El_Che relative is ok if you're in the right place 07:46
Kaiepi sorry
El_Che but go go absolute
docs.perl6.org/language/5to6-nutsh...B-PERL6LIB
Kaiepi: no sorry needed, just a misunderstanding :) 07:47
lizmat clickbaits p6weekly.wordpress.com/2018/05/21/...ng-denial/ 08:09
buggable New CPAN upload: P5pack-0.0.5.tar.gz by ELIZABETH modules.perl6.org/dist/P5pack:cpan:ELIZABETH 10:23
eiro /wg #sympa 10:52
sorry
Qwerasd I'm receiving a very context-less error of 'SORRY! Expected MAST::Frame, but didn't get one', with no stacktrace or anything. 11:32
moritz try running with --ll-exception 11:36
but it sounds like a compiler bug one way or another
Geth doc: a51897479e | (Luca Ferrari)++ | writing-docs/STYLEGUIDE.md
Add 'filehandle' to the STYLEGUIDE.

See issue #2015.		 11:38
Qwerasd i.imgur.com/sDtol6t.png here's the stacktrace it spits out when I run with --ll-exception 11:39
Qwerasd For some context this error appeared after I introduced code using WebSocket::Client 11:40
moritz wow, that's... deep 11:47
Qwerasd I guess I can try using Cro::WebSocket but I'm unsure of how well implemented it is. 11:50
jkramer paste.pound-python.org/raw/q0lt8IQ...bqFEPKPXV/ 11:55
This tells me that "The iterator of this Seq is already in use/consumed by another Seq", even though I'm already using .cache and I can't see another Seq there
hahainternet jkramer: i believe the lines.map produces a seq which you are not caching 11:56
you are caching the comb
i'm no expert however
jkramer Ah yeah it's nested
Just noticed that too
Hmm but with a .cache on the comb as well as on the map outside doesn't help 11:57
hahainternet jkramer: at that point I think I need to admit defeat and let someone more experienced answer you :) 11:57
apologies
jkramer Oh wait actually it did help. :) 11:58
hahainternet \o/
jkramer \o/
Ven`` o/
hahainternet o7
note correct british salute
inferior american salute not encodable in ascii
;)
robertle looks like a correct british salute from behind to me... ;) 11:59
Qwerasd o>
hahainternet haha that's not far off really Qwerasd :) 12:00
Qwerasd Indeed.
Ven`` is that the teapot salute? 12:02
jkramer m: ("1", "6", "4", "8", "2", "7", "3", "5", "9").Seq.comb.&dd 12:03
camelia ("1", " ", "6", " ", "4", " ", "8", " ", "2", " ", "7", " ", "3", " ", "5", " ", "9").Seq
jkramer Somehow .comb seems to turn this Seq into a string, joining the elements with spaces o_O 12:04
m: ("1", "6", "4", "8", "2", "7", "3", "5", "9").Seq.List.comb.&dd
camelia ("1", " ", "6", " ", "4", " ", "8", " ", "2", " ", "7", " ", "3", " ", "5", " ", "9").Seq
jkramer m: ("1", "6", "4", "8", "2", "7", "3", "5", "9").List.comb.&dd
camelia ("1", " ", "6", " ", "4", " ", "8", " ", "2", " ", "7", " ", "3", " ", "5", " ", "9").Seq
jkramer What
Ven`` jkramer: what's surprising? 12:04
m: ("1", "6", "4", "8", "2", "7", "3", "5", "9").List.Str.say 12:05
camelia 1 6 4 8 2 7 3 5 9
Ven`` m: "1 6 4 8 2".comb.perl.say
camelia ("1", " ", "6", " ", "4", " ", "8", " ", "2").Seq
jkramer Aaaaah goddamnit, brain fart :)
I thought I was doing rotor :)
I was debugging this for ~10min... -_- 12:06
hahainternet is there a perl6 policy on warnings? 12:07
because calling comb on a Seq or List might be a good candidate
Geth doc: 019a264a26 | (Ben Davies)++ | 5 files
Implement Perl 6 NBSP linter script

util/perl-nbsp.p6 lints each of the documentation files, checking for cases where Perl 6 is written with a regular space instead of a non-breaking one, and replaces it accordingly.		 12:29
doc: 3f4a40381f | (Juan Julián Merelo Guervós)++ (committed using GitHub Web editor) | 5 files
Merge pull request #2038 from Kaiepi/nbsp

Implement Perl 6 NBSP linter script Thanks for your patience!
hahainternet what's the 'correct' way to check if every item in a list matches one of a list of values? 12:53
i was trying to do it with junctions, but i think i've just confused myself
Qwerasd Do you not just want the eqv infix? hahainternet 12:56
hahainternet Qwerasd: nah i'm checking whether each list element is one of another list, rather than checking two lists are equal 12:57
ie is "abcd" composed of only "a" and "c"?
i could write a regex of course, or even a grammar
but i don't think i grok how to use junctions properly
tobs m: say so 'abcd'.comb.all ∈ <a c> 12:58
camelia False
tobs m: say so 'abcc'.comb.all ∈ <a c b>
camelia True
hahainternet oh interesting, i did not know of .all 12:59
Ven`` m: say so all('abcc'.comb) eq any('acb'.comb) 12:59
camelia True
hahainternet that's roughly what i was trying Ven`` but i don't know why that was failing
thank you for the examples tobs and Ven`` :)
pmurias I have been porting a rakudo.js dependency to n-api today (so it works on the newest node.js) and it would be cool to have something like N-API in Perl 6 13:00
so basically instead the often changing V8 internal they abstract it all behind a simple (portable across different JS vms) C API 13:01
nodejs.org/dist/latest-v10.x/docs/...n-api.html
Ven`` pmurias: what do you need toying with the internals for? Serious question – isn't NQP low-level enough? 13:07
buggable New CPAN upload: perl6-config-json-0.1.0.tar.gz by ROBERTLE cpan.metacpan.org/authors/id/R/RO/...1.0.tar.gz 13:13
mcmillhj What would be the most idiomatic way to do something like an array concat during a recursive call? Something like the ++ operator from Haskell
tobs mcmillhj: how about just .append? 13:19
m: sub f (@a) { f(@a.append: rand) unless @a > 10 }; f(my @b); say @b
camelia [0.5432306478825039 0.4110160806945523 0.14650540002810652 0.7073301698002327 0.8007418496654223 0.6491922547289161 0.10411972214461196 0.3437942536968286 0.5148771653417428 0.22922980409320337 0.3470693404991614]
mcmillhj tobs: That doens't quite fit my use case since I am returning a List at each step of the recursive call: gist.github.com/mcmillhj/1d2f7d7cd...9890fec819 13:23
Qwerasd The documentation for Cro::WebSocket::Client isn't very good. Can somebody help me figure out how to establish and receive from/send to the socket with it? 13:24
jnthn Qwerasd: Indeed, it's missing something there. Call .messages on the connection to get a Supply of incoming connections, and .send to send a message 13:28
Qwerasd Ah thank you! 13:29
jnthn Qwerasd: Also opened github.com/croservices/cro/issues/70 13:32
tobs mcmillhj: try sticking a "|" before the recursive call. That gives you a flat list.
tobs Maybe I should look up what Floyd's triangle is first… 13:35
fwiw, you could also do 13:37
m: say (1..^Inf).rotor(1..^Inf)[^10]
camelia ((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))
mcmillhj tobs: ooh, that looks nice. Thanks tobs 13:40
Qwerasd Huh, more problems with insufficient documentation for Cro::Websocket::Client, connecting through WSS requires a certificate apparently but that isn't shown in the docs. 13:41
Qwerasd It errors with "Cannot connect through wss without certificate specified" 13:41
Summertime I wanna get the list (1 1 2 2 3 3 etc), one way I've managed that is ($++ div 2 xx *).skip: 2; another being (2..*).map: * div 2; 13:42
is there a cleaner way?
Qwerasd 1,1,->$a,$b {$a+1}...* 13:47
tobs mcmillhj: this should be closer to what you wanted. hastebin.com/igigutepap.pl (but note I'm still not comfortable with the containers in Perl 6)
Qwerasd m: say (1,1,->$a,$ {$a+1}...*)[^10] 13:48
camelia (1 1 2 2 3 3 4 4 5 5)
tobs or even drop the "[ ]" in the return
Summertime I do like getting to use ..., but at the same time, using the generator signature to skip an element makes me feel a bit weird whenever I do it 13:51
Summertime nice to learn that a plain $ can be used in the sig though, learn something new every day 13:52
lucasb m: say (slip $_, $_ for 1..5) 13:53
camelia (1 1 2 2 3 3 4 4 5 5)
Qwerasd woah
Summertime oh nice
Qwerasd m: say (slip $_, $_ for 1..*)[^10]
Not infinite
Summertime oh no 13:54
camelia (timeout)
Qwerasd m: say (slip $_, $_ for 1..*[^10])
camelia ({ ... } { ... })
Qwerasd m: say (slip $_, $_ for (1..*[^10]))
camelia ({ ... } { ... })
Qwerasd huh
oh
m: say (slip $_, $_ for (1..*)[^10])
camelia (1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10)
Summertime tempting to break the infinite requirement and just use a high value so I can use that solution and pretend its lazy 13:55
Qwerasd Lol
Qwerasd Can someone help me figure this out? Cro::Websocket::Client.new when being used with WSS websockets seems to require a certificate of some kind, but I'm not sure how to go about providing it one. 13:58
mcmillhj tobs: thanks, this is a lot cleaner that what I was using which was [floyds-triangle(n-1)].push: $start ^.. $end; 13:59
Zoffix m: say (|(++$, ++$) xx ∞).head: 100 14:00
camelia (1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 4…
Qwerasd Amazing wizardry.
benjikun I miss so many of these solutions in my own head lol 14:00
Zoffix m: say ((($+=½).Int) xx ∞).head: 100 14:02
camelia (0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45…
Zoffix m: say ((($+=½).Int) xx ∞).skip.head: 100
camelia (1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 4…
benjikun hang the witch
Zoffix :)
benjikun lol
Summertime m: say (flat [Z] (1..*) xx 2)[^10] 14:05
camelia (1 1 2 2 3 3 4 4 5 5)
Qwerasd lol that's a simple way
Zoffix m: say (flat ^∞ Z, ^∞).head: 100
camelia (0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 …
Summertime I am running out of places to take notes at this point
oh geez 14:06
oh I get it I think
Qwerasd Can someone help me with that Cro::WebSocket::Client thing? I can't figure it out for the life of me. 14:07
Cro::Websocket::Client.new when being used with WSS websockets seems to require a certificate of some kind, but I'm not sure how to go about providing it one.
Summertime github.com/croservices/cro-websock...nt.pm6#L42 14:08
and the formate of ca is...
Zoffix Qwerasd: did you select "use https" option when creating that app with crostub or whatever that script is?
Qwerasd: it set up a cert for me automagically when I did it 14:09
Qwerasd Huh?
Zoffix Qwerasd: like this one: mi.cro.services/docs/intro/getstart...cro_run%60
`cro stub http blah blah`.. It asks you at some point if you want https enabled or something 14:10
Qwerasd Oh I didn't use that
Zoffix ah
Qwerasd: maybe run it and see what code it generates and maybe in that code there's your missing piece that sets up the cert?
hm it creates `resources/fake-tls` dir 14:11
with certs up in it
Summertime that'd be for a websocket server though right?
Zoffix Ah, right 14:12
Qwerasd Yeah that's for a server. 14:14
Summertime too many layers of indirection D: currently here github.com/croservices/cro-http/bl...t.pm6#L505 14:15
Zoffix I'd guess it all ends at IO::Socket::SSL::Async which takes certificate-file and private-key-file named args 14:18
Summertime in this case it should just take the certificate file to verify against
Qwerasd Why does the client need a certificate in the first place?
Summertime a certificate is practically the client side of a secure connection 14:20
you use the cert to encrypt your request before sending it, ensuring only the server with the private key can decrypt
normally this is negotiated as part of https... its weird that it expects otherwise
Qwerasd I still don't understand how to obtain a certificate to provide to the constructor. 14:21
Summertime you can just download it from your browser I believe
Zoffix Qwerasd: FWIW there's also #cro channel. It's mostly same people as here, but maybe the question will be more noticable there, since there's fewer people there and someone might know? 14:22
Summertime in firefox, rightclick, view page info, security tab, view certificate, details tab, export
Qwerasd i.imgur.com/LT3Ngh6.png still yields "Cannot connect through wss without certificate specified" 15:06
What am I doing wrong?
Qwerasd nvm 15:14
tbrowder_ hi, #perl6 15:27
tbrowder_ is there any way to use a unicode value for a char directly in a p6 string similar to the use of \x[] in a regex? 15:31
jkramer m: say "\c[482] 15:36
camelia 5===SORRY!5=== Error while compiling <tmp>
Unable to parse expression in double quotes; couldn't find final '"' (corresponding starter was at line 1)
at <tmp>:1
------> 3say "\c[482]7⏏5<EOL>
expecting any of:
argument l…
jkramer m: say "\c[482]"
camelia Ǣ
jkramer m: say "\x1E2";
camelia Ǣ
jkramer m: say "\c[PENGUIN]"; 15:36
camelia 🐧
jkramer m: say "\c[woman gesturing ok]" 15:41
camelia 🙆‍♀️
jkramer say "\c[man facepalming]" 15:42
evalable6 🤦‍♂️
tbrowder_ ok, thanks, folks! 15:53
raschipi u: ✨ 16:29
unicodable6 raschipi, U+2728 SPARKLES [So] (✨)
lizmat www.perl.com/article/the-2018-perl...y-results/ # glad to see that Perl 6 is *not* another language 16:50
weekly: www.perl.com/article/the-2018-perl...y-results/ 16:52
notable6 lizmat, Noted!
El_Che Here we have a slight change from 2017 that does not bode well for Perl 6, at least in this pool of respondents. The yes option dropped 9% from last year.
buggable New CPAN upload: P5times-0.0.4.tar.gz by ELIZABETH modules.perl6.org/dist/P5times:cpan:ELIZABETH 16:53
lizmat El_Che: true, but my feeling is that many Perl 6 users didn't bother with a clearly Perl 5 centric survey 16:54
El_Che yes, probably
lizmat "we received quite a few (negative) responses related to the naming of Perl 6" 16:55
mst I hadn't even realised there was a survey tbh 16:56
El_Che In the share some thoughts section we received quite a few (negative) responses related to the naming of Perl 6
(prospects on the Perl community)
mst one year somebody used that section to share the thought that everything would be improved if somebody murdered me
El_Che mst: I am pretty sure we agreed to write that with a bunch op people 16:57
:P
El_Che it's like the volunteer-step-forward while everyone takes a step backwards :) 16:57
dylanwh or that time stevan got everyone to vote for mst's hair color to be "bald" 16:59
El_Che lol 17:07
releasable6: status 17:08
releasable6 El_Che, Next release will happen when it's ready. 0 blockers. 115 out of 122 commits logged
El_Che, Details: gist.github.com/83506c03878b2c6dc1...110216a9ca
El_Che AlexDaniel`: looking good?
lucasb m: say ('abc' ~~ m/\w/).list 17:22
camelia ()
lucasb ^^ Isn't it a little unfortunate that matchs doesn't populate its 'list' slot in this case? (when no capturing, nor global match) 17:23
tbrowder_ i’m trying to use unicode properties in a regex mixed with other char selections:
jmerelo lucasb: A Match contains a list... 17:24
m: say ('abc' ~~ m/\w/).perl
camelia Match.new(list => (), pos => 1, orig => "abc", made => Any, hash => Map.new(()), from => 0)
skids m: say ("abc" ~~ m:g/\w/).list
camelia (｢a｣ ｢b｣ ｢c｣)
jmerelo m: say ('abc' ~~ m/(\w)/).perl 17:25
camelia Match.new(from => 0, made => Any, orig => "abc", pos => 1, list => (Match.new(from => 0, made => Any, orig => "abc", pos => 1, list => (), hash => Map.new(())),), hash => Map.new(()))
jmerelo tbrowder_: and? Not successful so far? 17:26
lucasb Thanks, but I'm talking specifically about the case where no capturing, nor global match was used 17:27
skids m: say ("abc" ~~ m/\w/)[]
camelia ｢a｣
tbrowder_ m: my $r = /<[ <:Zs> ] - [\x[00A0] ]>+/; say “\x[0020]” ~~ $r
camelia Nil
lucasb skids: thanks! is there a name for that trailing "[]" ? 17:28
skids zen slice
lucasb m: say (42[], 42[*]).perl 17:30
camelia (42, (42,))
tbrowder_ once more:
Zoffix tbrowder_: you got too many brackets
m: my $r = /<:Zs - [\x[A0]]>+/; say “\x[0020]” ~~ $r
camelia ｢ ｣
tbrowder_ ok, great! now another try 17:31
m: my $r = /< \x[0009] :Zs - [\x[A0]]>+/; say “\t” ~~ $r 17:32
camelia Nil
Zoffix m: my $r = /<:Zs - [\x[A0]]>/; say “\x[0020]\xA0\t\nbar” ~~ m:g/<$r>/
camelia (｢ ｣)
Zoffix Kinda was expecting multiple matches there...
tbrowder_ i want to add the tab char to mix of Zs chars
Zoffix tbrowder_: now you got too few brackets 17:33
m: my $r = /<:Zs + [\x9] - [\xA0]>/; say “\x[0020]\xA0\t\nbar” ~~ m:g/<$r>/
camelia (｢ ｣ ｢ ｣)
Zoffix u: Zs
unicodable6 Zoffix, U+0020 SPACE [Zs] ( )
Zoffix, U+00A0 NO-BREAK SPACE [Zs] ( )
Zoffix, 17 characters in total: gist.github.com/e4a8de5726046c2104...bbe9175bde
Zoffix m: my $r = /<:Zs + [\x9] - [\xA0]>/; say “\x[0020]\xA0\t\n\x[2000]bar” ~~ m:g/<$r>/
camelia (｢ ｣ ｢ ｣ ｢ ｣)
Zoffix m: my $r = /<:Zs + [\x9] - [\xA0]>/; say (“\x[0020]\xA0\t\n\x[2000]bar” ~~ m:g/<$r>/).Str.perl 17:34
camelia " \t  "
Zoffix m: my $r = /<:Zs + [\x9] - [\xA0]>/; say (“\x[0020]\xA0\t\n\x[2000]bar” ~~ m:g/<$r>/)».Str».ord».base(16)
camelia (20 9 2002)
Zoffix lucasb: that's a heavy Perl 5 accent. In Perl 6, it's written as 'abc'.comb: /\w/ 17:35
m: say 'abc'.comb: /\w/
camelia (a b c)
tbrowder_ ok, the docs don't show the weird mix of brackets--i'm trying to make it like an integrated char class with exceptions
Geth doc: 9827475f59 | (JJ Merelo)++ | doc/Language/subscripts.pod6
Adds indexing for Zen slices; minor revs closes #2044
synopsebot Link: doc.perl6.org/language/subscripts
lucasb My point was that the 'list' slot from Match (inherited from Capture) could be populate with the original Match object when neither global nor capturing was used, was a convenience to the user 17:38
m: .say for 'abc' ~~ m/\w/
camelia ( no output )
lucasb ^^ neither xxx[] nor xxx[*] will help me in this case, I'll have to be more verbose than that
Geth doc: b6038e436d | (JJ Merelo)++ | writing-docs/STYLEGUIDE.md
Clarification about dashed/spaced forms
 17:39
tbrowder_ Zoffix: thnx, looks like the Zs has to be first:
lucasb P5 at least returns a truth value: say for 'abc' =~ /\w/ # 1
*as a convenience 17:40
tbrowder_ m: my $reg = /<:Zs + [\x[0009]] - [ \x[00A0] \x[202F] ]>+ /; say " " ~ $r
camelia 5===SORRY!5=== Error while compiling <tmp>
Variable '$r' is not declared
at <tmp>:1
------> 3 [ \x[00A0] \x[202F] ]>+ /; say " " ~ 7⏏5$r
tbrowder_ m: my $reg = /<:Zs + [\x[0009]] - [ \x[00A0] \x[202F] ]>+ /; say " " ~ $reg
camelia Regex object coerced to string (please use .gist or .perl to do that)

in block <unit> at <tmp> line 1
tbrowder_ m: my $reg = /<:Zs + [\x[0009]] - [ \x[00A0] \x[202F] ]>+ /; say " " ~~ $reg 17:41
camelia ｢ ｣
tbrowder_ bingo!
Geth doc: f9c3300724 | (Zoffix Znet)++ (committed using GitHub Web editor) | doc/Language/regexes.pod6
Add more examples for regex character class building

  irclog.perlgeek.de/perl6/2018-05-22#i_16194042		 17:42
synopsebot Link: doc.perl6.org/language/regexes
Zoffix s: ("x" ~~ /./), 'iterator', \() 17:45
SourceBaby Zoffix, Sauce is at github.com/rakudo/rakudo/blob/d1d3...y.pm6#L128
Zoffix lucasb: briefly looking at it, I think making .list return the match object itself would create ambiguity between whether the Match object has any position captures or not. 17:47
P5 is a different story, it doesn't have any Match objects in its regex matches
Zoffix m: .say for 'abc'.comb: /\w/ 17:48
camelia a
b
c
tbrowder_ m: my $reg = /<:Zs + [\x[0009]] - [ \x[00A0] \x[202F] ]>+ /; say " " ~~ $reg 17:49
camelia ｢ ｣
Zoffix tbrowder_: :Zs doesn't have to be first tho 17:52
m: my $reg = /<[\x[0009]] + :Zs - [ \x[00A0] \x[202F] ]>+ /; say (" " ~~ $reg)».Str».ord».base: 16
camelia ()
tbrowder_ m: my $reg = /<[\x[0009]] + :Zs - [ \x[00A0] \x[202F] ]>+ /; say " " ~~ $reg
camelia ｢ ｣
tbrowder_ ok!
Zoffix m: my $reg = /<[\x[0009]] + :Zs - [ \x[00A0] \x[202F] ]> /; say (" " ~~ m:g/<$reg>/)».Str».ord».base: 16 17:53
camelia (20 20 20 20 20 20)
tbrowder_ i guess what's confusing is the char class is usually shown as <[ ]> with stuff inside in separate groups if needed 17:54
tbrowder_ the grouping we just did doesn't fit that syntax 17:55
tbrowder_ or maybe it's not exactly a char class 17:55
??
jmerelo s: lazy-if 17:56
SourceBaby jmerelo, Something's wrong: ␤ERR: ===SORRY!=== Error while compiling -e␤Undeclared routine:␤ lazy-if used at line 6␤␤
tbrowder_ anyway, i can't make it work in nqp yet, bummer
jmerelo s: .lazy-if
SourceBaby jmerelo, Something's wrong: ␤ERR: Too few positionals passed; expected 2 arguments but got 1␤ in block <unit> at -e line 6␤␤
jmerelo s: Any.lazy-if
SourceBaby jmerelo, Something's wrong: ␤ERR: Too few positionals passed; expected 2 arguments but got 1␤ in block <unit> at -e line 6␤␤
Zoffix jmerelo: what are you trying to look up? 17:57
tbrowder_ nqp: say("foo")
camelia foo
jmerelo Zoffix: lazy-if
Zoffix s: &lazy-if
SourceBaby Zoffix, Something's wrong: ␤ERR: ===SORRY!=== Error while compiling -e␤Undeclared routine:␤ lazy-if used at line 6␤␤
Zoffix No such routine 17:58
timotimo m: say Any.^lookup("lazy-if")
camelia lazy-if
timotimo m: say Any.^lookup("lazy-if").perl
camelia method lazy-if ($: $flag, *%_) { #`(Method|42662728) ... }
timotimo s: Any, "lazy-if", \(1)
SourceBaby timotimo, Sauce is at github.com/rakudo/rakudo/blob/d1d3...y.pm6#L472
timotimo s: Array.new, "lazy-if", \(1)
SourceBaby timotimo, Sauce is at github.com/rakudo/rakudo/blob/d1d3...le.pm6#L82
lucasb Zoffix: thanks. I understand the ambiguity, and in some sense, it was exactly what I was proposing
tbrowder_ nqp: my $r := /<[\x[0009]] + :Zs - [ \x[00A0] \x[202F] ]>+ /; 17:59
camelia ( no output )
jmerelo timotimo: this is so going to StackOverflow...
Zoffix jmerelo: lazy-if isn't part of the spec though.
timotimo what is? 18:00
jmerelo timotimo: sourcebaby queries. I just can't figure them out...
Just a sec
tbrowder_ nqp: my $r := /<:Zs + [\x[0009]] - [ \x[00A0] \x[202F] ]>+ /;
camelia ( no output )
Zoffix jmerelo: they're just Perl 6 code. You're calling a Perl 6 function with arguments. The valid arguments are: :(Callable:D \to-lookup, Capture \args?) and :(Mu \object, Str:D \method-name, Capture \args?) 18:02
And if you're trusted by the bot, you can use more advanced expressions like `do { }` statements
Zoffix s: (&say, &put, &note, &list, &pair).pick(2).head, \() 18:03
.. 18:04
jmerelo Zoffix: thanks!
Already posted to SO, too: stackoverflow.com/questions/504739...ateverable
Zoffix And it's not one of Whateverables.
Zoffix posts the answer.
jmerelo Zoffix: so it's in another bot herd? 18:05
SourceBaby Zoffix, Sauce is at github.com/rakudo/rakudo/blob/d1d3...rs.pm6#L45
Zoffix SourceBaby: help
SourceBaby Zoffix, Use s: trigger with args to give to sourcery sub. e.g. s: Int, 'base'. See modules.perl6.org/dist/CoreHackers::Sourcery
lizmat 700 Perl 6 questions on SO !!
jmerelo lizmat: woohooo! 18:05
jmerelo Zoffix: amazing. And totally unknown to me. 18:08
buggable New CPAN upload: P5times-0.0.5.tar.gz by ELIZABETH modules.perl6.org/dist/P5times:cpan:ELIZABETH 18:13
lucasb I know that the match adverb :nth(x) is 1-based, but :nth(*) meaning the last and :nth(*-1) meaning the second to last isn't strange? 18:15
...when compared with similar array subscripts 18:16
jmerelo lucasb: there's no zeroth
lucasb: other than the zeroth law of robotics.
lucasb sorry, I don't know anything about robotics 18:17
I'm suggesting that :nth(*-1) could mean the last occurrence
timotimo m: "lllll".match(/l/, th => { say $_; 1 }).say
camelia (Any)
｢l｣
jmerelo lucasb: not quite... en.wikipedia.org/wiki/Three_Laws_o..._Law_added
moritz the zeroth law of robotics is: there is no zeroth law
lucasb and :nth(*) could mean :nth(1..*), which already works
jmerelo lucasb: nth implies that it's using ordinals; there's no zero in ordinals. Might seem weird, but it's kind of coherent 18:18
moritz: that's the first law of the fight club. :-) 18:19
lucasb I'm not talking about the zeroth or first element here, I'm talking about the last one 18:22
m: say 'abc' ~~ m:nth(*)/\w/
camelia ｢c｣
lucasb m: say 'abc' ~~ m:nth(1..*)/\w/
camelia (｢a｣ ｢b｣ ｢c｣)
lucasb m: say 'abc' ~~ m:nth(*-1)/\w/
camelia ｢b｣
lucasb IMO, :nth(*) should mean :nth(1..*) 18:23
Zoffix It also has a special path for WhateverCode vs. Callable and doesn't pass the number of elements if it's not a WhateverCode
lucasb I really don't like distinction between WhateverCode and Callable objects. I see them as the same thing 18:24
Zoffix lucasb: it might be more effective to file tickets ( github.com/rakudo/rakudo/issues/new ) rather than convincing an arbitrary clutch of active humans on a user IRC channel :) 18:25
lucasb FWIW, I think :nth is the only place that makes distinction between WhateverCode vs. Callable
Zoffix I have an entry in my inconsistencies file on a related subject. Just links to this log: irclog.perlgeek.de/perl6/2018-03-08#i_15897822 18:26
Geth doc: JJ self-assigned Broken link in documentation of "my" github.com/perl6/doc/issues/2046
9e948d04b8 | (JJ Merelo)++ | doc/Language/variables.pod6

And while I was at it, fixed another broken link that went unnoticed. Thanks for the report, closes #2046		 18:28
lucasb m: say (*+2).(3) 18:34
camelia 5
lucasb m: say (*+2).Callable.(3)
camelia No such method 'Callable' for invocant of type 'Int'
in block <unit> at <tmp> line 1
lucasb m: say (*+2).Callable.WHAT 18:35
camelia (WhateverCode)
synopsebot Link: doc.perl6.org/language/variables
lucasb ^^ Sorry, disregard my last eval. Method calls participate in WhateverCode construction, and there's no Callable coercion method :) 18:53
jmerelo A small factoid: these past 5 weeks have been among the 6 with the highest number of commits during the last year, and the 3 weeks with the highest activity were last April. github.com/perl6/doc/graphs/commit-activity 18:56
4th was the week of Aug 27th.
Zoffix lucasb: WhateverCode does Callable 19:06
m: say ((*.so)).^roles
camelia ((Callable))
ktown m: sub got( $x where ^10 ) { say $x.Int } ; got( "3") ; 19:56
camelia Constraint type check failed in binding to parameter '$x'; expected anonymous constraint to be met but got Str ("3")
in sub got at <tmp> line 1
in block <unit> at <tmp> line 1
ktown hmm lots of times data gets split out of strings, I found this while parsing a longer sting, the first few functions worked then one would fail 19:58
m: sub got( Int $x where ^10 ) { say $x.Int } ; got( "3") ; 19:59
camelia Type check failed in binding to parameter '$x'; expected Int but got Str ("3")
in sub got at <tmp> line 1
in block <unit> at <tmp> line 1
ktown m: sub got( Int $x where ^10 ) { say $x.Int } ; got( "3".Int) ;
camelia 3
El_Che m: sub got( $x where { $_ < 10} ) { say $x.Int }; got "3"
camelia 3
El_Che m: sub got( $x where { $_ < 10} ) { say $x.Int }; got "10"
camelia Constraint type check failed in binding to parameter '$x'; expected anonymous constraint to be met but got Str ("10")
in sub got at <tmp> line 1
in block <unit> at <tmp> line 1
ktown m: sub got( $x where { $_ < 10} ) { say $x.Int }; got "3" 20:00
camelia 3
El_Che m: sub got( $x where $_ < 10 ) { say $x.Int }; got "3"
camelia 3
ktown m: sub got( $x where 0 <= $_ <= 10 ) { say $x.Int }; got "3" 20:05
camelia 3
Zoffix m: sub got(Int() $x where 0 ≤ $_ ≤ 10) { dd $x }; got "3" 21:46
camelia 3
Zoffix m: sub got(Int() $x where ^10) { dd $x }; got "3"
camelia 3
Zoffix m: sub got(UInt() $x where * ≤ 10) { dd $x }; got "3" 21:48
camelia 3
ktown m: sub got(Int $x where 0 ≤ $_ ≤ 10) { dd $x }; got "3" 22:38
camelia Type check failed in binding to parameter '$x'; expected Int but got Str ("3")
in sub got at <tmp> line 1
in block <unit> at <tmp> line 1
ktown m: sub got($x where 0 ≤ $_ ≤ 10) { dd $x }; got "3" 22:39
camelia Str $x = "3"
ktown so sub got(Int() $x and sub got(Int $x are not the same thing 22:44
MasterDuke ktown: correct. Int() is a coercer docs.perl6.org/syntax/Coercion%20Type 23:45
Kaiepi damn forgot my PAUSE password and i get a server error when i try to reset it 23:47

Powered by Cro and the Raku® Programming Language.

Please report any issues / comments / feature requests as an issue on App::Raku::Log.

Thank you!