結果

問題 No.272 NOT回路
ユーザー torus711
提出日時 2015-08-28 22:21:44
言語 Haskell
(8.8.1)
結果
AC  
実行時間 4 ms
コード長 407 Byte
コンパイル時間 1,109 ms
使用メモリ 8,916 KB
最終ジャッジ日時 2019-10-25 05:40:58

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
challenge01.txt AC 4 ms
8,916 KB
challenge02.txt AC 4 ms
6,876 KB
challenge03.txt AC 4 ms
6,876 KB
challenge04.txt AC 4 ms
6,876 KB
challenge05.txt AC 4 ms
6,872 KB
challenge06.txt AC 4 ms
6,876 KB
challenge07.txt AC 3 ms
6,872 KB
challenge08.txt AC 4 ms
6,872 KB
challenge09.txt AC 3 ms
6,872 KB
challenge10.txt AC 4 ms
6,876 KB
sample1.txt AC 4 ms
6,872 KB
test1.txt AC 3 ms
6,876 KB
テストケース一括ダウンロード
コンパイルメッセージ
Loaded package environment from /root/.ghc/x86_64-linux-8.8.1/environments/default
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import Text.Printf

readInt = ( readLn :: IO Int )
readInts = map ( read :: String -> Int ) . words <$> getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = readInt >>= print . which 0 1 . ( /= 0 )
0