1. Qiita
  2. 投稿
  3. Perl

ズンドコキヨシ with Perl

  • 0
    いいね
  • 0
    コメント

    http://qiita.com/y__sama/items/7c451dfd706f9b36729d

    Perlでやってみた
    ※Use of uninitialized valueを出すという初歩的なミスをしていたのでついでに諸々修正しました…

    Perl版

    kiyoshi.pl
    use strict;
    use warnings;
    
    sub kiyoshi {
      my @zd  = my ($z, $d) = ('ズン', 'ドコ');
      my $str = join('', (my @kys = ($z, $z, $z, $z, $d)));
      my $cnt = 0;
      my @word;
    
      while ( join('', @word) ne $str ) {
        shift @word if $#word >= $#kys;
        push @word, $zd[rand(@zd)];
        print $word[$#word];
        $cnt++;
      }
      print "キ・ヨ・シ!\n($cnt回ズンドコしました)\n";
      return;
    }
    
    kiyoshi();
    

    もうちょっと上手くできないものか…

    Comments Loading...