Submission #202446
Source Code Expand
{-# LANGUAGE BangPatterns #-} import Control.Applicative import Control.Monad import Control.Arrow import Data.List import Data.Maybe import Data.Char import Text.Printf readInt = ( readLn :: IO Int ) getInts = map ( read :: String -> Int ) . words <$> getLine which a b f = if f then a else b mp [ a, b ] = ( a, b ) main = do n <- readInt let s = sum [ i * j | i <- [ 1..9 ], j <- [ 1..9 ] ] mapM_ putStrLn $ [ show i ++ " x " ++ show j | i <- [ 1..9 ], j <- [ 1..9 ], s - n == i * j ]
Submission Info
Submission Time | |
---|---|
Task | C - 九九足し算 |
User | torus711 |
Language | Haskell (GHC 7.4.1) |
Score | 100 |
Code Size | 521 Byte |
Status | AC |
Exec Time | 41 ms |
Memory | 1516 KB |
Judge Result
Set Name | All | ||
---|---|---|---|
Score / Max Score | 100 / 100 | ||
Status |
|
Set Name | Test Cases |
---|---|
All | 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 | 31 ms | 1448 KB |
sample_02.txt | AC | 29 ms | 1308 KB |
test_1953.txt | AC | 29 ms | 1364 KB |
test_1971.txt | AC | 29 ms | 1448 KB |
test_1977.txt | AC | 28 ms | 1308 KB |
test_1983.txt | AC | 30 ms | 1424 KB |
test_1989.txt | AC | 28 ms | 1312 KB |
test_1990.txt | AC | 29 ms | 1516 KB |
test_1993.txt | AC | 29 ms | 1308 KB |
test_1995.txt | AC | 30 ms | 1304 KB |
test_1997.txt | AC | 28 ms | 1432 KB |
test_1998.txt | AC | 30 ms | 1316 KB |
test_2001.txt | AC | 41 ms | 0 KB |
test_2009.txt | AC | 24 ms | 924 KB |
test_2013.txt | AC | 23 ms | 924 KB |
test_2017.txt | AC | 25 ms | 928 KB |
test_2019.txt | AC | 23 ms | 1060 KB |
test_2020.txt | AC | 23 ms | 936 KB |
test_2022.txt | AC | 21 ms | 1052 KB |
test_2024.txt | AC | 21 ms | 1044 KB |