»ö« | perl6.org/ | nopaste: paste.lisp.org/new/perl6 | evalbot usage: 'perl6: say 3;' or rakudo: / pugs: / std: , or /msg p6eval perl6: ... | irclog: irc.pugscode.org/ | UTF-8 is our friend! Set by wolfe.freenode.net on 30 October 2009. |
|||
00:00
colomon joined
|
|||
zaslon | lolperl6adventhazblogged! perl6advent++ 'Day 13: Junctions': perl6advent.wordpress.com/2009/12/1...junctions/ | 00:06 | |
00:17
pmurias left
|
|||
colomon | \o/ | 00:19 | |
00:20
IllvilJa joined
00:26
zaslon left,
mubot left,
pointme left,
zaslon joined,
pointme joined,
mubot joined
|
|||
carlin should probably set up a cron that does a killall perl6 and restarts the bots every so many hours ... | 00:27 | ||
00:28
Alias joined,
Alias_ left
00:30
TwhK joined
00:31
meppl joined
00:33
PacoLinux left,
PacoLinux joined
00:40
hanekom__ left
00:42
dreadpir` left
00:43
TwhK left
00:46
Limbic_Region joined
01:06
Limbic_Region left
01:13
Alias_ joined,
Alias left
01:25
JimmyZ joined
01:40
Baggio_ joined
01:47
Alias joined,
Alias_ left
01:51
jferrero left
01:59
markmont left
02:02
jferrero joined
02:23
envi^home joined
02:32
TiMBuS joined
02:33
beggars joined
02:44
Alias_ joined,
Alias left
02:57
Espressox joined
|
|||
colomon | rakudo: say (2.1 ... { * + 1.4 / 21 }, 3.5).perl | 03:16 | |
p6eval | rakudo 7ef386: Multiple Dispatch: No suitable candidate found for 'cmp', with signature 'PP->I'in Main (file <unknown>, line <unknown>) | ||
colomon | rakudo: say (2.1, 2.2, 2.3 ... 3.5).perl | 03:17 | |
p6eval | rakudo 7ef386: Multiple Dispatch: No suitable candidate found for 'cmp', with signature 'PP->I'in Main (file <unknown>, line <unknown>) | ||
colomon | rakudo: say ('a', 'b', 'c' ... 'z').perl | 03:24 | |
p6eval | rakudo 7ef386: Multiple Dispatch: No suitable candidate found for 'cmp', with signature 'PP->I'in Main (file <unknown>, line <unknown>) | ||
03:24
gfx joined
03:29
Espressox left
|
|||
diakopter | std: .......() | 03:32 | |
p6eval | std 29337: ok 00:01 104m | ||
03:32
JimmyZ left
|
|||
diakopter | std: ...,...,.() | 03:33 | |
p6eval | std 29337: ok 00:01 105m | ||
03:34
Baggio_ left
|
|||
diakopter | std: \ $/|()|1 | 03:35 | |
p6eval | std 29337: ok 00:01 106m | ||
diakopter | std: $/ | 03:36 | |
p6eval | std 29337: ok 00:01 105m | ||
diakopter | rakudo: say $/.WHAT | 03:37 | |
p6eval | rakudo 7ef386: Failure() | ||
03:46
araujo left
|
|||
diakopter | std: 00 | 03:47 | |
p6eval | std 29337: Potential difficulties: Leading 0 does not indicate octal in Perl 6 at /tmp/Rh74TRcYVI line 1:------> 00⏏<EOL>ok 00:01 104m | 03:48 | |
diakopter | std: 0_0 | ||
p6eval | std 29337: ok 00:01 104m | ||
03:48
thowe joined
|
|||
diakopter | std: O_O | 03:48 | |
p6eval | std 29337: Undeclared name: 'O_O' used at line 1ok 00:01 104m | ||
diakopter | std: o_O | ||
03:48
dbrock joined
|
|||
p6eval | std 29337: Undeclared routine: 'o_O' used at line 1ok 00:02 104m | 03:48 | |
diakopter | Undeclared name vs Undeclared routine? | 03:49 | |
03:50
jferrero left
|
|||
diakopter | rakudo: say "{"~"}" # :) | 03:57 | |
p6eval | rakudo 7ef386: ~ | ||
04:02
araujo joined
04:24
meppl left
04:28
justatheory left
|
|||
carlin | std: foobar | 04:31 | |
p6eval | std 29337: Undeclared routine: 'foobar' used at line 1ok 00:01 104m | 04:32 | |
carlin | std: FOOBAR | ||
p6eval | std 29337: Undeclared name: 'FOOBAR' used at line 1ok 00:01 104m | ||
04:32
JimmyZ joined
|
|||
carlin | std: sub FOOBAR {}; FOOBAR | 04:33 | |
p6eval | std 29337: ok 00:03 104m | ||
JimmyZ | ng: gather { take } | ||
p6eval | ng 0307c2: too few positional arguments: 0 passed, 1 (or more) expectedcurrent instr.: '&take' pc 14108 (src/builtins/Junction.pir:299) | ||
JimmyZ | ng: take | ||
p6eval | ng 0307c2: too few positional arguments: 0 passed, 1 (or more) expectedcurrent instr.: '&take' pc 14108 (src/builtins/Junction.pir:299) | ||
JimmyZ | ng: take() | ||
p6eval | ng 0307c2: too few positional arguments: 0 passed, 1 (or more) expectedcurrent instr.: '&take' pc 14108 (src/builtins/Junction.pir:299) | ||
JimmyZ | ng: gather | ||
p6eval | ng 0307c2: Could not find non-existent sub &gathercurrent instr.: '_block14' pc 29 (EVAL_1:0) | ||
JimmyZ | &take | 04:34 | |
ng: &take | |||
p6eval | ng 0307c2: Symbol '&take' not predeclared in <anonymous>current instr.: 'perl6;PCT;HLLCompiler;panic' pc 137 (src/PCT/HLLCompiler.pir:101) | ||
JimmyZ | ng: take $_ | ||
p6eval | ng 0307c2: take without gather | ||
TimToady | carlin: as the comment in STD.pm says: # just a guess, but good enough to improve error reporting | 04:35 | |
std: gather { take } | |||
p6eval | std 29337: ok 00:01 104m | ||
TimToady | probably worth leaving in, since it does return a Nil | 04:36 | |
and that may be all you need to return | |||
JimmyZ | ng: gather { take } | ||
p6eval | ng 0307c2: too few positional arguments: 0 passed, 1 (or more) expectedcurrent instr.: '&take' pc 14108 (src/builtins/Junction.pir:299) | ||
JimmyZ | ng: gather { take $_} | ||
p6eval | ng 0307c2: ( no output ) | ||
JimmyZ | sometime I want take $_ by defalut :) | 04:37 | |
TimToady | nothing ever takes $_ by default in Perl 6 | ||
except maybe /foo/ | |||
and a few things that set $_ by default | 04:38 | ||
JimmyZ | ng: $_ =2; print | ||
p6eval | ng 0307c2: ( no output ) | ||
TimToady | ng: say gather { .take } | ||
p6eval | ng 0307c2: Method 'take' not found for invocant of class ''current instr.: '_block22' pc 101 (EVAL_1:46) | ||
TimToady | std: $_ =2; print | ||
p6eval | std 29337: Potential difficulties: Unsupported use of bare 'print'; in Perl 6 please use .print if you want to print $_, or use an explicit argument at /tmp/bKxU3IAOOn line 1:------> $_ =2; print⏏<EOL>ok 00:01 106m | ||
carlin | TimToady: ah, I didn't look at the source that was just a guess on what was happening from diakopter's example | 04:39 | |
JimmyZ | oh, $_ is not used by default as well as perl5? | ||
TimToady | never for function calls | ||
JimmyZ | what does $_ do? | 04:40 | |
TimToady | default for given/when or for/when | ||
JimmyZ | any other? | ||
any others? | |||
TimToady | any .foo means $_.foo | ||
but the . is required | 04:41 | ||
we are trying to get rid of all the lists that people have to memorize | |||
you no longer have to remember which functions default to $_ | |||
just like you don't have to remember which blocks need ; at the end of a line | 04:42 | ||
JimmyZ | oh, the best of syntax in perl5 is not in perl6 now... | ||
ng: $_ = take | 04:43 | ||
p6eval | ng 0307c2: too few positional arguments: 0 passed, 1 (or more) expectedcurrent instr.: '&take' pc 14108 (src/builtins/Junction.pir:299) | ||
TimToady | ng apparently requires an argument on take | 04:44 | |
JimmyZ | ng: sub foo {}; $_ = foo; $_() | ||
p6eval | ng 0307c2: Null PMC access in can()current instr.: 'perl6;Mu;!STORE' pc 2047 (src/builtins/Mu.pir:387) | ||
JimmyZ | ng: sub foo {}; $_ = foo; | ||
p6eval | ng 0307c2: Null PMC access in can()current instr.: 'perl6;Mu;!STORE' pc 2047 (src/builtins/Mu.pir:387) | ||
JimmyZ | rakudo: sub foo {}; $_ = foo; | ||
p6eval | rakudo 7ef386: ( no output ) | ||
JimmyZ | rakudo: sub foo {}; $_ = foo(); | ||
p6eval | rakudo 7ef386: ( no output ) | ||
TimToady | missing a & on &foo | 04:45 | |
JimmyZ | rakudo: $_ = take | ||
p6eval | rakudo 7ef386: too few positional arguments: 0 passed, 1 (or more) expectedin Main (file <unknown>, line <unknown>) | ||
TimToady | ng: sub foo {}; $_ = &foo; $_(); | ||
p6eval | ng 0307c2: sh: ./perl6: No such file or directory | ||
TimToady | recompiling... | ||
JimmyZ | rankudo: sub foo { say 'bar2000' }; $_ = foo; $_(); | 04:46 | |
rakudo: sub foo { say 'bar2000' }; $_ = foo; $_(); | |||
p6eval | rakudo 7ef386: bar2000invoke() not implemented in class 'Boolean'in Main (file <unknown>, line <unknown>) | ||
TimToady | & !!!! | ||
JimmyZ | TimToady: I see | ||
TimToady | rakudo: sub foo { say 'bar2000' }; $_ = &foo; $_() | ||
JimmyZ | rakudo: sub foo { -> {say 'bar2000'}; }; $_ = foo; $_(); | ||
p6eval | rakudo 7ef386: bar2000 | ||
JimmyZ | rakudo: sub foo { -> {say $_ ~ 'bar2000'}; }; $_ = foo; $_('foo'); | 04:47 | |
p6eval | rakudo 7ef386: Too many positional parameters passed; got 1 but expected 0in Main (file src/gen_setting.pm, line 324) | ||
JimmyZ | rakudo: sub foo { $_ -> {say $_ ~ 'bar2000'}; }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: Confused at line 2, near "-> {say $_"in Main (file <unknown>, line <unknown>) | ||
JimmyZ | rakudo: sub foo { -> {say 'bar2000'}; }; $_ = foo; $_(); | 04:48 | |
p6eval | rakudo 7ef386: bar2000 | ||
JimmyZ | rakudo: sub foo { return $_ -> {say $_ ~ 'bar2000'}; }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: Confused at line 2, near "-> {say $_"in Main (file <unknown>, line <unknown>) | ||
TimToady | -> is a term, so can't follow $_ | 04:49 | |
JimmyZ | rakudo: sub foo { return $a -> {say $^b ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: Confused at line 2, near "-> {say $^"in Main (file <unknown>, line <unknown>) | ||
TimToady | can't follow $a either | ||
std: sub foo { return $a -> {say $^b ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | |||
p6eval | std 29337: ===SORRY!===Unexpected block in infix position (two terms in a row, or previous statement missing semicolon?) at /tmp/nwmDUFtiMF line 1:------> sub foo { return $a ⏏-> {say $^b ~ 'bar2000'}; }; $d_ = foo;  expecting any of: bracketed infix | 04:50 | |
..infi… | |||
diakopter | maybe /foo/ needs to be ./foo/ for more consistency | ||
TimToady | nah, it's not like the list of / characters is very long :) | ||
JimmyZ | I forgot how to pass args. | ||
TimToady | std: sub foo { return $a -> {say $^b ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | 04:51 | |
p6eval | std 29337: ===SORRY!===Unexpected block in infix position (two terms in a row, or previous statement missing semicolon?) at /tmp/KKGtWBGkvd line 1:------> sub foo { return $a ⏏-> {say $^b ~ 'bar2000'}; }; $d_ = foo;  expecting any of: bracketed infix | ||
..infi… | |||
TimToady | std: sub foo { return -> {say $^b ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | ||
p6eval | std 29337: ===SORRY!===Placeholder variable $^b cannot override existing signature ( ) at /tmp/ud5JwbQtcj line 1:------> sub foo { return -> {say $^b⏏ ~ 'bar2000'}; }; $d_ = foo; $_('foo'); expecting any of: POST postfix | ||
..postfix_prefix_meta_operator sta… | |||
TimToady | std: sub foo { return {say $^b ~ 'bar2000'}($^a); }; $d_ = foo; $_('foo'); | ||
p6eval | std 29337: Potential difficulties: Variable $d_ is not predeclared at /tmp/4JEXHH1iJH line 1:------> eturn {say $^b ~ 'bar2000'}($^a); }; $d_⏏ = foo; $_('foo');ok 00:01 108m | ||
TimToady | std: sub foo { return {say $^b ~ 'bar2000'}($^a); }; $_ = foo; $_('foo'); | ||
p6eval | std 29337: ok 00:01 106m | 04:52 | |
diakopter | std: sub foo { return -> sub {say $^b ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | ||
p6eval | std 29337: ===SORRY!===Invalid typename sub at /tmp/xxwGrhZ5NU line 1:------> sub foo { return -> sub⏏ {say $^b ~ 'bar2000'}; }; $d_ = foo; $_FAILED 00:01 107m | ||
TimToady | rakudo: sub foo { return {say $^b ~ 'bar2000'}($^a); }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: Not enough positional parameters passed; got 0 but expected 1in Main (file src/gen_setting.pm, line 324) | ||
TimToady | rakudo: sub foo ($a) { return {say $^b ~ 'bar2000'}($a); }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: Not enough positional parameters passed; got 0 but expected 1in Main (file src/gen_setting.pm, line 324) | ||
diakopter | rakudo: sub foo { return {say $^b ~ 'bar2000'}($^a); }; $_ = foo(&foo); $_('foo'); | ||
JimmyZ | rakudo: sub foo { return -> $_ {say $^b ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: foobar2000invoke() not implemented in class 'Boolean'in Main (file <unknown>, line <unknown>) | ||
rakudo 7ef386: Cannot use placeholder var in block with signature. at line 2, near " ~ 'bar200"in Main (file src/gen_setting.pm, line 2127) | |||
JimmyZ | rakudo: sub foo { return -> $_ {say $_ ~ 'bar2000'}; }; $d_ = foo; $_('foo'); | 04:53 | |
p6eval | rakudo 7ef386: Symbol '$d_' not predeclared in <anonymous> (/tmp/GZTWkqXiKX:2)in Main (file <unknown>, line <unknown>) | ||
TimToady | rakudo: sub foo ($a) { return -> $b {say $b ~ 'bar2000'}($a); }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: Not enough positional parameters passed; got 0 but expected 1in Main (file src/gen_setting.pm, line 324) | ||
JimmyZ | rakudo: sub foo { -> $_ {say $_ ~ 'bar2000'}; }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: foobar2000 | ||
diakopter | TimToady: it wants an arg on foo; | ||
TimToady | rakudo: sub foo { return -> $b {say $b ~ 'bar2000'} }; $_ = foo; $_('foo'); | ||
p6eval | rakudo 7ef386: foobar2000 | ||
JimmyZ | rakudo: sub foo { -> $_ {say $^_ ~ 'bar2000'}; }; $_ = foo; $_('foo'); | 04:54 | |
p6eval | rakudo 7ef386: Cannot use placeholder var in block with signature. at line 2, near " ~ 'bar200"in Main (file src/gen_setting.pm, line 2127) | ||
TimToady | rakudo: sub foo ($b) {say $b ~ 'bar2000'}; $_ = &foo; $_('foo'); | ||
p6eval | rakudo 7ef386: foobar2000 | ||
diakopter | oh, I see what you were doing | ||
04:54
Alias joined,
Alias_ left
|
|||
JimmyZ | how use $^ in a block? I forgot again | 04:54 | |
TimToady | use it instead of a signature | 04:55 | |
any -> counts as a signature, even if empty | |||
rakudo: $_ = {say $^b ~ 'bar2000'}; $_('foo'); | |||
p6eval | rakudo 7ef386: foobar2000 | ||
JimmyZ | rakudo: $_ = {say $^b ~ $^c x 2 ~ 'bar2000'}; $_('f', 'o'); | 04:57 | |
p6eval | rakudo 7ef386: foobar2000 | ||
JimmyZ | rakudo: $_ = {say $^b ~ $^c x 10 ~ 'bar2000'}; $_('f', 'o'); | ||
p6eval | rakudo 7ef386: foooooooooobar2000 | ||
JimmyZ | rakudo: $_ = {say $^b ~ $^c x 10 ~ $^b ~ 'bar2000'}; $_('f', 'o'); | 04:58 | |
p6eval | rakudo 7ef386: foooooooooofbar2000 | ||
TimToady | akudo: $_ = {say $^b ~ $^c x 10 ~ $^b ~ 'bar2000'}; .('f', 'o') | ||
diakopter | rakudo: sub foo {say $^b ~ 'bar2000'}; foo(&foo); # TimToady :) | 04:59 | |
TimToady | rakudo: $_ = {say $^b ~ $^c x 10 ~ $^b ~ 'bar2000'}; .('f', 'o') | ||
p6eval | rakudo 7ef386: foobar2000 | ||
rakudo 7ef386: foooooooooofbar2000 | |||
TimToady | rakudo: say blech {}; say &blech | 05:00 | |
p6eval | rakudo 7ef386: ( no output ) | ||
TimToady | rakudo: sub blech {}; say &blech | ||
p6eval | rakudo 7ef386: blech | ||
diakopter | :) | ||
wait, what happened in the 'say blech {} | |||
JimmyZ | rakudo: sub foo {say $^b ~ 'bar2000'}; foo(&foo); | 05:01 | |
p6eval | rakudo 7ef386: foobar2000 | ||
JimmyZ | rakudo: sub foooo {say $^b ~ 'bar2000'}; foooo(&foooo); | ||
p6eval | rakudo 7ef386: foooobar2000 | ||
diakopter | rakudo: sub foo { }; foo(:&foo) | 05:02 | |
p6eval | rakudo 7ef386: Symbol '&foo' not predeclared in <anonymous>in Main (file <unknown>, line <unknown>) | ||
JimmyZ | rakudo: sub foooo {say $^b}; foooo(&foooo); | ||
p6eval | rakudo 7ef386: foooo | ||
JimmyZ | what's happend? | ||
ng: sub foooo {say $^b}; foooo(&foooo); | |||
p6eval | ng 0307c2: &foooo | ||
JimmyZ | bug? | 05:03 | |
rakudo: sub foo {}; $_ = &foo; .say; | 05:04 | ||
p6eval | rakudo 7ef386: foo | ||
JimmyZ | ng: sub foo {}; $_ = &foo; .say; | ||
p6eval | ng 0307c2: &foo | ||
JimmyZ | pugs: sub foo {}; $_ = &foo; .say; | ||
p6eval | pugs: <SubRoutine(&foo)> | ||
TimToady | pugs++ | 05:05 | |
JimmyZ | ng: sub foo {}; $_ = &foo; .WHAT.say; | ||
p6eval | ng 0307c2: Sub() | ||
JimmyZ | pugs: sub foo {}; $_ = &foo; .WHAT.say; | 05:06 | |
p6eval | pugs: Sub | ||
JimmyZ | rakudo: sub foo {}; $_ = &foo; .WHAT.say; | ||
p6eval | rakudo 7ef386: Sub() | ||
diakopter | is it bad that I've been pronouncing github as gith-ub (in my mind)? | 05:07 | |
TimToady | depends on how plastic your brain is | 05:08 | |
diakopter | std: our @$$$$$$$$$$$$$$$$$$$$$$ # I still don't understand what this means | 05:09 | |
p6eval | std 29337: ok 00:01 106m | ||
TimToady | same as: | 05:12 | |
std: our @$ | |||
p6eval | std 29337: ok 00:01 105m | ||
TimToady | which is equiv to our Positional $ | 05:13 | |
which would be an anonymous variable that is guaranteed to hold a Positional :) | |||
Alias | TimToady: use.perl.org/~Alias/journal/40015 | ||
Managed to finally solve recursion without using regex recursion | 05:14 | ||
carlin | to solve recursion you must first solve recursion | ||
TimToady | you can say that again | 05:15 | |
diakopter | I can say this again | 05:16 | |
Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Alias: Ali | 05:18 | ||
Alias | (oh where's /kickban when you need it) | ||
05:19
ChanServ sets mode: +o Alias
|
|||
Alias | Well, it's too late NOW isn't it :) | 05:19 | |
05:19
Alias sets mode: -o Alias
|
|||
TimToady | I dunno, considering it's diakopter that's the ChanServ, seems like it would suspend the statute of limitations | 05:20 | |
diakopter | Alias: direct recursion or indirect/mutual also? | ||
Alias | diakopter, hrm? | ||
I just make things, I don't know all these fancy terminalologies | 05:21 | ||
This ignorance is my greatest asset sometimes, it seems :) | |||
diakopter studies terminals | |||
TimToady prefers dragons and winds | 05:22 | ||
diakopter | Alias: what kind of input (and patterns) would you now be able to support | ||
(what's a minimualistic example of a recursion you can now support) | 05:23 | ||
Alias | I've currently got arbitrary depth foo.bar.baz expressions on ARRAY/HASH/Object (but not VMethods), IF/ELSE/UNLESS and FOREACH | ||
Plus whitespace chomping [%- | |||
I'm at 68k of memory | 05:24 | ||
diakopter | minimual: that's a new one | ||
Alias | And I've got a budget of 100k | ||
diakopter | what if foo.bar.baz is a reference to foo | ||
TimToady | (you'll note he doesn't say 100k *what*) | ||
Alias | Memory cost of "use" | 05:25 | |
TimToady | australian bytes are worth as much as american bytes | ||
*aren't | |||
Alias | But we're getting close | ||
TimToady | grr, can't tell jokes anymore | ||
Alias | Parity expected some time next year :) | ||
TimToady | but then your bytes will be worth 12.5% more than ours | 05:26 | |
Alias | TimToady, s/jokes/original jokes/ :) | ||
TimToady | assuming only one parity bit | ||
diakopter | ECC costs a bit more | ||
Alias: can you provide an example of what kind of recursion you're enabling? | 05:29 | ||
Alias | [% IF foo %][% FOREACH item IN list %][% IF item.cool %]Awesome![% ELSE %][% FOREACH .... and so on | ||
It's interesting only really because I'm NOT doing brace-flipping and compiling it into code | 05:30 | ||
I'm trying to do it entirely inside normal regex/code | |||
05:37
JimmyZ left
05:48
romanhunt left
06:16
zloyrusskiy joined
|
|||
carlin | rakudo: say '01'..20 | 06:17 | |
p6eval | rakudo 7ef386: 0102030405060708091011121314151617181920 | ||
carlin | rakudo: say '01'..8 | ||
p6eval | rakudo 7ef386: 01020304050607080910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879 | ||
carlin | ng: say '01'..8 | 06:23 | |
p6eval | ng 0307c2: "01"..8 | ||
carlin | ng: say '01'..20 | 06:24 | |
p6eval | ng 0307c2: "01"..20 | ||
carlin | ng: say '01'..'20' | ||
p6eval | ng 0307c2: "01".."20" | ||
carlin | ng: say 1..8 | ||
p6eval | ng 0307c2: 1..8 | ||
carlin | oh | ||
ng: say 1..'foobarbaz' | 06:25 | ||
p6eval | ng 0307c2: 1.."foobarbaz" | ||
carlin | heh | ||
mberends | is that a Range, and ng being properly lazy? | 06:33 | |
ng: say (1.."foobarbaz").WHAT # seems to be that way | 06:35 | ||
p6eval | ng 0307c2: Range() | ||
06:37
Baggio_ joined
|
|||
carlin | ng: for 1..8 { .say } | 06:37 | |
p6eval | ng 0307c2: 1..8 | ||
carlin | ng: for 1...8 { .say } | ||
p6eval | ng 0307c2: 12345678 | ||
06:38
Baggio_ left
06:44
Baggio_ joined
|
|||
hejki | ng: (1..8)>>.say | 06:47 | |
p6eval | ng 0307c2: sh: ./perl6: No such file or directory | ||
hejki | rakudo: (1..8)>>.say | ||
p6eval | rakudo 7ef386: 12345678 | ||
hejki | btw.. how does hyper deal with lazy arrays? | 06:48 | |
TimToady | hyper is intrinsically eager | 07:02 | |
07:04
Baggio_ left
07:06
abra joined
|
|||
mberends | TimToady: do you see any problem in adding exit status values to viv when errors/difficulties are encountered? currently the exit status seems to always be 0. | 07:13 | |
TimToady | it already exits non-zero on fatal errors | 07:17 | |
mberends | yes, it would be helpful to me to flag non-fatal errors too. I'm calling viv from C via popen(). | 07:18 | |
pclose() returns the status | |||
TimToady | seems reasonable | 07:19 | |
mberends | let me try to patch viv then without breaking anything (gradually) | 07:20 | |
TimToady | I doubt patching viv will work | 07:21 | |
mberends | hmm, true, looked at the code already | 07:24 | |
TiMBuS | hey, whats the best way to split a string in two in perl6? you cant slice a string can you | 07:25 | |
TimToady | by what criterion? | 07:26 | |
TiMBuS | x amount of characters | ||
uh, x amount of bytes | |||
TimToady | strings don't come in bytes in Perl 6 :) | ||
though buffers do... | 07:27 | ||
and in theory buffers are sliceable, since they're arrays too | |||
but I don't think rakudo does much with buffers yet | 07:28 | ||
TiMBuS | oh. | ||
:[ | |||
TimToady | or you can say /(. ** 10)(. ** 20)/ | 07:29 | |
TiMBuS | yeah but x can change | ||
and i don't think ** works with scalars | 07:30 | ||
TimToady | ng will soon support closures, so /(. ** {$x})/ would work then | ||
ng: my $x = 3; say "food" ~~ /(. ** {$x})/ | 07:31 | ||
p6eval | ng 0307c2: food | ||
TimToady | probably took it as a separator instead of a count | ||
ng: my $x = 3; say "food" ~~ /(. ** {$x..$x})/ | |||
p6eval | ng 0307c2: food | ||
TimToady | ah well, bug | 07:32 | |
there's always substr | |||
TiMBuS | yep | ||
TimToady | or eval | ||
TiMBuS | it would be nice if perl 6 had string slices | ||
07:36
c9s joined
|
|||
TimToady | zzz & | 07:37 | |
mberends | g'nite | ||
07:41
JimmyZ joined
|
|||
JimmyZ | ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_($o='o', $f='f'); | 07:46 | |
p6eval | ng 0307c2: sh: ./perl6: No such file or directory | ||
JimmyZ | rakudo: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_($o='o', $f='f'); | ||
p6eval | rakudo 7ef386: Symbol '$o' not predeclared in <anonymous> (/tmp/GC2fHIZa5v:2)in Main (file <unknown>, line <unknown>) | ||
JimmyZ | ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_($o='o', $f='f'); | ||
p6eval | ng 0307c2: sh: ./perl6: No such file or directory | ||
JimmyZ | ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_($o='o', $f='f'); | 07:47 | |
p6eval | ng 0307c2: sh: ./perl6: No such file or directory | ||
mberends | JimmyZ: ng may be recompiling in a cron job | 07:49 | |
JimmyZ | ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_($o='o', $f='f'); | ||
p6eval | ng 0307c2: Confused at line 1, near "$_($o='o',"current instr.: 'perl6;HLL;Grammar;panic' pc 519 (src/stage0/HLL-s0.pir:336) | ||
JimmyZ | how to pass named args? | 07:50 | |
ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_($^o='o', $^f='f'); | |||
p6eval | ng 0307c2: Confused at line 1, near "$_($^o='o'"current instr.: 'perl6;HLL;Grammar;panic' pc 519 (src/stage0/HLL-s0.pir:336) | ||
JimmyZ | ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_('o', 'f'); | ||
p6eval | ng 0307c2: offbar2000 | ||
JimmyZ | ng: $_ = { say $^f ~ $^o x 2 ~ 'bar2000'; }; $_('f', 'o'); | ||
p6eval | ng 0307c2: foobar2000 | 07:51 | |
07:53
Baggio_ joined
08:00
kaare joined,
kaare is now known as Guest50217
08:04
cotto_w0rk joined
08:08
Su-Shee joined
|
|||
Su-Shee | good morning :) | 08:09 | |
08:14
abra left,
abra joined,
abra left
08:15
abra joined,
abra left,
JimmyZ left
08:17
JimmyZ joined
08:18
cotto_working joined
08:19
abra joined,
abra left
08:20
cotto_work left,
abra joined,
abra left
08:22
abra joined,
abra left
08:26
abra joined,
abra left
08:30
kaare joined
08:31
kaare is now known as Guest58143
|
|||
hejki | is there a perl6 way of saying my @ar = 1, 2, 3, 4, 5; for 1..3 -> $i { @ar[$i].say } ? | 08:31 | |
Tene | rakudo: my @a = 1..5; for @a[1..3] { .say } | 08:32 | |
p6eval | rakudo 7ef386: 234 | ||
hejki | ahh | 08:33 | |
just what i was looking for :) | |||
08:35
cotto_w0rk left
08:36
meppl joined
|
|||
hejki | also is there a comfortable way of saying that a for loop shifts through an array n elems at a time? | 08:38 | |
08:42
zloyrusskiy left
08:43
Guest50217 left
|
|||
hejki | rakudo: for 1..10 -> $a, $b, $c, $d, $e { say "a: $a b: $b c: $c d: $d e: $e"; } | 08:46 | |
p6eval | rakudo 7ef386: a: 1 b: 2 c: 3 d: 4 e: 5a: 6 b: 7 c: 8 d: 9 e: 10 | ||
hejki | mm.. wonder if i could use a presized array in -> ? | 08:47 | |
08:48
hanekomu_ joined,
abra joined,
abra left
08:51
JimmyZ left
08:52
gfx left
08:54
abra joined
08:57
Baggio_ left,
Baggio_ joined
08:59
abra left,
abra joined,
abra left
09:02
abra joined
09:06
abra left
09:07
abra joined
09:09
abra left
09:10
abra joined,
abra left
|
|||
hejki | rakudo: my @ar = "foobar".comb(/./); my Str $str = ~@ar; say "str: $str is " ~ $str.WHAT; | 09:11 | |
p6eval | rakudo 7ef386: str: f o o b a r is Str() | ||
hejki | hmm.. how-to remove whitespace? :) | ||
carlin | rakudo: my @ar = "foobar".comb(/./); my Str $str = @ar.join; say "str: $str is " ~ $str.WHAT | 09:13 | |
p6eval | rakudo 7ef386: str: foobar is Str() | ||
hejki | :P | 09:14 | |
09:14
abra joined
|
|||
hejki | ty | 09:14 | |
09:15
abra left
09:16
abra joined
|
|||
carlin | ~ adds spaces | 09:17 | |
rakudo: my @x = <foo bar baz>; say @a; say ~@a; | 09:18 | ||
p6eval | rakudo 7ef386: Symbol '@a' not predeclared in <anonymous> (/tmp/Z02IYUbQ4N:2)in Main (file <unknown>, line <unknown>) | ||
carlin | rakudo: my @x = <foo bar baz>; say @x; say ~@x; | ||
p6eval | rakudo 7ef386: foobarbazfoo bar baz | ||
09:19
abra left,
abra joined
09:20
abra left,
abra joined
09:24
kaare joined,
abra left,
abra joined,
kaare is now known as Guest71037
09:28
iblechbot joined
09:29
JimmyZ joined
09:37
Guest58143 left
|
|||
JimmyZ | ng: sub foo { return {say $^f ~ $^g x 2 ~ 'bar2000'} }; $_ = foo; $_('f', 'o'); | 09:38 | |
p6eval | ng 0307c2: foobar2000 | ||
JimmyZ | ng: sub foo { return {say $^f ~ $^e x 2 ~ 'bar2000'} }; $_ = foo; $_('f', 'o'); | ||
p6eval | ng 0307c2: offbar2000 | 09:39 | |
JimmyZ | Is it a bug? | ||
ng: sub foo { return {say $^a ~ $^b x 2 ~ 'bar2000'} }; $_ = foo; $_('f', 'o'); | 09:41 | ||
p6eval | ng 0307c2: foobar2000 | ||
JimmyZ | ng: sub foo { return {say $^b ~ $^a x 2 ~ 'bar2000'} }; $_ = foo; $_('f', 'o'); | ||
p6eval | ng 0307c2: offbar2000 | ||
JimmyZ | pugs: sub foo { return {say $^b ~ $^a x 2 ~ 'bar2000'} }; $_ = foo; $_('f', 'o'); | ||
p6eval | pugs: offbar2000 | ||
JimmyZ | pugs: sub foo { return {say $^a ~ $^b x 2 ~ 'bar2000'} }; $_ = foo; $_('f', 'o'); | ||
p6eval | pugs: foobar2000 | ||
JimmyZ | oh | ||
09:44
jaldhar joined,
abra left,
abra joined,
JimmyZ left
09:45
abra left,
abra joined
|
|||
moritz_ | good morning | 09:45 | |
09:46
abra left
|
|||
mberends | good moritz_, morning # tab fail ;-) | 09:46 | |
09:49
abra joined
09:57
abra left,
abra joined
09:58
abra left
10:00
abra joined
10:01
abra left
10:02
abra joined,
abra left
10:03
abra joined
10:04
abra left,
abra joined
10:08
abra left
10:09
abra joined
10:11
c9s left
10:16
kaare joined,
kaare is now known as Guest75509
10:30
Guest71037 left
10:54
Guest75509 left
10:57
TiMBuS left
11:24
Astoria` joined
|
|||
colomon | quiet this morning | 11:25 | |
moritz_ | quiet indeed | ||
colomon | i keep thinking p6 needs a method which returns the first N elems of a lazy list (lazily) | 11:26 | |
moritz_ | ( list )[^$N] | 11:27 | |
colomon | more or less like that, yeah | ||
are slices lazy? | 11:28 | ||
moritz_ | I think so, yes | ||
colomon | then this method might be really easy to define. :) | 11:29 | |
sjohnson | hiiii | ||
colomon | method head($n = 1) { self[^$n[; } | 11:30 | |
moritz_ | multi sub infix:<take>(@lhs, $number) is equiv &infix<Z>( @lhs[^$number] ) { ... } | ||
rm | 11:31 | ||
multi sub infix:<take>(@lhs, $number) is equiv &infix<Z> { @lhs[^$number] ) } | |||
> [1, 2, 3, 4, 5] $ take 2 | 11:32 | ||
oh, no lambdabot :-) | |||
colomon | won't that return the indies too? | ||
moritz_ | actually it's a type error | ||
.oO( of course ) |
|||
Prelude> take 2 [1, 2, 3, 4, 5] | 11:33 | ||
[1,2] | |||
colomon | why the Z? | 11:34 | |
11:34
Guest75509 joined
|
|||
moritz_ | you'd want it to have looser precedence than the comma | 11:35 | |
colomon | oooo! | ||
11:35
cotto_working left
|
|||
colomon | is equiv is setting precedence? | 11:36 | |
moritz_ | yes | ||
11:37
colomon left
11:45
Baggio_ left
11:48
Baggio_ joined
11:55
colomon joined
|
|||
colomon | very cool | 11:56 | |
11:59
kaare joined
12:00
kaare is now known as Guest27330
12:09
pmurias joined
|
|||
pmurias | mberends: why are you calling viv from C? | 12:09 | |
12:14
Guest75509 left
|
|||
pmurias | Anonymous variable requires declarator at STD.pm line 304: | 12:15 | |
------> { @*MEMOS[$⏏¢.pos]<endstmt> ||= 1; } | |||
what may be causing this? | 12:16 | ||
moritz_ | incorrect UTF-8 decoding maybe? | ||
12:18
fridim joined
|
|||
moritz_ | std: $¢ | 12:22 | |
p6eval | std 29337: ok 00:01 107m | ||
12:39
xomas_ joined
12:40
Baggio_ left
|
|||
colomon | moritz_: just edited your comment on p6 Advent to say ~| for string or -- previously said "strong" or. Hope this was actually a typo and not some use of the term strong I've not seen before... | 12:44 | |
12:46
Baggio_ joined
|
|||
pmurias | moritz_: this was part of the problem | 12:55 | |
12:56
Baggio_ left
|
|||
pmurias | moritz_: do you/evalbot have an up to date STD | 12:57 | |
mberends | pmurias: I'm trying to convert viv ast output to C structs. the yaml loader for that is almost working. | 13:07 | |
pmurias | mberends: what for? | 13:09 | |
mberends | ah, that's a sekrit ;-) | ||
pmurias | i won't tell anyone ;) | 13:10 | |
mberends | 'course, if i kill you after i tell you ;) | 13:11 | |
suffice to say that if it works, it will be -Ofun for us, and if it fails, I don't want to have wasted the #perl6 community's time | 13:13 | ||
13:18
beggars left
|
|||
pmurias | mberends: if you don't tell us what it is we will just waste our time trying to figure it out | 13:22 | |
mberends | pmurias: :-) :-) | ||
pmurias | loading the ast into parrot, using it for syntax highlight in vim or writing a interpreter like sprixel are my current guesses | 13:25 | |
mberends | pmurias: good guesses. now you can stop wasting more time on it :) | 13:27 | |
pmurias | mberends: which one is correct? | ||
mberends | pmurias: aw, you're too young to die, and we need your company ;) | 13:28 | |
13:34
colomon left
|
|||
pmurias | moritz_: did you remove by account at timtowtdi.org? | 13:50 | |
moritz_ | pmurias: the server was replaced a few months ago | 13:54 | |
pmurias: I can give you a new one if you need it | 13:55 | ||
afk | |||
pmurias | a new one would be nice for checking if the STD just behaves strangly on my box | 13:56 | |
14:03
fridim left
14:19
Baggio_ joined
|
|||
hejki | can i somehow compile perl6 code into a runnable binary? :) | 14:21 | |
14:21
Baggio_ left
|
|||
hejki | solving euler problems with rakudo seems to take aeons :P | 14:22 | |
14:22
Baggio_ joined
14:23
colomon joined
|
|||
colomon | hejki: Pretty sure there's no way to make a binary from a perl6 program yet. At least, not if your goal is to make it faster. | 14:44 | |
Think of it as an opportunity to work on your algorithm optimization skills for project Euler... | |||
slavik | afaik, parrat == java for dynamic languages | 14:46 | |
pmurias | slavik: jvm? | ||
slavik | parrot* | ||
pmyes | |||
jvm would be a better term | |||
hejki | colomon: heh :P | 14:47 | |
slavik | I use 'java' interchangeably :( | ||
14:47
lmc joined
|
|||
slavik | I think I like about jvm is ability to limit how much memory it can take up and also JMX :) | 14:48 | |
pmurias | JMX? | ||
colomon | hejki: you're lucky if it's just running slow. I think every math program I've written in perl 6 in the last month has starting getting bus errors as soon as I cranked up the number of calculations to anywhere near actually being useful. | 14:50 | |
slavik | pmurias: Java Management eXtensions | 14:52 | |
pmurias: you can connect to the JVM remotely and see what the heap size/usage is and such | |||
pmurias: and if you are running a proper application server that has JDBC facilities, you can also pull data regarding database connections, like how many are active, how many used, how many connections have been made, etc. | 14:53 | ||
same with JMS (Java Messaging Service) | |||
hejki | colomon: :)) | ||
wonder how long it'll take to make it actually usable :) | 14:55 | ||
colomon | hejki: my impression is there are just one or two bugs like this, but tracking them down is really hard. | 14:56 | |
hejki | :o | 14:57 | |
14:59
colomon_ joined,
colomon left,
colomon_ is now known as colomon
15:02
Baggio_ left,
pmurias left
15:03
pmurias joined
|
|||
hejki | would be neat to be able to: for 1..10 X $a..20 -> $a, $b { ... } to have some dependency between the loop variables :) | 15:04 | |
15:10
colomon left
15:20
lmc_ joined
15:22
zaslon left,
pointme left,
mubot left,
pointme joined,
mubot joined,
zaslon joined
|
|||
moritz_ | if you want that kind of control, just use two nested loops | 15:25 | |
hejki | rakudo: my $str = "foobar"; say $str.reverse;' | 15:26 | |
p6eval | rakudo 7ef386: Syntax error at line 2, near "'"in Main (file <unknown>, line <unknown>) | ||
hejki | zomg.. extra ' :> | ||
rakudo: my $str = "foobar"; say $str.reverse; | |||
p6eval | rakudo 7ef386: foobar | ||
hejki | wot | ||
15:27
Baggio_ joined
|
|||
mberends | hejki: try .flip | 15:27 | |
moritz_ | rakudo: say "foobar".flip | ||
p6eval | rakudo 7ef386: raboof | ||
moritz_ | reverse just reverses lists | ||
and views "foobar" as a one item list | 15:28 | ||
15:28
hanekomu_ left
15:32
c9s joined
15:33
lmc left
|
|||
hejki | ahh ty :> | 15:34 | |
and another one, is there something like cmpthese or timethese ? | 15:36 | ||
moritz_ | pointme: benchmark | 15:37 | |
pointme | perlpilot's benchmark is at github.com/perlpilot/benchmark/ | ||
moritz_ | hejki: as a module, yes | 15:38 | |
15:46
Psyche^ joined
|
|||
slavik | pmurias: JMX is neat stuff | 15:49 | |
15:51
Patterner left,
Psyche^ is now known as Patterner
|
|||
hejki | i guess i can use bash's time for comparison :) | 15:53 | |
mberends | hejki: otherwise make your own stopwatch: time() returns fractional seconds too | 15:55 | |
15:57
colomon_ joined,
colomon_ is now known as colomon
|
|||
moritz_ | rakudo: say time(), ' ', time() | 15:59 | |
p6eval | rakudo 7ef386: 1260719334.62132 1260719334.62142 | ||
pugs_svn | r29338 | pmichaud++ | [perl6advent]: Another potential topic idea. | 16:03 | |
colomon | I've found p6 programs so slow that the command line time is fine for timing them. :) | ||
hejki: if you really wanted to do something like 1..10 X $a .. 20, you could right your own version of X which took a code block as the second argument, so you could do something like 1 .. 10 X { $^a .. 20 }. Don't think it would be too hard... | 16:04 | ||
hejki | :) | ||
16:05
pmurias left
|
|||
moritz_ | rakudo: multi sub infix:<X>(@a, Callable $b) { gather for @a -> $a { take $_ for $b($a) } }; .say for 1..4 X { $^a..5 } | 16:06 | |
p6eval | rakudo 7ef386: push_pmc() not implemented in class 'Sub'in Main (file <unknown>, line <unknown>) | ||
moritz_ | that means that infix:<X> is not overloadable yet :/ | ||
colomon | Oh yeah, it's in List.pir. | 16:07 | |
maybe in ng? | |||
moritz_ | I don't think ng has X yet | ||
colomon | (change ranges the serieses) | ||
but you'd be implementing it, all ng would have to have is X in the grammar. | |||
moritz_ | it's not that easy | 16:08 | |
colomon | (which it might not have, but ought to be easy to add, I think.) | ||
moritz_ | not that infix:<X> is assoc<list> | ||
s/not/note/ | |||
so you need to retrieve an arbitrary long list of lists | |||
and I don't think you can do that in Perl 6 signature in ng yet | |||
need slices for that one | 16:09 | ||
colomon | actually, problem would be that @a would kill ng dead. | ||
pmichaud | one can always do $a | ||
(as a workaround) | |||
colomon | errr... we're being stupid. in rakudo with a different operator name? | ||
pmichaud: \o | 16:10 | ||
moritz_ | rakudo: multi sub infix:<Y>(@a, Callable $b) { gather for @a -> $a { take $_ for $b($a) } }; .say for (1..4) Y { $^a..5 } | ||
p6eval | rakudo 7ef386: 12345234534545 | ||
colomon | rakudo: multi sub infix:<Y>(@a, Callable $b) { gather for @a -> $a { take $_ for $b($a) } }; .say for 1..4 Y { $^a..5 } | ||
p6eval | rakudo 7ef386: No applicable candidates found to dispatch to for 'infix:Y'in Main (file <unknown>, line <unknown>) | ||
colomon | moritz_++ | ||
16:11
Baggio_ left
16:13
zloyrusskiy joined
|
|||
pugs_svn | r29339 | colomon++ | [perl6advent] More detail on plans. | 16:17 | |
16:20
nihiliad joined
|
|||
moritz_ | colomon: do you have code for mandelbrot sets in Perl 6 already? | 16:25 | |
colomon | yes | ||
moritz_ | cool | ||
colomon | wrote it last night. | ||
moritz_ | can it actually produce a decent picture without segfaulting first? :-) | ||
colomon | no | ||
:) | |||
41 x 41 works, 81 x 81 bus errors early on. | |||
moritz_ | what do you emit? ASCII art? or SVG? | 16:26 | |
colomon | I was thinking I might try to use it as a testbed to track down the damned segfault. | ||
PBM file. | |||
lisppaste3 | colomon pasted "mandelbrot in p6" at paste.lisp.org/display/92029 | 16:27 | |
colomon | It displays it rotated 90 degrees so it looks like a snowman for the holidays. | 16:28 | |
moritz_ checks out master to run it | |||
colomon | if you took out the the (' ') in the join, you could use it for 0s and 1s ascii art, I guess. :) | 16:30 | |
but anyway, it segfaults pretty darned reliably, so with any luck it can help track down the darned thing... | 16:31 | ||
(Though you need to crank up $height and $width to get the segfaults.) | |||
colomon is recompiling master with debugging turned on | 16:36 | ||
16:38
zloyrusskiy left
|
|||
moritz_ | do all odd values work as width/height? | 16:41 | |
colomon | should | ||
It needs to be odd to get the symmetry right. | |||
Actually, I guess the height doesn't have to be odd, strictly speaking, but the code is designed for square pictures, so width should really equal height. | 16:42 | ||
moritz_ | I have a greyscale version that emits pmm files :-) | ||
but segfaults for 41x41 | 16:43 | ||
colomon | greyscale based on the number of iterations before exiting? | ||
moritz_ | yes | ||
colomon | nice. | ||
lisppaste3 | moritz_ annotated #92029 "greyscale version" at paste.lisp.org/display/92029#1 | 16:45 | |
colomon | it would be pretty easy to make it do color, too. I was trying to keep it straightforward.... hmmm.... | ||
moritz_ | black/white is fine too | 16:46 | |
16:46
payload joined
|
|||
moritz_ | I just felt like playing with it :-) | 16:46 | |
colomon | actually, it should be white/black, now that I think of it. | ||
:) | 16:47 | ||
Going to work up to mandel being the snowman operator.... ;) | |||
moritz_ | :-) | ||
making the output colored is as simple as replacing .map({ $_ xx 3 }) with a function that returns RGB values for $_ | 16:48 | ||
colomon | yes. and I have a set of nice colors sitting around on my hard drive somewhere, from 1991 or so. :) | 16:49 | |
I should probably steal the $max_iterations thing, at least. | 16:50 | ||
moritz_ | put it in a github repo, that'll make it easier to play with it asynchronously | 16:51 | |
colomon | I desperately wanted to use the series operator instead of subdivide, but it seems like all the operations more complicated than N1 ... N2 are broken in master (and non-existent in ng). | ||
github, good idea, one minute. | |||
moritz_ | rakudo: say 1 ... *+4, 25 | 16:52 | |
p6eval | rakudo 7ef386: 15913172125 | ||
colomon | rakudo: say 1, 2, 3 ... 25 | ||
p6eval | rakudo 7ef386: Multiple Dispatch: No suitable candidate found for 'cmp', with signature 'PP->I'in Main (file <unknown>, line <unknown>) | ||
16:54
rgrau left
|
|||
colomon | github.com/colomon/mandelbrot | 16:56 | |
16:57
tarski joined
|
|||
colomon | I vote we keep mandelbrot.pl black and white (well, white and black) and start up a separate script for a color version. | 16:59 | |
moritz_ doesn't see how working series operators could simplfy or replace subdivided() | 17:02 | ||
17:09
colomon left
17:20
hanekomu_ joined
17:31
colomon_ joined,
colomon_ is now known as colomon
|
|||
colomon | back again | 17:31 | |
17:37
zloyrusskiy joined
|
|||
moritz_ | there and back again, a colomon's tale :-) | 17:45 | |
17:46
envi^home left
|
|||
moritz_ | colomon: pushed the mandelbrot-colored.pl script | 17:51 | |
actually it's still greyscale atm | |||
17:54
zloyrusskiy left
17:56
zloyrusskiy joined
18:00
jferrero joined
18:01
abra left
18:02
silug joined
18:14
abra joined
18:16
orafu left,
orafu joined
|
|||
colomon | moritz_: let me poke through my old C++ source code... | 18:21 | |
> git pull | 18:23 | ||
"You asked me to pull without telling me which branch you | |||
want to merge with, and 'branch.master.merge' in | |||
your configuration file does not tell me either. " | |||
any ideas what that is? | |||
18:23
lmc_ left
18:24
lmc_ joined
|
|||
moritz_ | branch "master"] remote = origin merge = refs/heads/master | 18:24 | |
oops | |||
[branch "master"] | 18:25 | ||
remote = origin | |||
merge = refs/heads/master | |||
colomon: add that to your .git/config file | |||
18:25
colomon left
18:27
payload left
18:36
colomon joined
18:37
justatheory joined
|
|||
colomon | that did it. moritz_++ | 18:39 | |
moritz_ finds that behaviour from git LTA | 18:41 | ||
colomon agrees with moritz_. | |||
will have full color in a couple of minutes here. | 18:42 | ||
diakopter | re: deciding yesterday whether or not to enable an interpreter mode, I think I decided that compiling every time is better; yes, the startup time of the executable will be higher than /usr/bin/perl, but... the rtcg (run time code generation) capabilities (string eval) are worth it. | 18:47 | |
arnsholt | Which synopsis talks about the semantics of use? | ||
moritz_ | arnsholt: probably S11 | 18:49 | |
18:50
abra left
|
|||
arnsholt | Ah, right. Thanks | 18:51 | |
18:52
am0c joined
18:53
astrojp joined
18:54
jferrero left
|
|||
colomon | moritz_: I added a "+ 1" to the code and got a bus error. :( | 18:55 | |
moritz_ | :( | ||
colomon | another couple of minutes, i'll be happy with the colors, and then try to look at capturing the segfault. | 18:57 | |
mberends | diakopter: I think we're used to higher startup times anyway, taking it philosophically as the price to pay for a more awesome language ;) | 18:59 | |
colomon | moritz_: Now in full color, but you can only get the tiniest picture to work. | 19:00 | |
moritz_ | colomon: just push it nonetheless | 19:02 | |
colomon | already done, I think. | ||
moritz_ | pull | ||
ed | 19:03 | ||
woot | |||
diakopter | mberends: yeah, but it will only ever get slower; this is the baseline I'm working with. | ||
is dalek not announcing? | |||
moritz_ | not announcing what? | 19:04 | |
diakopter | commits | ||
I was curious | |||
colomon | we're working on a different repo. | ||
diakopter | I didn't see anything from it for a while | ||
colomon | people haven't been checking in very much.... | 19:05 | |
moritz_ | colomon: I managed 41x41 with color | ||
colomon | \o/ | ||
can you post it somewhere, just so I can see? :) | |||
I think I got those colors from the fractint source, circa 1991. | 19:06 | ||
moritz_ | moritz.faui2k3.org/tmp/color.pmm | ||
19:06
rgrau joined
|
|||
colomon | \o/ | 19:07 | |
Now all we need to do is get it up to about 801 x 801, and then make it fast... ;) | |||
moritz_ | 71 also works | 19:09 | |
colomon | oooo | ||
that's actually kind of interesting. I'd assumed it was the raw size that was causing the trouble. | |||
moritz_ | it's trouble for some sizes, but not for others | 19:11 | |
colomon | trying 111 on the black and white right now. | 19:13 | |
moritz_ | 101 segfaulted after 82 lines | 19:16 | |
colomon | 111 still running.... | 19:20 | |
diakopter | hmm; opensuse 11.2 seems not to come with perl | 19:26 | |
moritz_ finds that quite surprising | 19:27 | ||
zloyrusskiy | opensuse 11.2 comes with Perl for default | ||
i'm using it | |||
diakopter | oh, hm | ||
zloyrusskiy | DVD version - 100% | ||
diakopter | I did the network install, and it downloaded 2GB worth | ||
zloyrusskiy | apparmor - using Perl | ||
and opensuse have apparmor in all distributions i think | 19:28 | ||
diakopter | but then when I did yast2 -i perl it downloaded 7MB (for perl)... I expected it to say something like "perl already latest version" | ||
I mean, I didn't try it beforehand :) | |||
I installed an opensuse 11.2 VM just so I could have MonoDevelop 2.2 RC | 19:30 | ||
19:32
lmc_ left
19:34
justatheory left,
lmc_ joined
|
|||
moritz_ | I've compiled the mandelbrot script down to pbc, and that too keeps segfaulting | 19:38 | |
19:44
rgrau` joined
19:45
rgrau` left,
payload joined
19:57
colomon left
20:24
meppl left
20:30
colomon joined
|
|||
colomon | moritz_: 111x111 w&b worked. | 20:30 | |
and my little guy just got upset because I scrolled Camelia off the screen. :) | 20:32 | ||
20:37
zloyrusskiy left
|
|||
moritz_ | :-) | 20:37 | |
20:45
pmurias joined
|
|||
pugs_svn | r29340 | pmurias++ | [viv] mark code passed in -e as utf8 | 20:57 | |
pmurias | nothingmuch++ # his blog post about prove --state proved very usefull | ||
pugs_svn | r29341 | pmurias++ | [mildew] $foo.^bar(...) | ||
r29342 | pmurias++ | [mildew] | |||
r29342 | fix eval in the js backend | |||
r29342 | CATCH {...} and CONTROL {...} | |||
r29342 | = calls fetch | |||
r29342 | handling of escapes in strings | |||
r29342 | &YYY helper sub | |||
r29342 | test are order according to the one which failed last | |||
diakopter | # interesting www.itu.dk/~sestoft/rtcg/rtcg-nwpt2005.pdf | 21:11 | |
arnsholt | diakopter: Indeed | 21:14 | |
21:15
colomon left
|
|||
arnsholt | I like the second table on page 6 | 21:15 | |
The JITed code is faster than the C code. Which just goes to show that a good JIT compiler may very well outperform hand-written code | 21:16 | ||
(even though the example in that case is rather trivial) | |||
21:18
Guest27330 left
|
|||
pmurias | having 4 slides per page is a really horrible formating | 21:18 | |
arnsholt | True. It always takes time to figure out which way they flow | 21:19 | |
21:21
lmc__ joined
21:23
mberends left
21:28
justatheory joined,
colomon joined
21:32
abra joined
21:35
lmc_ left,
justatheory left,
jferrero joined
21:36
zloyrusskiy joined
21:41
lmc__ left,
lmc__ joined
21:43
nihiliad left
21:45
charsbar_ joined
21:47
arnsholt left,
Maddingue left,
rhr left,
frettled left,
charsbar left,
frew left,
zibri left,
jrockway left,
ilbot2 left,
sjohnson left,
PerlJam left,
zostay left,
meteorswarm left,
IRSeekBot left,
revdiablo left,
simcop2387 left,
arnsholt joined
21:48
simcop2387 joined,
Maddingue joined
21:49
frew joined,
zostay joined,
jrockway joined
21:50
revdiablo joined,
slbkbs joined
|
|||
lisppaste3 | colomon pasted "mandelbrot (221) crash backtrace" at paste.lisp.org/display/92048 | 21:51 | |
21:51
ilbot2 joined
21:53
zibri joined,
zibri left,
jrockway left,
zibri joined,
jrockway joined,
charsbar joined,
sjohnson joined,
zibri_ joined,
jrockway_ joined
21:54
jrockway left,
charsbar left
21:55
IRSeekBot joined
21:59
payload left,
payload1 joined,
zibri left,
zibri_ is now known as zibri
22:03
nihiliad joined
22:09
lmc joined
22:16
_Jedai_3 joined
22:18
payload1 left
22:19
|Jedai| left,
wayland76 joined
22:21
lmc__ left
22:27
rhr joined
22:29
_jaldhar joined
22:33
justatheory joined
|
|||
moritz_ | hugme: tweet rakudoperl Perl 6 advent calendar day 13: Junctions perl6advent.wordpress.com/2009/12/1...junctions/ | 22:34 | |
hugme hugs moritz_; tweet delivered | |||
22:40
arthur-_ left,
justatheory left
22:41
colomon left
22:42
p6eval left
22:43
jaldhar left
22:46
Alias left
22:47
p6eval joined,
lmc left,
lmc joined
22:48
tylerni7 left,
lisppaste3 left
22:49
lisppaste3 joined
22:50
lmc left,
Astoria` left,
tylerni7 joined
22:53
tylerni8 joined,
tylerni8 left
22:54
iblechbot left
|
|||
moritz_ | ouch, after 10 minutes of processing a log file I get | 22:54 | |
duplicate named argument in call | |||
in Main (file <unknown>, line <unknown>) | |||
no idea what that call was, which file, which line | |||
nor why it didn't fail before | 22:55 | ||
23:02
Su-Shee left
|
|||
diakopter | reproducible? | 23:05 | |
moritz_ | rakudo: say 1 cmp 1/1 | ||
p6eval | rakudo 7ef386: 0 | ||
moritz_ | diakopter: yes, found it | ||
diakopter | cool | ||
moritz_ | diakopter: and now I'm hanging on the next error with now source location | ||
Multiple Dispatch: No suitable candidate found for 'cmp', with signature 'PP->I' | |||
in Main (file <unknown>, line <unknown>) | |||
diakopter | rakudo or ng? | 23:06 | |
moritz_ | rakudo | ||
my $min_y = ([min] @.values.map: { [min] @($_) }) min 0; | 23:07 | ||
I see why [min] would use cmp | |||
but I need to sleep now. Maybe I can track it down tomorrow. | |||
diakopter | 'nite | 23:12 | |
pugs_svn | r29343 | pmurias++ | [mildew] fix '\'', multis | 23:24 | |
23:27
yahooooo left,
zloyrusskiy left
23:33
Wolfman2000 left
23:42
hanekomu_ left
23:43
PacoLinux left
23:53
hanekomu_ joined
23:56
hanekomu_ left
|