icfp/icfp13
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix list encoding

Browse Source
This commit is contained in:
Stefan Bühler 2010-06-23 14:01:11 +02:00
parent 61a2808d71
commit 2d46e5039e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Encoding.hs
View File

@ -105,7 +105,7 @@ instance Encode a => Encode [a] where
_ -> fail "Unexpected end of stream" _ -> fail "Unexpected end of stream"
sencode [] = [T0] sencode [] = [T0]
sencode [x] = T1:sencode x sencode [x] = T1:sencode x
sencode xs = (sencode $ length xs - 2) ++ concat (map sencode xs) sencode xs = T2:T2:(sencode $ length xs - 2) ++ concat (map sencode xs)
instance Encode Int where instance Encode Int where
sdecode = do sdecode = do