找人运行程序

IamI

今天不能碰电脑，但是奥赛题一题为求答案需要程序。找人运行以下ruby脚本
运行完成请将s.txt内容贴出。如出错请说明，谢谢，改日酬谢

脚本：

1. $a=$b=$c=$d=0
   
2. def f(x)
   
3. return $a if x==1
   
4. return $b if x==2
   
5. return $c if x==3
   
6. return $d if x==4
   
7. nil
   
8. end
   
9. s=""
   
10. count=0
    
11. for $a in 1..4
    
12. for $b in 1..4
    
13. for $c in 1..4
    
14. for $d in 1..4
    
15. if f(f(1))==f(1) and f(f(2))==f(2) and f(f(3))==f(3) and f(f(4)) == f(4)
    
16. count+=1
    
17. s+= "#{$a} #{$b} #{$c} #{$d} \n"
    
18. end
    
19. end
    
20. end
    
21. end
    
22. end
    
23. 
    
24. print s,count
    
25. File.open("s.txt","w"){|f| f.write(s);f.write(count)}

复制代码

小角色

1 1 1 1
1 1 1 4
1 1 3 1
1 1 3 3
1 1 3 4
1 1 4 4
1 2 1 1
1 2 1 2
1 2 1 4
1 2 2 1
1 2 2 2
1 2 2 4
1 2 3 1
1 2 3 2
1 2 3 3
1 2 3 4
1 2 4 4
1 3 3 1
1 3 3 3
1 3 3 4
1 4 1 4
1 4 3 4
1 4 4 4
2 2 2 2
2 2 2 4
2 2 3 2
2 2 3 3
2 2 3 4
2 2 4 4
3 2 3 2
3 2 3 3
3 2 3 4
3 3 3 3
3 3 3 4
3 4 3 4
4 2 2 4
4 2 3 4
4 2 4 4
4 3 3 4
4 4 3 4
4 4 4 4
41

话说这是什么。。

IamI

1 1 1 1
1 1 1 4
1 1 3 1
1 1 3 3
1 1 3 4
1 1 4 4
1 2 1 1
1 2 1 2
1 2 1 4
1 2 2 1
1 2 2 2
1 ...
小角色 发表于 2010-10-14 19:08

狗血竞赛题，果然41种...

懒散王

不明真相的撸过了（抠鼻

IamI

好吧丢题：A={1，2，3，4}；f为一a到a的函数，求對於任意x皆成立f（f（x））=f（x）的函数种数，x属于a

做游戏的新手

全排列……话说16号考试对吧……

zhuzhao

我们就这样缓缓走过曾经的岁月。
流年在我们脚下化作青烟。
见证风雨，见证哀伤，见证离别。
是否还会爱上这个心痛的地方呢。

光的圆周率

Oh S**t q求算法高数基础家教