On Sun Aug 01 19:41:08 2010, shirtless wrote:
> Hi Rakudo,
>
> I tested this on rakudo star on Windows 7, but will test it on linux
> later as well.
>
>
> C:\Users\tom\Code\p6-imap>perl6
>
> Doing this will return the methods as expected:
>
> > @array.^methods;
> new splice perl delete at_pos munch shift map hash fmt flat new rotate
> pop Captu
> re elems Str list exists push unshift batch ACCEPTS eager at_pos sort
> iterator B
> ool Num perl of Str Int list item Num elems fmt lines ucfirst samecase
> log10 tan
> cos capitalize bytes fmt flip p5chop lc to-radians Numeric asinh
> acotan chr cot
> anh acotanh comb floor atan asech acos eval round chop tanh split
> match exp acos
> h words cotan atan2 lcfirst uc sec cis log substr from-radians sprintf
> trans sin
> pred acosec subst sinh cosech acosech abs chomp index ceiling trim
> asec trim-le
> ading unpolar trim-trailing sech ord rand truncate rindex sqrt asin
> atanh cosh c
> osec succ sign chars roots IO reverse keys uniq isa map classify kv
> min max flat
> pick first minmax does rotate join Numeric elems end reduce all Str
> postcircumf
> ix:<[ ]> postcircumfix:<{ }> list at_key pairs one ACCEPTS at_pos any
> sort Seq g
> rep none values can bless WHENCE WHERE notdef BUILDALL new Bool print
> say item
> WALK defined BUILD clone perl WHICH Capture CREATE PARROT
>
> Pipe that through unix sort and you'll see there are no duplicates.
>
> Until we introduce rakudo's .sort() function.
>
> new splice perl delete at_pos munch shift map hash fmt flat new rotate
> pop Captu
> re elems Str list exists push unshift batch ACCEPTS eager at_pos sort
> iterator B
> ool Num perl of Str Int list item Num elems fmt lines ucfirst samecase
> log10 tan
> cos capitalize bytes fmt flip p5chop lc to-radians Numeric asinh
> acotan chr cot
> anh acotanh comb floor atan asech acos eval round chop tanh split
> match exp acos
> h words cotan atan2 lcfirst uc sec cis log substr from-radians sprintf
> trans sin
> pred acosec subst sinh cosech acosech abs chomp index ceiling trim
> asec trim-le
> ading unpolar trim-trailing sech ord rand truncate rindex sqrt asin
> atanh cosh c
> osec succ sign chars roots IO reverse keys uniq isa map classify kv
> min max flat
> pick first minmax does rotate join Numeric elems end reduce all Str
> postcircumf
> ix:<[ ]> postcircumfix:<{ }> list at_key pairs one ACCEPTS at_pos any
> sort Seq g
> rep none values can bless WHENCE WHERE notdef BUILDALL new Bool print
> say item
> WALK defined BUILD clone perl WHICH Capture CREATE PARROT
>
> One see there are definitely dupes here, easier to see if you do:
>
> for @array.^methods.sort() -> $foo { say $foo; }
>
>
> Thanks,
> Tom (shirtless)
New failure mode:
09:12 < [Coke]> rakudo: my @a; say @a.^methods.sort();
09:12 <+p6eval> rakudo 7408d6: OUTPUT«No applicable candidates found to
dispatch to for 'Numeric'. Available candidates are::(Mu, Mu
%_) in method Numeric at src/gen/CORE.setting:607 in sub
infix:<==> at src/gen/CORE.setting:1992 in sub infix:<cmp> at
src/gen/CORE.setting:1035 in method sort …
--
Will "Coke" Coleda
