On Sat Jan 10 12:19:38 2009, richardh wrote: > Getting a wierd segmentation fault with the following program (also > attached). > > I am using rakudo from parrot 35286 > > When I run the program below, it runs and I get almost the right > answer > (but uninitialised values and > incorrect output). > > But when I comment out the 'say' line and uncomment the line below it, > I > get a segmentation fault. > > #!/usr/local/bin/perl6 > > # Solution to Advanced Event 2, 2008 scripting games, > http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/aevent2.mspx > > use v6; > my %players; > my $scores = open('./skaters.txt', :r) or die $!; > my $name; > my @list; > > for =$scores { > ($name,@list) = .split(/\,/); > @list .=sort; > %players{$name} = ([+] @list[2..6]) / 5; > }; > > my @ranking = %players.sort: { .value }; > for <Gold Silver Bronze> -> $m { > given pop @ranking { > say "$m Medal: " ~ %players{$_} ~ ', ' ~ $_; > # say "$m Medal: $_"; > }; > }; >
I don't get a segfault; I'm getting: Unable to open filehandle current instr.: 'open' pc -7966446 ((unknown file):-1) called from Sub 'open' pc 3939 (src/classes/List.pir:188) called from Sub 'open' pc 18003 (src/builtins/io.pir:78) called from Sub '_block14' pc 95 (EVAL_21:52) called from Sub '!UNIT_START' pc 16736 (src/builtins/guts.pir:298) called from Sub 'parrot;PCT;HLLCompiler;eval' pc 950 (src/PCT/HLLCompiler.pir:527) called from Sub 'parrot;PCT;HLLCompiler;evalfiles' pc 1275 (src/PCT/HLLCompiler.pir:688) called from Sub 'parrot;PCT;HLLCompiler;command_line' pc 1456 (src/PCT/HLLCompiler.pir:778) called from Sub 'parrot;Perl6;Compiler;main' pc 20314 (perl6.pir:158) this with parrot r35356. Regards. -- Will "Coke" Coleda
