Perl PDL：搜索向量是在数组中还是在矩阵中

作者: 老夫的少女心
发布时间: 2024-09-19 12:48:41 (16天前)
转自：

3 条回复

0#
回复此人
一生流水 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 免责声明：我对PDL一无所知。我已经阅读了这个消息来源。 </p> <P> 有一个功能 <code> PDL::all() </code> 您可以与重载的比较运算符一起使用 <code> == </code> 。 </p> <pre> <code> use PDL; my $foo = pdl(1,2,3); my $bar = pdl(4,5,6); my $qrr = pdl(1,2,3); print "OK 1" if PDL::all( $foo == $bar ); print "OK 2" if PDL::all( $foo == $qrr ); </code> </pre> <P> 我还在寻找文档。 </p> </DIV>

编辑
1#
回复此人
苞米地里的蒙面妖 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您可以使用 <a href="https://metacpan.org/pod/Test::PDL#eq_pdl" rel="nofollow noreferrer"> <code> eq_pdl </code> </A> 从 <a href="https://metacpan.org/pod/Test::PDL" rel="nofollow noreferrer"> <code> Test::PDL </code> </A> ： </p> <pre> <code> use PDL; use Test::PDL qw( eq_pdl ); my @toto; push(@toto, pdl(1,2,3)); push(@toto, pdl(4,5,6)); my $titi = pdl(4,5,6); print("OK\n") if (grep { eq_pdl( $_, $titi) } @toto); </code> </pre> <P> 的<strong> 产量 </强> ： </p> <pre> <code> OK </code> </pre> </DIV>

编辑

登录后才能参与评论