# E3.12-1.rb 求50以内的素数

# encoding: utf-8

# E3.12-1.rb 。
# E3.12-1.rb 求50以内的素数
$arr=[ ] #建立一个全局数组 $arr
$arr[0]=2
def add_prime(n) #定义方法 将 n以内的奇素数加入$arr
3.step(n,2){|num|$arr <<num if is_prime?num }
end

def is_prime?(number) #定义方法 判断一个数是否是素数
	j=0 #数组下标
	while $arr[j] * $arr[j] <=number
	return false if number % $arr[j] ==0
	j +=1
	end
return true
end

add_prime(50)
print $arr.join(", "),"\n" #转换成字符串输出

=begin 
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47
请按任意键继续. . .
=end