結果
問題 | No.345 最小チワワ問題 |
ユーザー |
![]() |
提出日時 | 2016-04-05 17:00:51 |
言語 | Raku (rakudo v2024.12) |
結果 |
AC
|
実行時間 | 512 ms / 2,000 ms |
コード長 | 475 bytes |
コンパイル時間 | 838 ms |
コンパイル使用メモリ | 146,388 KB |
実行使用メモリ | 141,520 KB |
最終ジャッジ日時 | 2024-09-25 11:43:07 |
合計ジャッジ時間 | 18,216 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 29 |
コンパイルメッセージ
Syntax OK
ソースコード
use v6; my @str = get().chomp.split(''); my $w = 0; my $long = 0; loop (my $i = 1; $i < @str.elems - 1; $i++) { if @str[$i] eq 'c' { loop (my $j = $i + 1; $j < @str.elems - 1; $j++) { if @str[$j] eq 'w' { if $w == 0 { $w++; } elsif $w == 1 { if $long == 0 { $long = $j - $i + 1; } elsif $j - $i + 1 < $long { $long = $j - $i + 1; } last; } } } $w = 0; } } if $long == 0 { say -1; } else { say $long; } exit;