几个有意思的问题_第二弹

IamI

F12
rescue Reset
exit
搞定。

IamI

6是Bom，去掉前三个字符即可

Orz连贴系统悲剧了？连贴我有错......

蕾米莉亚·斯卡雷特

求质数:

1. t = Time.new
   
2. 
   
3. number = 1000
   
4. array = []
   
5. number.times do |i|
   
6.   array[i] = i % 2 == 0 ? false : true
   
7. end
   
8. pa = []
   
9. 
   
10. max = Math.sqrt(number)
    
11. 
    
12. 3.step(max, 2) do |n|
    
13.   if array[n]
    
14.     (2 * n).step(number, n) do |i|
    
15.       array[i] = false
    
16.     end
    
17.   end
    
18. end
    
19. 
    
20. array.each_index do |timers|
    
21.   pa << timers if array[timers]
    
22. end
    
23. 
    
24. p pa
    
25. 
    
26. p Time.new - t

复制代码

咱的渣电脑运行起来这个渣算法, 1.14秒
= = 很长~~

沙漠点灰

回复 DeathKing 的帖子

既然有人了，公布答案吧！
1.
$g ? exit: $g=0
2.
rray.send(:define_method,:max){self.sort[-1]}
3.
$abc = 0
alias $bcd $abc
$abc += 1
p $bcd == $abc  => true

4.DK对了!(....)

5.因为不支持浮点坐标,不管怎么都有误差
减少误差方法:
一:精灵类追加2个浮点变量记录"真坐标",误差大大减小
二:用数组保存移动路径,每移动1帧调用shift

6.这是IO的编码不兼容(晕,不大可能兼容吧,Ruby是UTF-8)，不多说

7.
(array.inject{|a,i|a.width*a.height>i.width*i.height ? a:i}).dispose

8.伪代码如下:
("1000".."9999").inject([]){|a,i|a<<i if 判断}
判断有点长，就不写了(比如包含"2","3",不包括"23","32",与[6,7,8,9]无交集等等)，不过可以1行搞定

9.压轴..？还是可以1行搞定:

(3..1000).inject([2]){|a,i|a.all?{|b|i%b!=0}?a<<i:a}

共计迭代15620次

把步长设为2(偶数Pass掉), i大于根号b时直接返回true(为什么...?自己想)等方法可以把迭代次数降到12000次左右，

(3..1000).inject([2]){|a,i|a.all?{|b|i%b!=0}?a<<i:a}
呵呵，Ruby果然很强

p.s 主要是复习了一下Ruby参考手册(学的时候看不懂,现在终于懂了)，发现 inject太强了

蕾米莉亚·斯卡雷特

求解 inject 的用法~~

沙漠点灰

回复 蕾米莉亚·斯卡雷特 的帖子

格式   范围.inject(默认值){|a,b|......}
若有默认值，把默认值赋给a,把范围的第一个值赋给b
......是指代码块,每迭代一次会有个返回值(Ruby的特殊之处,方法都有返回值),把这个
返回值赋给a,把范围的第二个值赋给b........一次类推，最后返回a

若没有默认值，把范围的第一个值赋给a,把范围的第二个值赋给b.执行代码块,返回值
赋给a.把范围的第三个值赋给b........一次类推，最后返回a

IamI

第一题另解XD，RM在按下F12时会在主轴上创建Reset类型并抛出，抓住并重置即可

1. rescue Errno::ENOENT
   
2.   # 补充 Errno::ENOENT 以外错误
   
3.   # 无法打开文件的情况下、显示信息后结束
   
4.   filename = $!.message.sub("No such file or directory - ", "")
   
5.   print("找不到文件 #{filename}。 ")
   
6. rescue Reset
   
7.   exit
   
8. end
   

复制代码

第六题代码示例

1. s = File.open("1.txt").read
   
2. s[0,3] = "" if s[0] == 239
   
3. eval(s)

复制代码

BOM是UTF-8的标志，长度为3个字符，将之删去代码即可运行。

苏小脉

1、
在所有脚本之前加一句：

1. $!&&exit

复制代码

这是图省事了，正途还是应该去捕获 `Reset' 异常。

2、

1. class Array
   
2.   def max
   
3.     inject(self[0]) { |max, elem| elem > max ? elem : max }
   
4.   end
   
5. end

复制代码

3、
你举的两个例子性质不一样——前者的 `actor.hp -= damage' 是 `actor.hp = actor.hp -

damage' 的语法糖，其中有调用 `actor' 这个对象的 `hp=' 实例方法和 actor.hp 的 `-' 实

例方法的过程，但 `actor' 这个引用的值没有变。后者的 `b -= a' 是 `b = b - a'，直接改

变了 `b' 这个引用的值，而并不是调用了 `xxx=' 这样的 setter。和第二个例子中的运算对称

的应该是 `actor -= damage'，而这种调用方式同样会改变 `actor' 这个引用本身，除非 `-'

方法返回 self。不太清楚你是纯粹想模拟后者的指针反引用机制还是前者的成员变异机制。

4、
前者在当前 Binding 下名为 Foo 的常量已定义时返回 "constant"，否则返回 nil；后者在

当前 Binding 下名为 Foo 的方法已定义时返回 "method"，否则返回 nil。

5、
想继续用浮点运算的话可以通过 Float#round 四舍五入。熊猫那种是强制类型转换，在大部分语言中是直接抛弃小数部分的。

6、

1. eval "nil.send '66'"

复制代码

如果是 RMXP 的环境，顶层 self 默认已经是 nil。

7、

1. class Bitmap
   
2.   def area
   
3.     width * height
   
4.   end
   
5. end
   
6. 
   
7. arr = [Bitmap.new(1,1), Bitmap.new(2,1), Bitmap.new(3,4),Bitmap.new(5,2)]
   
8. 
   
9. 
   
10. p arr
    
11. 
    
12. arr.max { |u, v| u.area <=> v.area }.dispose
    
13. 
    
14. # 位图释放分布
    
15. p arr.collect { |u| u.disposed? }

复制代码

8、
有泛用的排列算法，不过鉴于这里排列长度仅仅为 4，还是套四个循环简单：

1. arr = []
   
2. 
   
3. def get_next_possible_digits(*digits)
   
4.   result, absence = [ ], [ true ] * 6
   
5.   digits.each { |digit| absence[digit] = false }
   
6.   free = 2 * ((absence[2] ? 0 : 1) + (absence[3] ? 0 : 1)) >= digits.size
   
7.   [0, 1, 4, 5].each { |e| result << e if absence[e] } if free
   
8.   result << 2 if absence[2] and digits[-1] != 3
   
9.   result << 3 if absence[3] and digits[-1] != 2
   
10.   result
    
11. end
    
12. 
    
13. for i in 1..5
    
14.   for j in get_next_possible_digits(i)
    
15.     for k in get_next_possible_digits(i, j)
    
16.       for l in get_next_possible_digits(i, j, k)
    
17.         arr << i * 1000 + j * 100 + k * 10 + l
    
18.       end
    
19.     end
    
20.   end
    
21. end
    
22. 
    
23. p arr

复制代码

统计学方法：
2??3 => 共 P(4,2) 种排列
2?3? => 共 P(4,2) 种排列
?2?3 => 共 3^2 排列

互换 2 和 3 的位置排列方式翻倍，于是最后是 2*(2*P(4,2)+3^2)=66

9、
Golfer 的版本：

1. 2.upto(1e3){|i|(2..i).one?{|j|i%j==0}&&p(i)}

复制代码

不过 one? 只有 Ruby 1.9 才有。在 RM 里的话只能：

1. 2.upto(1e3){|i|(2...i).all?{|j|i%j!=0}&&p(i)}

复制代码

追求执行效率的参见这贴：
http://rpg.blue/forum.php?mod=viewthread&tid=140141
我（用主号）在33楼发过 Eratosthenes 筛法，而 Atkin 筛法是它的一个优化版，是目前公认最快的质数筛法。
http://en.wikipedia.org/wiki/Sieve_of_Eratosthenes

david50407

1.
利用F12的特性...
"重载脚本"

1. 
   
2. exit if $runOnce
   
3. $runOnce = true
   

复制代码

沙漠点灰

回复 苏小脉 的帖子

回3: 两个个数类变量(类型不限)的值
已经说明 类型不限 了.....
回9:
果然Golfer不追求效率
2.upto(1e3){|i|(2...i).all?{|j|i%j!=0}&&p(i)}
共计迭代78022次,比我
(3..1000).inject([2]){|a,i|a.all?{|b|i%b!=0}?a<<i:a}
的15620大多了