Submission #1776762
Source Code Expand
solve :: Int -> [(Int,Int)] -> [(Int,Int)] solve _ [] = [] solve n (a:as) | uncurry (*) a == 2025 - n = a : solve n as | otherwise = solve n as main :: IO () main = do n <- readLn putStr $ unlines $ map (\(x, y) -> show x ++ " x " ++ show y) $ solve n ((,) <$> [1..9] <*> [1..9])
Submission Info
Submission Time | |
---|---|
Task | C - 九九足し算 |
User | atctk |
Language | Haskell (GHC 7.10.3) |
Score | 100 |
Code Size | 307 Byte |
Status | AC |
Exec Time | 2 ms |
Memory | 508 KB |
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | sample_01.txt, sample_02.txt, test_1953.txt, test_1971.txt, test_1977.txt, test_1983.txt, test_1989.txt, test_1990.txt, test_1993.txt, test_1995.txt, test_1997.txt, test_1998.txt, test_2001.txt, test_2009.txt, test_2013.txt, test_2017.txt, test_2019.txt, test_2020.txt, test_2022.txt, test_2024.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 1 ms | 508 KB |
sample_02.txt | AC | 1 ms | 508 KB |
test_1953.txt | AC | 1 ms | 508 KB |
test_1971.txt | AC | 1 ms | 508 KB |
test_1977.txt | AC | 1 ms | 508 KB |
test_1983.txt | AC | 1 ms | 508 KB |
test_1989.txt | AC | 1 ms | 508 KB |
test_1990.txt | AC | 1 ms | 508 KB |
test_1993.txt | AC | 1 ms | 508 KB |
test_1995.txt | AC | 1 ms | 508 KB |
test_1997.txt | AC | 1 ms | 508 KB |
test_1998.txt | AC | 2 ms | 508 KB |
test_2001.txt | AC | 1 ms | 508 KB |
test_2009.txt | AC | 2 ms | 508 KB |
test_2013.txt | AC | 1 ms | 508 KB |
test_2017.txt | AC | 1 ms | 508 KB |
test_2019.txt | AC | 1 ms | 508 KB |
test_2020.txt | AC | 1 ms | 508 KB |
test_2022.txt | AC | 1 ms | 508 KB |
test_2024.txt | AC | 1 ms | 508 KB |