如何使用这个函数来计数？

Ager

如何使用这个函数来计数？

经过考虑，这个Perl问题还是发CU23吧……

1. 
   
2. sub foo {
   
3.         return sub {
   
4.                 state $count= 0;
   
5.                 return $count++;
   
6.           }
   
7. }
   

复制代码

这个foo函数已经定义好了。现在，如果是让你来写接下来的代码的话，你将如何使用（调用）这个foo函数，实现计数（比如最简单地打印……1、2、3、……）？

呵呵 ……

Ager

Sevk 发表于 2012-11-21 12:17
state $count= 0;
  say $count ;
  return $count++;

呵呵 ……  我是指：你会怎么来handle “foo”？

Ager

Sevk 发表于 2012-11-21 12:30
如果你用ruby就简单了 ,直接重新定义这个函数:

#原函数改名为 _foo
alias _foo foo

#重新定义foo :
sub foo {
        return sub {
                state $count= 0;
                say $count ;
                return $count++;
          }
}

这个嘛，不是我题目的意思唉 ……

题意若展开来说，有这样的要求：

第一，不允许改变foo的定义。

第二，foo只是一个Counter Making性质的函数，它本身不带有诸如say这样的谓动行为。

想say的话，必须找到一种方式来handle foo，形如：


say Φ(foo);

这样的；

如要迭代，则就是形如：

Θ(say Φ(foo));

这样的，呵呵 ……

zhlong8

每次调用 foo 都生成一个独立的函数引用，这个函数引用相当于一个计数器
$counter = foo;

while (1) {
    say $counter->();
    sleep 1;
}

yybmsrs

lz举这个闭包例子有何用意呢？

Ager

zhlong8 发表于 2012-11-21 13:29
每次调用 foo 都生成一个独立的函数引用，这个函数引用相当于一个计数器
$counter = foo;

while (1) {
    say $counter->();
    sleep 1;
}

如果仅仅用foo呢？