結果

問題 No.3 ビットすごろく
コンテスト
ユーザー kuroi_13
提出日時 2017-03-28 15:06:24
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 511 bytes
コンパイル時間 496 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 720,200 KB
最終ジャッジ日時 2024-07-06 13:21:54
合計ジャッジ時間 7,000 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 1 WA * 2 MLE * 1 -- * 29
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

use strict;
use warnings;

my $n = <>;
my %ms = (1=> 1);
my @in = ([1, 1]);
my @out;

my $stp;
for(1..$n){
  for my $i(@in){
    $stp = scalar(() = sprintf("%b", $i->[0]) =~ m/1/g);
    for my $j (-1, 1){
      my @nxt = ($i->[0] + $j*$stp, $i->[1]+1);
      if(0 < $nxt[0] and $nxt[0] <= $n){
        if(!defined($ms{$nxt[0]}) or $nxt[1] < $ms{$nxt[0]}){
          $ms{$nxt[0]} = $nxt[1];
        }
        push @out, \@nxt;
      }
    }
  }
  @in = @out;
  @out = ();
}

print defined $ms{$n} ? $ms{$n} : -1;
0