【讨论】关于函数重定义

5852

1. class Bitmap
   
2.   alias old_clear clear
   
3.   def clear
   
4.     old_clear
   
5.     GC.start
   
6.   end
   
7. end

复制代码

这段代码没有错，主要是按下F12重启动就会出现过深错误，求新算法。
注：用来解决AMTT  Advanced 1.05不时跳出问题

5852

附上新算法

1. 
   
2. class Bitmap
   
3.   if $times!="ok"
   
4.    alias old_clear clear
   
5.   end
   
6.   def clear
   
7.     old_clear
   
8.     GC.start
   
9.   end
   
10. end
    
11. $times="ok"
    

复制代码

有没有更好的算法

orzfly

1. class Bitmap
   
2.   unless method_defined? :old_clear
   
3.     alias old_clear clear
   
4.     def clear
   
5.       old_clear
   
6.       GC.start
   
7.     end
   
8.   end
   
9. end

复制代码