Perl 语言缺失的语言特性

zhlong8

回复 9# 104359176


    Perl 的 for (LIST) {} 循环循环变量相当于别名，对循环变量赋值就是直接修改数组，包括 values    $_ *= 2 for values %hash; 就是 %hash 里的值都 x2 在保存到原来的位置

104359176

回复 11# zhlong8

是的，利用这个特性可以简化这个模型，但通过函数的副作用来改变一个变量是一种危险的行为，因为这个特性不是所有的语言都有，尤其在函数式编程中，这种特性被认为是错误的。我不想把代码构筑在一些和语言相关的特性上，因为这些特性可能是一个设计错误。


   

zhlong8

回复 12# 104359176


    既然你懂lisp就应该明白抽象出来个 forall 这个概念就足够了，每种语言怎么实现和你的任务并没什么关系。

ttcn_cu

怎么遍历就怎么存啊，这是任何函数编程的基本功

#!perl
use strict;
use warnings;
use Data:umper;
my $Array = [
    [1, 2, 3],
    [ [4,5,6], [7,8,9]],
    [ [ [ 1,2,3],[4,5,6] ], [ [7,8,9], [1,2,3]]],
];

my $Sub_Traverse;
my $Sub_Oparator=sub{
    return $_++;

};


$Sub_Traverse=sub{
    my $Arg_ = shift;
    my $Oper_ = shift;
    my $R_=[];
    for (@$Arg_){
        if (ref $_ eq 'ARRAY') {
            push $R_,$Sub_Traverse->($_,$Oper_);
        }
        else {
            $Oper_->($_);
            push $R_,$_;
   
        }
    }
    return $R_;
};

print Dumper $Sub_Traverse->($Array,$Sub_Oparator);