»ö« Welcome to Perl 6! | perl6.org/ | evalbot usage: 'perl6: say 3;' or rakudo:, niecza:, std:, or /msg p6eval perl6: ... | irclog: irc.perl6.org/ | UTF-8 is our friend!
Set by sorear on 4 February 2011.
colomon rn: say (*.value > 2)(1 => 4) 01:24
p6eval rakudo ebc730, niecza v22-6-g9e5350d: OUTPUT«True␤»
colomon rn: say (1..10 Z=> 'a'..'z').classify(*.key).perl 02:19
p6eval niecza v22-6-g9e5350d: OUTPUT«("10" => [10 => "j"], "9" => [9 => "i"], "8" => [8 => "h"], "7" => [7 => "g"], "6" => [6 => "f"], "5" => [5 => "e"], "4" => [4 => "d"], "3" => [3 => "c"], "2" => [2 => "b"], "1" => [1 => "a"]).list␤»
..rakudo ebc730: OUTPUT«("1" => [1 => "a"], "2" => [2 => "b"], "3" => [3 => "c"], "4" => [4 => "d"], "5" => [5 => "e"], "6" => [6 => "f"], "7" => [7 => "g"], "8" => [8 => "h"], "9" => [9 => "i"], "10" => [10 => "j"]).hash␤»
colomon list versus hash. who'd win? 02:23
ah, supposed to be a hash 02:25
hmmm
timotimo r: say (1.10 Z=> 'a'..'z').classify(*.key % 3) 02:32
p6eval rakudo ebc730: OUTPUT«("1.1" => [11/10 => "a"]).hash␤»
timotimo r: say (1..10 Z=> 'a'..'z').classify(*.key % 3) 02:33
p6eval rakudo ebc730: OUTPUT«("1" => [1 => "a", 4 => "d", 7 => "g", 10 => "j"], "2" => [2 => "b", 5 => "e", 8 => "h"], "0" => [3 => "c", 6 => "f", 9 => "i"]).hash␤»
timotimo that's cute
colomon it's a terrific little method when you need it. :) 02:34
dalek ecza: 7df6137 | (Solomon Foster)++ | lib/CORE.setting:
.classify and .categorize are supposed to return hashes -- make it so.
 02:39
dalek ast: 316e321 | (Solomon Foster)++ | S02-names-vars/names.t:
Change fudge from todo to skip to get the test file working on Niecza again.
 02:53
ast: a5194c1 | (Solomon Foster)++ | S02-names/symbolic-deref.t:
Fudge for niecza.
 03:01
dalek kudo/nom: fa7fca7 | moritz++ | src/Perl6/Actions.pm:
:ss implies :s; allow :samespace and :ss on s///
 09:23
tadzik hello #perl6 www.quickmeme.com/meme/3r86tr/ 09:41
timbunce I'm looking for perl6 talk slides that convey the breadth & depth of language features. Something I can condense to ~10mins. Any suggestions? 09:53
I'm skimming through jnthn's at the moment. Lots of detail but less of the Big Picture. 09:54
I'll go find pmichaud's next.
moritz timbunce: I'd look at jnthn's "Perl 6: Quicker Hacks, More Maintainable Apps" 10:44
edwin_ hi perl6! 12:02
I wonder if there is a natural inverse to :60[$a, $b, $c] 12:03
rindolf edwin_: hello.
edwin_: what's up?
edwin_ i.e. given $x produce the list $x % 60, ($x div 60) % 60, ...
rosettacode.org/wiki/Main_step_of_G...-89#Perl_6 12:05
timbunce moritz: yeap, got that one. thanks. And I've just found pmichaud.com/2012/pres/
moritz edwin_: I wonder if Int.base should accept a :list adverb 12:06
edwin_ moritz, sounds good. would that give a lazy list ending in ,0 xx * ? 12:09
or one could specify how many "digits" are wanted
moritz edwin_: on an integer, it's always a finiite list 12:13
edwin_ ok, so one would have to extend with zeroes explicitly to fill a fixed size array of digits, for example 12:15
moritz yes
edwin_ it seems like an easy problem made hard by a plethora of bike sheds :) 12:16
Timbus n: \a = "wait what?"; say a;
p6eval niecza v22-7-g7df6137: OUTPUT«===SORRY!===␤␤Preceding context expects a term, but found infix = instead at /tmp/453OCVCAM6 line 1:␤------> \a ⏏= "wait what?"; say a;␤␤Parse failed␤␤»
edwin_ I know that I would like to have this functionality, but I cannot decide exactly how I'd want it
Timbus r: \a = "wait what?"; say a; 12:17
p6eval rakudo fa7fca: OUTPUT«===SORRY!===␤Preceding context expects a term, but found infix = instead␤at /tmp/rSmO9fKxOb:1␤»
Timbus que
moritz r: my \a = "lol"; say a
p6eval rakudo fa7fca: OUTPUT«lol␤»
moritz only works in declarations 12:18
Timbus what the heck aaaaa
the lack of sigil confuses and infuriates me. how long has this been a feature 12:20
moritz then don't use the feature 12:21
it's been specced for several month
and implemented for maybe two months
it's very useful if you don't want to impose a context 12:22
beause sigils are tied to context
Timbus oh okay its fairly newish then 12:23
edwin_ it's nice if you just want to name an expression, not put it in a container, I find 12:26
Timbus that is kinda neat, yes 12:27
edwin_ I think it will take me some time to find a balance, when to use it and when not
edwin_ but experimenting with it on RC is a lot of fun :) 12:27
_edwin moritz, what would be a good way to contribute to doc.perl6.org (with sparse tuits)? 12:40
moritz _edwin: write more docs, review the new ones, write some CSS for it 12:46
s/new/existing/
_edwin wow, htmlify.pl takes some time 13:10
moritz I know :( 13:14
timbunce When is Perl 6's official birthday? How old is it? 13:22
moritz 2000-07-18 13:26
according to strangelyconsistent.org/blog/happy-...ary-perl-6
timbunce moritz: umm, yeah. I was there when the coffee mug hit the wall. I'd call that the Conception of Perl 6, but not the birth. Got a first release date of something we could perl perl6? 13:38
*something we could call perl6 13:39
moritz well, apart from the mug throwing, there aren't many really notable dates 13:40
maybe the first R* release
or the first pugs release
or... I don't know
it's really up to interpretation
timbunce The first pugs release seems like a clear milestone. Got a date?
though perhaps R* was more clearly 'perl6' 13:41
Was July 2010 the first R* release? github.com/rakudo/star/blob/master...ce/2010.07
moritz yes 13:42
timbunce ok, thanks. 13:43
moritz svn.openfoundry.org/pugs/ChangeLog lists February 7, 2005 as the first pugs release to CPAN
timbunce thanks. 13:47
There used to be a rakudo.org/status page that had a graph showing the growth in the number of tests (pass/fail/todo etc). Is that still available somewhere? 13:48
dalek rlito: 4f2b998 | (Flavio S. Glock)++ | / (3 files):
Perlito5 - js - remove "null"s
 14:12
moritz timbunce: no. I've stopped doing that because lots of people would draw entirely wrong concolusions from it 14:47
timbunce pity, but I understand.
jnthn is home from Japan 15:14
The temperature and humidity here are sane! \o/
moritz welcome back jnthn 15:15
diakopter jnthn: hi!
timbunce I'd love to see a chart showing the percentage of perl 6 written in perl 6 (or NPQ) over time. 16:10
arnsholt There's a video on pmichaud's blog which has two pie charts 16:13
Not a comprehensive overview, but a start =)
timbunce arnsholt: ah yes, pmichaud.com/2012/pres/yapcna-perfl...ide37.html thanks 16:18
raiph timbunce: maybe footnote sourcecode piechart -- i think a lot of PIR has been removed since that chart 17:23
timbunce raiph: cool. I've summarized it as "Mostly implemented in Perl6 (>60% and rising)" (glossing over the perl6 vs NQP distinction) 17:24
jnthn The big thing that happened on that angle in the last couple of months is that NQP lost most of its PIR also 17:25
mathw o/ 19:08
grondilu nr: sub f(\x) { x }; say f "weird signature" 20:57
p6eval rakudo fa7fca, niecza v22-7-g7df6137: OUTPUT«weird signature␤»
diakopter nr: sub f(\x) { x x x }; say f "10" 21:01
p6eval rakudo fa7fca, niecza v22-7-g7df6137: OUTPUT«10101010101010101010␤»
Coleoid Hi, #perl6 people!
timbunce Is the perl6 code on page 71 of www.slideshare.net/Tim.Bunce/perl-myths-200909 still valid? 21:02
and page 72, while I'm asking.
diakopter type it into a gist, then give the gist url to p6eval here 21:03
timbunce oops, scratch that. page 72 isn't code in that old version
flussence I don't see anything in there that's changed significantly since 2009
timbunce p6eval: gist.github.com/e7b40eff9532273ad9be 21:04
diakopter well, with rn: or r: or n:
timbunce rn: gist.github.com/e7b40eff9532273ad9be
p6eval rakudo fa7fca: OUTPUT«===SORRY!===␤Confused␤at /tmp/1JH8ZDyok9:1␤»
..niecza v22-7-g7df6137: OUTPUT«===SORRY!===␤␤Confused at /tmp/1HEnJJiJb9 line 1:␤------> https⏏://gist.github.com/e7b40eff9532273ad9be␤␤Undeclared routine:␤ 'https' used at line 1␤␤Parse failed␤␤»
diakopter also, I think it may work only with public gists
timbunce rn: gist.github.com/3846123
p6eval niecza v22-7-g7df6137: OUTPUT«2♣ 10♡ 4♢ 10♢ 3♡␤29␤» 21:05
..rakudo fa7fca: OUTPUT«5♢ 3♡ K♠ 7♣ 2♡␤27␤»
timbunce great, thanks diakopter and flussence
any thoughts on this code gist.github.com/3846125 ? 21:06
I suspect some of that is outdated now
flussence not sure about the last 2 but the rest should work fine... 21:07
r: my @fib = 1,1 ... &[+]; say @fib[3..10]
p6eval rakudo fa7fca: OUTPUT«Any() Any() Any() Any() Any() Any() Any() Any()␤»
flussence r: my @fib := 1,1 ... &[+]; say @fib[3..10] 21:08
p6eval rakudo fa7fca: OUTPUT«␤»
flussence huh
timbunce r: @fib = 1, 1, *+* ... *; say @fib[3..10]
p6eval rakudo fa7fca: OUTPUT«===SORRY!===␤Variable @fib is not declared␤at /tmp/1SPSLx4EIi:1␤»
flussence r: my @fib := 1,1,&[+] ... *; say @fib[3..10]
p6eval rakudo fa7fca: OUTPUT«3 5 8 13 21 34 55 89␤»
timbunce r: my @fib = 1, 1, *+* ... *; say @fib[3..10]
p6eval rakudo fa7fca: OUTPUT«3 5 8 13 21 34 55 89␤»
timbunce thanks 21:09
diakopter rn: my @fib = 1,1,1,1,1,1,1 *+*+*+*+*+*+* ... *; say @fib[3..30] 21:10
grondilu will timeout
p6eval niecza v22-7-g7df6137: OUTPUT«(timeout)»
..rakudo fa7fca: OUTPUT«1 1 1 6 11 21 41 81 161 321 636 1261 2501 4961 9841 19521 38721 76806 152351 302201 599441 1189041 2358561 4678401 9279996 18407641 36513081 72426721␤»
grondilu won 21:11
diakopter I had already tried it :P
r: my @fib = 1,1,1,1,1,1,1 *+*+*+*+*+*+* ... *; say @fib[300] 21:12
grondilu is impressed that rakudo made it though
p6eval rakudo fa7fca: OUTPUT«14841968777336497314060737665068870911960995493577970820884303630027584832208307226122246␤»
flussence my brain can't parse that "1,1 *+*"
diakopter what if you want to use a prior term more than once
grondilu diakopter: you need to be more explicit in writing the closure 21:13
like { $^x + $x**2 + $^y }
imho
sorear good * #perl6 21:14
diakopter sorear: o/ 21:16
grondilu Does sockets work for you? 21:17
*Do
Coleoid Can I eval code in a base class method and have it alter a variable in a derived class? 21:18
diakopter what kind of variable? 21:20
Coleoid A scalar to start with, 21:21
But the reason I'm evalling and subclassing is that I want the effects to be different per class. 21:22
diakopter you can have it run a method which alters a variable
Coleoid I want the user to type Perl 6 code, and have the class check that it had the effect they wanted. 21:24
So I want them able to set a scalar, or several, or set a list, or ... 21:26
I hoped to abstract the eval & check success loop into a base class, and it _looks_ good, but it's not working.
Coleoid A non-OO answer would be fine with me, but my first attempt at that (passing the success check code block as an argument to the eval loop) had the same problem, and others besides. 21:32
diakopter I'm having trouble picturing the code's structure 21:33
moritz Coleoid: sounds like role composition would fit better, because it adds the method right into the derived class
Coleoid: but it would be even better if you stated your actual use case; maybe there's a neat solution for it 21:34
but I fear I have to go to sleep now; will backlog
Coleoid gist.github.com/3846209
diakopter: sorry, meant to post the gist sooner. 21:35
moritz: I'll try a role! As for the use case, 21:36
It's a kid's P6 fantasy adventure, where the spell-caster needs to do magic via Perl 6 code. 21:38
flussence I think you should do the eval in the other class. 21:40
you don't really need a class either, just a sub that takes the string to eval and returns true/false
Coleoid Which works okay for the first quest, 21:41
Coleoid But I don't see how I can get it to check different code for each class. I suppose I could pass in the success check to be eval'ed also? 21:44
diakopter put the different success checks in subs and pass in references to the subs 21:45
Coleoid ... 21:46
diakopter ?
flussence r: my $a := :: ; say $a.perl
diakopter "wat."? :)
Coleoid That sounds like it could work...
p6eval rakudo fa7fca: OUTPUT«(timeout)»
flussence r: sub a(\x) { say x.perl }; a(::); 21:47
p6eval rakudo fa7fca: OUTPUT«PseudoStash.new("!UNIT_MARKER", !UNIT_MARKER, "GLOBALish", GLOBAL, "EXPORT", EXPORT, "\$?PACKAGE", GLOBAL, "::?PACKAGE", GLOBAL, "\$_", Any, "\$/", Any, "\$!", Any, "\&a", sub a(\x) { ... }, "\$=pod", Array.new(), )␤»
Coleoid So :: is a sub? 21:49
flussence r: sub a(\x) { x<foo> eq 'bar' }; sub b(\string, \code) { my $foo = ''; \code(::) }; say b("$foo = 'bar'", &a);
p6eval rakudo fa7fca: OUTPUT«===SORRY!===␤Variable $foo is not declared␤at /tmp/BdUg717KU5:1␤»
Coleoid No, I see, it's a pseudostash.
grondilu r: say ::.WHAT 21:50
p6eval rakudo fa7fca: OUTPUT«PseudoStash()␤»
flussence r: sub a(\x) { x<foo> eq 'bar' }; sub b(\string, &code) { my $foo = ''; eval string; &code(::) }; say b("$foo = 'bar'", &a);
p6eval rakudo fa7fca: OUTPUT«===SORRY!===␤Variable $foo is not declared␤at /tmp/n0nSfeynI9:1␤»
flussence r: sub a(\x) { x<foo> eq 'bar' }␤ sub b(\string, &code) { my $foo = ''; eval string; &code(::) }␤ say b("$foo = 'bar'", &a);
p6eval rakudo fa7fca: OUTPUT«===SORRY!===␤Variable $foo is not declared␤at /tmp/fyLLOxGGOh:3␤»
grondilu in which synopsis is :: described?
flussence oh wait.
r: sub a(\x) { x<foo> eq 'bar' }␤ sub b(\string, &code) { my $foo = ''; eval string; &code(::) }␤ say b(q{$foo = 'bar'}, &a); 21:51
p6eval rakudo fa7fca: OUTPUT«use of uninitialized value of type Any in string context in sub a at /tmp/RHe0pT3NbS:1␤␤False␤»
flussence r: sub a(\x) { x{'$foo'} eq 'bar' }␤ sub b(\string, &code) { my $foo = ''; eval string; &code(::) }␤ say b(q{$foo = 'bar'}, &a);
p6eval rakudo fa7fca: OUTPUT«True␤»
flussence there.
Coleoid Nice!
flussence I don't think it's even in the spec 21:54
n: say ::
p6eval niecza v22-7-g7df6137: OUTPUT«PseudoStash.new(...)␤»
flussence it's cross-platform though.
rn: sub a($x) { $x{'$foo'} eq 'bar' }␤ sub b($string, &code) { my $foo = ''; eval $string; &code(::) }␤ say b(q{$foo = 'bar'}, &a); 21:55
p6eval niecza v22-7-g7df6137: OUTPUT«Potential difficulties:␤ $foo is declared but not used at /tmp/rXx6YEE3zG line 2:␤------> sub b($string, &code) { my ⏏$foo = ''; eval $string; &code(::) }␤␤True␤»
..rakudo fa7fca: OUTPUT«True␤»
flussence rn: sub a($x) { $x{'$foo'} eq 'bar' }␤ sub b($string, &code) { my $foo = ''; eval $string; &code(::) }␤ say b(q{$foo = 'bazzzzzzzz'}, &a);
p6eval niecza v22-7-g7df6137: OUTPUT«Potential difficulties:␤ $foo is declared but not used at /tmp/SlSscbAwrJ line 2:␤------> sub b($string, &code) { my ⏏$foo = ''; eval $string; &code(::) }␤␤False␤»
..rakudo fa7fca: OUTPUT«False␤»
Coleoid So :: is the namespace hash, and we pass it in to the check-match method, and the check-match fetches the values it wants from the hash, instead of straight evaluation. 22:32
Moukeddar \o perl6 22:36
sorear o/ 22:37
Moukeddar how are you doing? 22:40
Moukeddar what are genetic algorithms good for ? 22:56
diakopter evolving code or a dataset that drives code based on fitness evaluation 22:58
diakopter so, you need a good way to measure fitness of a generation/individual 23:00
Moukeddar alright, i've been told that's what i need to generate schedule for different groups of students, while respecting some constraints 23:05
Moukeddar ? 23:14
diakopter ? :) 23:27
Moukeddar i get the basic idea, the gene and chromosome 23:38

Powered by Cro and the Raku® Programming Language.

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

Thank you!