没有中间变量。如何实现两个数字数组的差集。

pitonas

my @a = 0 .. 10;
my @b = ( 1, 3, 5, 7, 9 );
差集: @a 差集 @b == ( 0, 2, 4, 6, 8, 10 )

没有中间模块
没有中间变量。
如何实现两个数字数组的差集。

yinyuemi

回复 1# pitonas

1. perl -MData::Dumper  -le 'use 5.1.0;@a=(1,3,5,7,10); @all=(0..10); $s =[grep{not $_~~@a}@all]; print Dumper $s'
   
2. $VAR1 = [
   
3.           0,
   
4.           2,
   
5.           4,
   
6.           6,
   
7.           8,
   
8.           9
   
9.         ];
   

复制代码

pitonas

{:2_170:}  我震惊了。


回复 2# yinyuemi


   

jason680

回复 1# pitonas

use Array::Utils module with array_diff function

http://search.cpan.org/~zmij/Array-Utils-0.5/Utils.pm   


$ perl -le 'use Array::Utils ":all"; @a=(0..10);@b=(1,3,5,7,9);print join",",array_diff(@a,@b)'
0,2,4,6,8,10

   

pitonas

师傅
那没有中间变量。
{:2_175:} 但有中间模块

回复 4# jason680


   

jason680

回复 5# pitonas

Did you always walk to anywhere ...
   

How about this one that didn't have any variable
http://zh.wikipedia.org/zh-tw/Brainfuck

$ bf hello.bf
Hello World!

$ cat hello.bf
++++++++++[>+++++++>++++++++++>+++>+<<<<-]
>++.>+.+++++++..+++.>++.<<+++++++++++++++.
>.+++.------.--------.>+.>.

pitonas

{:2_172:} 师傅, just curious

回复 6# jason680


   

jason680

回复 3# pitonas

it have the internal variable ($_) ....
$s =[grep{not $_~~@a}@all]
   

rubyish

jason680 发表于 2014-04-14 12:24
回复 5# pitonas

1. ++++++++++[>+++++++>++++++++++>+++>+<<<<-]
   
2. >++.>+.+++++++..+++.>++.<<+++++++++++++++.
   
3. >.+++.------.--------.>+.>.

复制代码

Did you always walk to anywhere ...

这个有意思~

104359176

过程之间必须传递计算结果才能彼此合作，在Perl语言中，一些过程看似没有变量，实际上是写法上的精简，使用了默认的变量，函数式编程之所以没有中间变量，是因为每个表达式都会返回一个数据，另外的过程就会使用这个返回值继续运算，这种写法不是精简写法，就是这么写的，所以函数式语言中大部分的列表运算是没有变量的。就好象每个表达式前面都有一个隐藏的 ‘map' or 'grep'