結果
| 問題 | 
                            No.238 Mr. K's Another Gift
                             | 
                    
| コンテスト | |
| ユーザー | 
                             | 
                    
| 提出日時 | 2017-05-24 17:36:44 | 
| 言語 | D  (dmd 2.109.1)  | 
                    
| 結果 | 
                             
                                AC
                                 
                             
                            
                         | 
                    
| 実行時間 | 2 ms / 2,000 ms | 
| コード長 | 658 bytes | 
| コンパイル時間 | 665 ms | 
| コンパイル使用メモリ | 95,176 KB | 
| 実行使用メモリ | 6,944 KB | 
| 最終ジャッジ日時 | 2024-06-12 19:22:21 | 
| 合計ジャッジ時間 | 2,945 ms | 
| 
                            ジャッジサーバーID (参考情報)  | 
                        judge3 / judge4 | 
(要ログイン)
| ファイルパターン | 結果 | 
|---|---|
| sample | AC * 3 | 
| other | AC * 40 | 
ソースコード
import std.algorithm, std.conv, std.range, std.stdio, std.string;
void main()
{
  auto s = readln.chomp;
  auto i = sameIndex(s);
  auto t = s[i..$-i];
  if (t.empty) {
    writeln(s[0..i] ~ 'a' ~ s[i..$]);
    return;
  }
  if (isKaibun(t[$-1] ~ t)) {
    writeln(s[0..i] ~ t[$-1] ~ t ~ s[$-i..$]);
    return;
  }
  if (isKaibun(t ~ t[0])) {
    writeln(s[0..i] ~ t ~ t[0] ~ s[$-i..$]);
    return;
  }
  writeln("NA");
}
auto sameIndex(string s)
{
  foreach (i; 0..s.length/2)
    if (s[i] != s[$-i-1]) return i;
  return s.length/2;
}
auto isKaibun(string s)
{
  foreach (i; 0..s.length/2)
    if (s[i] != s[$-i-1]) return false;
  return true;
}