[悬赏4000积分]不使用迭代或递归创建一个数据发生器

q1208c

我是真不喜欢 LISP的一圈圈的 ().

更主要的, 我根本不知道LISP是用来做什么为主的语言.

climby

这个应该可以使用Perl的closure 特性来完成。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. sub counter {
   
5.     my $start = shift;
   
6.     return sub { $start++; };
   
7. }
   
8. 
   
9. my $counter_1 = counter(0);
   
10. my $counter_2 = counter(10);
    
11. 
    
12. print $counter_1->();   #0
    
13. print $counter_1->();   #1
    
14. print $counter_1->();   #2
    
15. 
    
16. print $counter_2->();   #10
    
17. print $counter_2->();   #11
    
18. print $counter_2->();   #12
    

复制代码

shijiang1130

来一个超时的

1. -module(add_myself).
   
2. -compile(export_all).
   
3. 
   
4. s()->
   
5.         receive
   
6.         after 1000 ->
   
7.         {_,S,_} = erlang:now(),
   
8.         io:format("~p~n",[S]),
   
9.         s()
   
10. end.
    
11.        

复制代码

MMMIX

回复 13# shijiang1130


    ErLang? 看起来好高端的样子...

ttcn_cu

climby 发表于 2014-06-19 11:22
这个应该可以使用Perl的closure 特性来完成。

+1 赞同

q1208c

回复 13# shijiang1130

兄弟, 你这是递归的.
   

104359176

回复 10# q1208c


    Lisp 是用来写代码的语言，如果你使用的一种语言，频繁的用到一种文法，但语言本身没有，那么你只能期待语言的开发者修改读取器，改变语法解析规则，修改一大堆的 C 代码来加上这个特性，但如果这个特性不是普遍需求的话，你只能日复一日的写着重复的代码。就好象 Perl 中的 given .. when 文法，语言诞生20多年后才加上。而为了增加面向对象的简洁写法，只能开发 Perl 6了。

Lisp 不存在这种情况，文法的抽象是由程序员完成的。就好象设计一个函数一样简单。

Lisp 也有问题，就是他的括号，这让太多人远离这门语言。就好象 Python 的缩进，Javascript 的词法作用域，Ruby 的速度，Lua 的简陋，C 的类型声明，Haskell 的变量，Java 的语法，这些问题，让人们失去了学习一门语言的兴趣。

104359176

回复 13# shijiang1130


    Erlang 学的不错啊，基本上看不懂了。

104359176

迭代的代码，就是这个效果：

1. #!perl
   
2. 
   
3. use 5.010;
   
4. 
   
5. sub count {
   
6.     state $count = 0;
   
7.     say $count++;
   
8.     count();
   
9. }
   
10. 
    
11. count();

复制代码

104359176

这个问题很无聊，没有任何应用价值。