如何从数组中查找最接近500的数字！

rubyish

1. #!/usr/bin/perl
   
2. 
   
3. sub pick {
   
4.     return 500 if $_[0] >= 500;
   
5.     $_ <= 500 and return $_ for reverse @_;
   
6. }
   
7. 
   
8. sub pick2 {
   
9.   return $_[-1] if $_[-1] <= 500;
   
10.   my $one = 500;
    
11.   $_ <= 500 ? ($one = $_) : return $one for @_;
    
12. }
    
13.    
    
14. while (<DATA>) {
    
15.     my $one = pick2 split;
    
16.     print "$one\t<= $_";
    
17. }
    
18. 
    
19. __DATA__
    
20. 250  300 350 400 450  600 700 800
    
21. 250  300 350 400 450  500 600 700 800
    
22. 600 700 800 900
    
23. 250  300 350 400 450
    

复制代码

rubyish

回复 1# zhangfenyun

better:

1. 有一个数值：
   
2. example:
   
3. 
   
4. 250  300 350 400 450  600 700 800
   
5. 
   
6. 1: 里面的数字都是按照大小 (小 -> 大) 排列好了的！
   
7. 2: 查找最接近 500 的数字 N ( N <= 500 ), 不能大于 500
   
8. 3: 如果这个数组里面所有的值都大于500，那么 N = 500

复制代码

q1208c

回复 12# rubyish

其实这个命题是有问题的.

从技术上来说, 当数组里有小于500的值的时候, N 取最接近500的值, 这很容易理解. 但当数组里没有小于500的值的时候, N 应该取0, 否则怎么能够知道是数组里根本没有小于500的数, 还是 数组里正好有个 500 呢?

这不科学呀.
   

xiumu2280

我怎么感觉楼主的意思是取小于500且距离500最远的值···
好吧···B是不能重复赋值的··

rubyish 发表于 2014-04-01 23:05
回复 1# zhangfenyun

better:

zhangfenyun

说白 了，是取距离500最近的值呀？可以是500，但是不能超过500

zhangfenyun

#!/usr/bin/perl
@a=(1,400,500,600,700,800,900);
foreach $tmp (@a){
    $p=($tmp<500)?$tmpp
}
$t=($p)?$p:500;
print $t;   #为什么是400

rubyish

回复 16# zhangfenyun
@a = ( 1, 400, 500, 600, 700, 800, 900 );


$p = ($tmp < 500) ? $tmp : p;
$tmp < 500 => 400
$tmp <= 500 => 500