Contest Duration: - (local time) (100 minutes) Back to Home

Submission #4704278

Source Code Expand

Copy
```import Data.Int
import Data.List

modulo :: Int64
modulo = 10^9 + 7
newtype N = N Int64 deriving Eq
instance Show N where
show (N x) = show x
instance Num N where
N x + N y = N ((x + y) `rem` modulo)
N x - N y = N ((x - y) `mod` modulo)
N x * N y = N ((x * y) `rem` modulo)
fromInteger n = N (fromInteger (n `mod` fromIntegral modulo))
abs = undefined; signum = undefined

solution :: [(N,N,N)]
solution = (1,0,0):(4,0,1):(16,1,4):(61,3,15)
: zipWith4 (\(a1,b1,c1) (a2,b2,c2) (a3,b3,c3) (a4,b4,c4) -> (4*a1-3*a3+b3+c3-3*a4,a2-c2,a1-b1)) (drop 3 solution) (drop 2 solution) (tail solution) solution

main = do
n <- readLn :: IO Int
print \$ case solution !! n of
(N x,_,_) -> x
```

#### Submission Info

Submission Time 2019-03-25 00:58:55+0900 D - We Like AGC mod_poppo Haskell (GHC 7.10.3) 400 729 Byte AC 2 ms 508 KB

#### Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
 AC × 3
 AC × 13
Set Name Test Cases
Sample a01, a02, a03
All a01, a02, a03, b04, b05, b06, b07, b08, b09, b10, b11, b12, b13
Case Name Status Exec Time Memory
a01 AC 2 ms 508 KB
a02 AC 1 ms 508 KB
a03 AC 2 ms 508 KB
b04 AC 2 ms 508 KB
b05 AC 2 ms 508 KB
b06 AC 2 ms 508 KB
b07 AC 2 ms 508 KB
b08 AC 2 ms 508 KB
b09 AC 2 ms 508 KB
b10 AC 2 ms 508 KB
b11 AC 2 ms 508 KB
b12 AC 2 ms 508 KB
b13 AC 2 ms 508 KB