Submission #3787982

Source Code Expand

solve :: Int -> Int -> Int -> Int
solve n m i
  | i * i > m = 0
  | m `mod` i /= 0 = solve n m (i + 1)
  | otherwise = max (if n * i <= m then i else 0) $ max (if n <= i then m `div` i else 0) $ solve n m (i + 1)

main :: IO ()
main = do
  [n, m] <- (map (\s -> read s :: Int)) . words <$> getLine
  print $ solve n m 1

Submission Info

Submission Time
Task D - Partition
User hi_watana
Language Haskell (GHC 7.10.3)
Score 400
Code Size 330 Byte
Status AC
Exec Time 2 ms
Memory 508 KB

Judge Result

Set Name All Sample
Score / Max Score 400 / 400 0 / 0
Status
AC × 30
AC × 3
Set Name Test Cases
All 0_small_1, 0_small_2, 0_small_3, 1_large_1, 1_large_2, 1_large_3, 1_large_4, 1_large_5, 1_large_6, 1_large_7, 2_max_1, 2_max_2, 3_prime_1, 3_prime_10, 3_prime_11, 3_prime_2, 3_prime_3, 3_prime_4, 3_prime_5, 3_prime_6, 3_prime_7, 3_prime_8, 3_prime_9, 4_hand_1, 4_hand_2, 4_hand_3, 4_hand_4, sample_01, sample_02, sample_03
Sample sample_01, sample_02, sample_03
Case Name Status Exec Time Memory
0_small_1 AC 2 ms 508 KB
0_small_2 AC 2 ms 508 KB
0_small_3 AC 2 ms 508 KB
1_large_1 AC 2 ms 508 KB
1_large_2 AC 2 ms 508 KB
1_large_3 AC 2 ms 508 KB
1_large_4 AC 2 ms 508 KB
1_large_5 AC 2 ms 508 KB
1_large_6 AC 2 ms 508 KB
1_large_7 AC 2 ms 508 KB
2_max_1 AC 2 ms 508 KB
2_max_2 AC 2 ms 508 KB
3_prime_1 AC 2 ms 508 KB
3_prime_10 AC 2 ms 508 KB
3_prime_11 AC 2 ms 508 KB
3_prime_2 AC 2 ms 508 KB
3_prime_3 AC 2 ms 508 KB
3_prime_4 AC 2 ms 508 KB
3_prime_5 AC 2 ms 508 KB
3_prime_6 AC 2 ms 508 KB
3_prime_7 AC 2 ms 508 KB
3_prime_8 AC 2 ms 508 KB
3_prime_9 AC 2 ms 508 KB
4_hand_1 AC 2 ms 508 KB
4_hand_2 AC 2 ms 508 KB
4_hand_3 AC 2 ms 508 KB
4_hand_4 AC 2 ms 508 KB
sample_01 AC 2 ms 508 KB
sample_02 AC 2 ms 508 KB
sample_03 AC 2 ms 508 KB