結果

問題 No.427 テレビ
ユーザー LeonardoneLeonardone
提出時間 2016-10-13 17:11:07
言語 Haskell
結果
AC  
実行時間 3 ms
コード長 184 Byte
コンパイル時間 710 ms
実行使用メモリ 6,992 KB

テストケース

テストケース表示
入力 結果 実行時間
challenge01.txt AC 2 ms
6,988 KB
sample1.txt AC 2 ms
6,956 KB
sample2.txt AC 3 ms
6,880 KB
system_test1.txt AC 2 ms
6,924 KB
test1.txt AC 2 ms
6,856 KB
test2.txt AC 3 ms
6,856 KB
test3.txt AC 2 ms
6,928 KB
test4.txt AC 2 ms
6,940 KB
test5.txt AC 2 ms
6,992 KB
test6.txt AC 2 ms
6,932 KB
テストケース一括ダウンロード

Diffソースコード

diff #
*** #123387
--- #123390

***************
*** 1,5 ****
  -- yukicoder My Practice
  -- author: Leonardone @ NEETSDKASU
  
! main = ((=<<) ((.) ((.) ((.) putStrLn ((!!) ((:) "YOKO" (return "TATE")))) (\xs -> (div ((!!) xs 0) ((!!) xs 1)))) ((.) (map read) words)) getLine)
  
--- 1,5 ----
  -- yukicoder My Practice
  -- author: Leonardone @ NEETSDKASU
  
! main = ((=<<) ((.) ((.) ((.) putStrLn ((!!) ((:) "YOKO" (return "TATE")))) (foldl1 div)) ((.) (map read) words)) getLine)