結果

問題 No.113 宝探し
ユーザー はむ吉🐹
提出日時 2015-10-23 15:19:40
言語 Haskell
(9.10.1)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 371 bytes
コンパイル時間 5,202 ms
コンパイル使用メモリ 175,744 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-11-16 21:00:38
合計ジャッジ時間 6,144 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 23
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )
[2 of 2] Linking a.out

ソースコード

diff # 

import Data.List (foldl')

move :: (Int, Int) -> Char -> (Int, Int)
move (x, y) c
    | c == 'N'  = (x, y + 1)
    | c == 'E'  = (x + 1, y)
    | c == 'W'  = (x - 1, y)
    | c == 'S'  = (x, y - 1)
    | otherwise = (x, y)

norm :: (Int, Int) -> Double
norm (x, y) = sqrt $ fromIntegral $ x * x + y * y

main :: IO ()
main = print . norm . foldl' move (0, 0) =<< getLine
0