perl 报数游戏

只是一个红薯

今天在网上看到个报数游戏，要求都是c，c++，java，c#完成
题目详情
一种报数游戏是从1开始连续报数，如果报到7的倍数（7，14，21，28……）或者包含数字7的数（7，17，27，37……）就用拍手代替这个数而不能报出。假设你连续听到m声拍手，问造成你听到m声拍手的第一下拍手所代表的数是几？例如，你听到了两次连续的拍手，最小的可能这两次拍手是27和28，因此输出27。

输入m, 输出这m次连续的拍手第一下所代表的最小可能的数。
我试了下用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. }

复制代码

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++;
}


这样可以吗？

只是一个红薯

不是题目要求的结果吧回复 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. }

复制代码

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. }

复制代码

只是一个红薯

默默的点个赞 回复 5# yestreenstars


   

只是一个红薯

new style 除了计数还可以 for ( reverse $i .. $i + $m - 1 )回复 6# rubyish