結果

問題 No.69 文字を自由に並び替え
ユーザー karrym_
提出日時 2014-11-18 23:26:56
言語 Haskell
(8.8.1)
結果
AC  
実行時間 265 ms
コード長 257 Byte
コンパイル時間 1,031 ms
使用メモリ 4,828 KB
最終ジャッジ日時 2019-10-13 07:16:16

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1.txt AC 4 ms
1,848 KB
2.txt AC 3 ms
1,848 KB
3.txt AC 3 ms
1,848 KB
4.txt AC 4 ms
1,852 KB
5.txt AC 3 ms
1,904 KB
6.txt AC 3 ms
1,984 KB
7.txt AC 4 ms
2,072 KB
8.txt AC 10 ms
3,680 KB
9.txt AC 36 ms
4,800 KB
10.txt AC 265 ms
4,828 KB
99_challenge03.txt AC 3 ms
1,852 KB
99_system_test1.txt AC 8 ms
3,216 KB
99_system_test2.txt AC 6 ms
2,924 KB
challenge01.txt AC 4 ms
1,848 KB
challenge02.txt AC 3 ms
1,856 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 #
import Data.List

judge :: Eq a => [a] -> [a] -> Bool
judge xs ys = elem ys $ permutations xs

main :: IO ()
main = do
        a <- getLine
        b <- getLine
        if judge a b
            then putStrLn "YES"
            else putStrLn "NO"
0