結果

問題 No.273 回文分解
ユーザー vain0vain0
提出日時 2015-08-28 22:44:14
言語 F#
(F# 4.0)
結果
WA  
実行時間 -
コード長 594 bytes
コンパイル時間 12,763 ms
コンパイル使用メモリ 194,928 KB
実行使用メモリ 34,544 KB
最終ジャッジ日時 2024-06-06 01:07:56
合計ジャッジ時間 21,192 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 302 ms
34,412 KB
testcase_01 AC 310 ms
34,416 KB
testcase_02 AC 310 ms
33,804 KB
testcase_03 AC 306 ms
34,324 KB
testcase_04 AC 312 ms
34,412 KB
testcase_05 AC 308 ms
33,456 KB
testcase_06 AC 305 ms
33,728 KB
testcase_07 AC 314 ms
34,540 KB
testcase_08 AC 307 ms
33,580 KB
testcase_09 AC 305 ms
33,832 KB
testcase_10 AC 314 ms
33,832 KB
testcase_11 AC 311 ms
33,860 KB
testcase_12 AC 303 ms
33,612 KB
testcase_13 AC 309 ms
34,444 KB
testcase_14 AC 307 ms
34,404 KB
testcase_15 AC 309 ms
34,420 KB
testcase_16 AC 315 ms
34,416 KB
testcase_17 AC 305 ms
34,420 KB
testcase_18 WA -
testcase_19 AC 305 ms
33,892 KB
testcase_20 AC 304 ms
34,160 KB
testcase_21 AC 305 ms
33,852 KB
testcase_22 AC 299 ms
33,572 KB
testcase_23 WA -
testcase_24 AC 311 ms
33,744 KB
testcase_25 AC 306 ms
33,760 KB
testcase_26 AC 310 ms
33,852 KB
testcase_27 AC 300 ms
33,652 KB
testcase_28 AC 306 ms
34,392 KB
testcase_29 AC 308 ms
33,860 KB
testcase_30 AC 311 ms
34,544 KB
testcase_31 WA -
testcase_32 AC 300 ms
33,988 KB
testcase_33 AC 304 ms
33,888 KB
testcase_34 AC 307 ms
33,852 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (301 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff # 

open System
open System.Text

let solve s =
    let len = s |> String.length
    
    let lengest_palin k =
        let rec loop i j l =
            if 0 <= i && i < len && 0 <= j && j < len
                && s.[i] = s.[j]
            then loop (i - 1) (j + 1) (l + 2)
            else l
        [ loop (k - 1) (k + 1) 1; loop k (k + 1) 0 ]

    [ for k in 0..((s |> String.length) - 1) do
        yield! lengest_palin k
        ]
    |> List.filter ((<>) len)
    |> List.fold max 1

[<EntryPoint>]
let main argv =
    let s = Console.ReadLine()
    printfn "%d" <| solve s

    //exit
    0
0