perl 報數(shù)游戲

只是一個紅薯

今天在網(wǎng)上看到個報數(shù)游戲，要求都是c，c++，java，c#完成
題目詳情
一種報數(shù)游戲是從1開始連續(xù)報數(shù)，如果報到7的倍數(shù)（7，14，21，28……）或者包含數(shù)字7的數(shù)（7，17，27，37……）就用拍手代替這個數(shù)而不能報出。假設(shè)你連續(xù)聽到m聲拍手，問造成你聽到m聲拍手的第一下拍手所代表的數(shù)是幾？例如，你聽到了兩次連續(xù)的拍手，最小的可能這兩次拍手是27和28，因此輸出27。

輸入m, 輸出這m次連續(xù)的拍手第一下所代表的最小可能的數(shù)。
我試了下用perl，不知道你們有其他方法嗎？

1. use 5.016;
   
2. use strict;
   
3. use warnings;
   
4. print 'input m:';
   
5. chomp(my $m=<STDIN>);
   
6. for(my $i=7;;$i++){
   
7.     my $count=0;
   
8.         for my $j(0..$m-1){
   
9.            my $shu=$i+$j;
   
10.            $count++ if co($shu);
    
11.         }
    
12.         say $i and exit if $count==$m;
    
13.     }
    
14. sub co
    
15. {
    
16.   my $i=shift;
    
17.   return $i  if($i%7==0 || $i=~/7/g);
    
18. }

復(fù)制代碼

pitonas

拍拍手~謝謝~這個必須贊一個~{:2_172:}

uiojkl227

#!/usr/bin/perl -w
use strict;
use 5.010;

my $m =1;
my $n =1;
our $count = 1;

while (1) {
       
        $m = $count unless $count %7;
        $n = $count if $count =~ '7';

        if ($m-$n == 1 or $m-$n == -1) {

                say "i found $m, $n";
        }

        $count++;
}


這樣可以嗎？

只是一個紅薯

不是題目要求的結(jié)果吧回復(fù) 3# uiojkl227


   

yestreenstars

1. chomp( my $m = <STDIN> );
   
2. my ( $last, $count, $first );
   
3. for ( my $i = 7; ; $i++ ) {
   
4.         if ( $i % 7 == 0 || $i =~ /7/ ) {
   
5.                 if ( $last && $i - $last == 1 ) {
   
6.                         print $first and exit if ++$count == $m;
   
7.                         $first = $i if $count == 1;
   
8.                         $last = $i and next;
   
9.                 }
   
10.         }
    
11.         $last = $i and $count = 0;
    
12. }

復(fù)制代碼

rubyish

這個有意思~

1. #!/usr/bin/perl
   
2. 
   
3. my $m = do { print 'input m: '; <> };
   
4. loop: for ( my $i = 7 ; ; $i++ ) {
   
5.     for ( reverse $i .. $i + $m - 1 ) {
   
6.         $i = $_ and next loop unless $_ % 7 == 0 || /7/;
   
7.     }
   
8.     print $i and last;
   
9. }

復(fù)制代碼

只是一個紅薯

默默的點個贊 回復(fù) 5# yestreenstars


   

只是一個紅薯

new style 除了計數(shù)還可以 for ( reverse $i .. $i + $m - 1 )回復(fù) 6# rubyish