Submission #1104057

Source Code Expand

import Control.Applicative

main = do
  	[a,b] <- words <$> getLine
	putStrLn $ fx a b

trump = ["2","3","4","5","6","7","8","9","10","11","12","13","1"]

fx a b 
	| (f a) > (f b) = "Alice" 
	| (f a) < (f b) = "Bob"
	| otherwise = "Draw"

f a = ff 0 a

ff n a = if (trump !! n) == a then n else ff (n+1) a

Submission Info

Submission Time
Task A - One Card Poker
User wawktk2525
Language Haskell (GHC 7.10.3)
Score 100
Code Size 320 Byte
Status AC
Exec Time 1 ms
Memory 380 KiB

Compile Error

Main.hs:4:3: Warning: Tab character

Main.hs:5:1: Warning: Tab character

Main.hs:10:1: Warning: Tab character

Main.hs:11:1: Warning: Tab character

Main.hs:12:1: Warning: Tab character

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 10
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt
Case Name Status Exec Time Memory
sample_01.txt AC 1 ms 380 KiB
sample_02.txt AC 1 ms 380 KiB
sample_03.txt AC 1 ms 380 KiB
subtask_1_01.txt AC 1 ms 380 KiB
subtask_1_02.txt AC 1 ms 380 KiB
subtask_1_03.txt AC 1 ms 380 KiB
subtask_1_04.txt AC 1 ms 380 KiB
subtask_1_05.txt AC 1 ms 380 KiB
subtask_1_06.txt AC 1 ms 380 KiB
subtask_1_07.txt AC 1 ms 380 KiB