一行中最大值

rubyish

回复 1# yueli7

1. #!/usr/bin/perl
   
2. 
   
3. use 5.018;
   
4. 
   
5. say for map {
   
6.     ( sort { $b <=> $a } split )[0]
   
7. } <DATA>;
   
8. 
   
9. 
   
10. __DATA__
    
11. 1        4        5
    
12. 5        1        4
    
13. 0        4        6
    

复制代码

or:

1. #!/usr/bin/perl
   
2. 
   
3. use 5.018;
   
4. 
   
5. sub max {
   
6.     @_ = sort { $b <=> $a } @_;
   
7.     return $_[0];
   
8. }
   
9. 
   
10. while (<DATA>) {
    
11.     my @a   = split;
    
12.     my $max = max(@a);
    
13.     say $max;
    
14. }
    
15. 
    
16. __DATA__
    
17. 1        4        5
    
18. 5        1        4
    
19. 0        4        6
    

复制代码