提出 #1318936

ソースコード 拡げる

main = getLine >>= putStrLn . (\[a,b] -> if abs (a-b) <= 1 then "Brown" else "Alice") . map read . words

提出情報

提出日時
問題 D - Alice&Brown
ユーザ sato
言語 Haskell (GHC 7.10.3)
得点 500
コード長 104 Byte
結果 AC
実行時間 2 ms
メモリ 508 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 500 / 500
結果
AC × 4
AC × 24
セット名 テストケース
Sample 00-00.txt, 00-01.txt, 00-02.txt, 00-03.txt
All 00-00.txt, 00-01.txt, 00-02.txt, 00-03.txt, 01-00.txt, 01-01.txt, 01-02.txt, 01-03.txt, 01-04.txt, 01-05.txt, 01-06.txt, 01-07.txt, 01-08.txt, 01-09.txt, 01-10.txt, 01-11.txt, 01-12.txt, 01-13.txt, 01-14.txt, 01-15.txt, 01-16.txt, 01-17.txt, 01-18.txt, 01-19.txt
ケース名 結果 実行時間 メモリ
00-00.txt AC 2 ms 508 KiB
00-01.txt AC 2 ms 508 KiB
00-02.txt AC 2 ms 508 KiB
00-03.txt AC 2 ms 508 KiB
01-00.txt AC 2 ms 508 KiB
01-01.txt AC 2 ms 508 KiB
01-02.txt AC 2 ms 508 KiB
01-03.txt AC 2 ms 508 KiB
01-04.txt AC 2 ms 508 KiB
01-05.txt AC 2 ms 508 KiB
01-06.txt AC 2 ms 508 KiB
01-07.txt AC 2 ms 508 KiB
01-08.txt AC 2 ms 508 KiB
01-09.txt AC 2 ms 508 KiB
01-10.txt AC 2 ms 508 KiB
01-11.txt AC 2 ms 508 KiB
01-12.txt AC 2 ms 508 KiB
01-13.txt AC 2 ms 508 KiB
01-14.txt AC 2 ms 508 KiB
01-15.txt AC 2 ms 508 KiB
01-16.txt AC 2 ms 508 KiB
01-17.txt AC 2 ms 508 KiB
01-18.txt AC 2 ms 508 KiB
01-19.txt AC 2 ms 508 KiB