pugscode.org/ | nopaste: sial.org/pbot/perl6 | pugs: [~] <m oo se> (or rakudo:, kp6:, smop: etc.) || We do Haskell, too | > reverse . show $ foldl1 (*) [1..4] | irclog: irc.pugscode.org/
Set by TimToady on 25 January 2008.
meppl good night 00:58
bacek pugs: sub twice($a) { sub { 2*$a} }; my $t = twice; 03:25
p6eval pugs: OUTPUT[*** ␤ Unexpected "$t"␤ expecting "=", context, ":" or "("␤ at /tmp/HQqGnCOxrn line 1, column 35␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; my $t = twice;
p6eval pugs: OUTPUT[*** ␤ Unexpected "$t"␤ expecting "=", context, ":" or "("␤ at /tmp/r0sjMRwvW7 line 1, column 36␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; say twice(5);
p6eval pugs: OUTPUT[<SubRoutine(<anon>)>␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; say twice(5)->();
p6eval pugs: OUTPUT[*** ␤ Unexpected "->();"␤ expecting ":", term postfix, operator or ","␤ at /tmp/QkbPxRQpru line 1, column 45␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; say twice(5).();
p6eval pugs: OUTPUT[10␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; say twice.(5); 03:26
p6eval pugs: OUTPUT[*** Cannot cast from VUndef to Pugs.AST.Internals.VCode (VCode)␤ at /tmp/tn98aF191L line 1, column 37-46␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; say twice().(5);
p6eval pugs: OUTPUT[*** No compatible multi variant found: "&twice"␤ at /tmp/kWwQ6AAVOE line 1, column 37-48␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; say twice(5).(); 03:26
p6eval pugs: OUTPUT[10␤]
bacek rakudo: sub twice($a) { sub { 2*$a}; }; say twice(5).(); 03:27
p6eval rakudo 29067: OUTPUT[Statement not terminated properly at line 1, near ".();"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤]
bacek rakudo: sub twice($a) { sub { 2*$a}; }; say twice(5);
p6eval rakudo 29067: OUTPUT[_block22␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; my $t = twice(5);
p6eval pugs: RESULT[\sub :(@_) "$_" := "Scalar" #<Scalar:0xb7a529dd>␤ "@_" := "Array" #<Array:0xb7a529d5>␤ "&?ROUTINE" := "Sub" #<Sub:0xb7a062ed>␤ "&?BLOCK" := "Sub" #<Sub:0xb7a062ed> {, "$_" := "Scalar" #<Scalar:0xb7c47f8d>␤ ...
bacek pugs: sub twice($a) { sub { 2*$a}; }; my $t = twice(5); say $t();
p6eval pugs: OUTPUT[10␤]
bacek rakudo: sub twice($a) { sub { 2*$a}; }; my $t = twice(5); say $t(); 03:28
p6eval rakudo 29067: OUTPUT[10␤]
bacek pugs: sub twice($a) { sub { 2*$a}; }; my $t = twice; say $t();
p6eval pugs: OUTPUT[*** ␤ Unexpected "$t"␤ expecting "=", context, ":" or "("␤ at /tmp/SbGCncpbok line 1, column 36␤]
bacek perl6: sub times($a,$b) { $a * $b; }; sub divide($a,$b) { $a / $b; } sub make_op($op) { sub($a,$b) { $op($a,$b) } }; my $t = make_op(&times); say $t(21,2); my $div = make_op(&divide); say $div(42,2); 04:21
p6eval elf 21228: OUTPUT[Parse error in: /tmp/qR2i1rXHIF␤panic at line 1 column 31 (pos 31): Can't understand next input--giving up␤WHERE: ub times($a,$b) { $a * $b; }; sub divide($a,$b) { $a / $b; }␤WHERE: /\<-- HERE␤ STD_red/prelude.rb:99:in `panic'␤ STD_red/std.rb:76:in
.....
..kp6 21228: OUTPUT[error in Block at compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Sub.pm line 362, <> line 1.␤*** Syntax Error in sub '': missing closing curly bracket ␤]
..pugs: OUTPUT[42␤21␤]
..rakudo 29067: OUTPUT[Statement not terminated properly at line 1, near "sub make_o"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤]
bacek perl6: sub times($a,$b) { $a * $b; }; sub divide($a,$b) { $a / $b; }; sub make_op($op) { sub($a,$b) { $op($a,$b) } }; my $t = make_op(&times); say $t(21,2); my $div = make_op(&divide); say $div(42,2);
p6eval elf 21228: OUTPUT[/home/evalenv/pugs/misc/STD_red/match.rb:141:in `block in to_dump0': undefined method `to_dump0' for true:TrueClass (NoMethodError)␤ from /home/evalenv/pugs/misc/STD_red/match.rb:140:in `each'␤ from /home/evalenv/pugs/misc/STD_red/match.rb:140:in `map'␤ from
../home/evalenv/pugs/mi...
..kp6 21228: OUTPUT[error in Block at compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Sub.pm line 362, <> line 1.␤*** Syntax Error in sub '': missing closing curly bracket ␤]
..pugs: OUTPUT[42␤21␤]
..rakudo 29067: OUTPUT[42␤84␤]
rakudo_svn r29074 | bernhard++ | [perl6] Fix some POD. 10:07
rakudo_svn r29079 | pmichaud++ | [rakudo]: spectest-progress.csv update, 87 files, 1587 passing tests 14:38
lichtkind expression are also evaled when curly braces stand for hashre? 15:01
hashref
TimToady lichtkind: maybe--we could define { => } as a closure that gets evaluated lazily in hash context; this would be a departure from Perl 5 semantics though 15:11
masak lichtkind: you mean like eval { 'tomatoes' => 'fried green' } ?
lichtkind jes masak
masak my instinct says 'yes', but I'm still trying to parse what TimToady said 15:12
TimToady it would be nice if map { $a => $b } would do what the user expects 15:13
lichtkind TimToady: my question was just if in current perl 6 expr are evaled inside an hash definition
TimToady and I'm trying to answer the "when" of that question
in p5 the expressions are evaluated immediately
I'm saying if we did it lazily, we might be able to finesse the map { $a => $b} problem 15:14
masak TimToady: do you mean my %example = { a => (side_effect1() + side_effect2() }; %example<a> # boom 15:15
TimToady and not decide till it's used whether it was intended for a hash or a function
masak what's the map { $a => $b} problem?
TimToady well, it actually genererally shows up as map { $_ => func($_) } or some such
but people expect it to return a list of pairs, and they get a syntax error instead 15:16
masak ah.
TimToady because to the parser it looks like a hash composer
masak I'm among those people
lichtkind so no full eval inside hash definitions? 15:17
TimToady eh, currently it does full eval; we're speculating
basically it currently adds .() if it looks like a hash composer
lichtkind thanks
TimToady bbl & 15:21
lichtkind thanks masak 15:22
masak lichtkind: np :)
rindolf Hi TimToady, masak 15:37
TimToady: I'm going out to bike.
masak hiya, rindolf
rindolf Previously I hacked on some Perl code to verify Freecell solutions.
masak my latest Perl adventure was a q&d translation of a Haskell program I was writing, into a Perl 5 one-liner, to understand what the heck was going wrong in the Haskell program :) 15:42
I just don't know how to add spurious print statements to my Haskell code.
allbery_b Debug.Trace.trace 15:57
masak allbery_b: I'll look into that 15:58
I waved around ineffectively in GHCi, and then I resorted to Perl 15:59
it helped, too
masak knows that the limitation is in him, not in Haskell
allbery_b pure functional programming takes some getting used to if you're used to imperative languages 16:05
rindolf Bleh! Could not get out on time. 16:07
Going to half-walk/half-run instead.
Bye all.
masak allbery_b: yes, but I've also found that the results are very beautiful
rindolf: seeya
Auzon Should .perl be in S29 under 'Any'? 17:07
pmurias ruoso: one problem with elf is that STD_red dosn't parse everythin in src-s1p, and the STD based frontend (pixie) is in a very early stage 18:13
slavi1 woot, I got pugs 18:16
pmurias ruoso: ping 19:38
pmurias TimToady: what is an acceptable to you way of me adding the rule start extraction to gimme5? 20:11
should i add an option or check an env var?
pmurias TimToady: or is it usefull for something else and i should spit out the info in a particular way? 20:32
webar7 I saw a person with a tshirt in toronto that said: perl6 != ";" 21:40
what does that mean
does perl6 no require ; or something?!
at yonge and dundas 21:41
oh well
ingy I think that would mean "perl6 is not finished" 23:09
Alias_ ingy: I can't use private message on this network 23:46
vixey Alias_: /msg nickserv help register 23:47
Alias_ blah 23:51

Powered by Cro and the Raku® Programming Language.

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

Thank you!