FWIW, it works for cygwin under PDL-2.4.3:
$ perldl
perlDL shell v1.33
PDL comes with ABSOLUTELY NO WARRANTY. For details, see the file
'COPYING' in the PDL distribution. This is free software and you
are welcome to redistribute it under certain conditions, see
the same file for details.
ReadLines, NiceSlice, MultiLines enabled
Reading /home/chm/.perldlrc...
Found docs database /e/site/perl/lib/cygwin-thread-multi-64int/PDL/pdldoc.db
Type 'help' for online help
Type 'demo' for online demos
Loaded PDL v2.4.3 (supports bad values)
perldl> $a=pdl(1,2,3)
perldl> $b=pdl(3,4)
perldl> print setops($a,'AND',$b)
[3]
perldl> print setops($a,'XOR',$b)
[1 2 4]
perldl> print setops($a,'OR',$b)
[1 2 3 4]
perldl> p $PDL::VERSION
2.4.3
Doug Hunt wrote:
Hi:
I'm not sure what is going on with setops, but you could try:
print $a->append($b)->uniq
--Doug
[EMAIL PROTECTED]
Software Engineer III
UCAR - COSMIC, Tel. (303) 497-2611
On Thu, 24 Jan 2008, [EMAIL PROTECTED] wrote:
I think I'm missing something on setops:
perldl> $a=pdl(1,2,3)
perldl> $b=pdl(3,4)
perldl> print setops($a,'AND',$b)
[3]
perldl> print setops($a,'XOR',$b)
[1 2 4]
perldl> #Everything above makes sense to me
perldl> print setops($a,'OR',$b)
PDL: PDL::Ops::assgn(a,b): Parameter 'b'
PDL: Mismatched implicit thread dimension 0: should be 2, is 3
Caught at file (eval 297), line 4, pkg main
I'd expect
[1 2 3 4]
What am I missing? Is there another way to join two piddles without
duplicates?
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
