Submission #36160

Source Code Expand

import Prelude
import Data.List

main = interact q

q = func

func::String->String
func = (++"\n").toString.solve.toInt

fileInteract func inf ouf = do file <- readFile inf
                               writeFile ouf (func file)

toInt::String->Int
toInt = read

asInteger::String->Integer
asInteger = read

toString::Int->String
toString = show

reverseTuple::(a,b)->(b,a)
reverseTuple (a,b) = (b,a)

fibonacci = fib 1 0
    where
      fib a b 0 = a
      fib a b n = fib (a+b) a (n-1)


solve::Int->Int
solve = fibonacci

Submission Info

Submission Time
Task A - 算盤の書
User Angelworm_
Language Haskell (GHC 7.4.1)
Score 100
Code Size 556 Byte
Status AC
Exec Time 74 ms
Memory 1432 KiB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 46
Set Name Test Cases
All 00_sample1, 00_sample2, 00_sample3, 10_testcase00, 10_testcase01, 10_testcase02, 10_testcase03, 10_testcase04, 10_testcase05, 10_testcase06, 10_testcase07, 10_testcase08, 10_testcase09, 10_testcase10, 10_testcase11, 10_testcase12, 10_testcase13, 10_testcase14, 10_testcase15, 10_testcase16, 10_testcase17, 10_testcase18, 10_testcase19, 10_testcase20, 10_testcase21, 10_testcase22, 10_testcase23, 10_testcase24, 10_testcase25, 10_testcase26, 10_testcase27, 10_testcase28, 10_testcase29, 10_testcase30, 10_testcase31, 10_testcase32, 10_testcase33, 10_testcase34, 10_testcase35, 10_testcase36, 10_testcase37, 10_testcase38, 10_testcase39, 10_testcase40, 10_testcase41, 10_testcase42
Case Name Status Exec Time Memory
00_sample1 AC 52 ms 1268 KiB
00_sample2 AC 25 ms 1336 KiB
00_sample3 AC 25 ms 1312 KiB
10_testcase00 AC 25 ms 1424 KiB
10_testcase01 AC 25 ms 1344 KiB
10_testcase02 AC 25 ms 1316 KiB
10_testcase03 AC 24 ms 1208 KiB
10_testcase04 AC 25 ms 1336 KiB
10_testcase05 AC 25 ms 1272 KiB
10_testcase06 AC 26 ms 1432 KiB
10_testcase07 AC 25 ms 1428 KiB
10_testcase08 AC 25 ms 1288 KiB
10_testcase09 AC 24 ms 1216 KiB
10_testcase10 AC 24 ms 1212 KiB
10_testcase11 AC 25 ms 1272 KiB
10_testcase12 AC 25 ms 1336 KiB
10_testcase13 AC 24 ms 1336 KiB
10_testcase14 AC 24 ms 1212 KiB
10_testcase15 AC 26 ms 1300 KiB
10_testcase16 AC 25 ms 1340 KiB
10_testcase17 AC 25 ms 1340 KiB
10_testcase18 AC 25 ms 1216 KiB
10_testcase19 AC 27 ms 1424 KiB
10_testcase20 AC 24 ms 1232 KiB
10_testcase21 AC 25 ms 1428 KiB
10_testcase22 AC 25 ms 1340 KiB
10_testcase23 AC 24 ms 1336 KiB
10_testcase24 AC 24 ms 1336 KiB
10_testcase25 AC 24 ms 1336 KiB
10_testcase26 AC 24 ms 1212 KiB
10_testcase27 AC 25 ms 1380 KiB
10_testcase28 AC 24 ms 1296 KiB
10_testcase29 AC 25 ms 1328 KiB
10_testcase30 AC 25 ms 1216 KiB
10_testcase31 AC 74 ms 1208 KiB
10_testcase32 AC 25 ms 1216 KiB
10_testcase33 AC 25 ms 1336 KiB
10_testcase34 AC 25 ms 1332 KiB
10_testcase35 AC 24 ms 1268 KiB
10_testcase36 AC 24 ms 1336 KiB
10_testcase37 AC 24 ms 1336 KiB
10_testcase38 AC 26 ms 1300 KiB
10_testcase39 AC 25 ms 1208 KiB
10_testcase40 AC 25 ms 1340 KiB
10_testcase41 AC 25 ms 1232 KiB
10_testcase42 AC 25 ms 1340 KiB