My Weblog

Blog about programming and math

SPOJ 5676. STONE GAME

SPOJ STONE GAME reminded me last problem of this year’s code jam qualification round . Same code with minor modification.

import Data.List

solve::[Integer]-> String
solve xs = if mod ( length . filter ( == True ) . zipWith ( == ) [1..] $ xs ) 2 == 0 then "BOB" else "ALICE"

removeOdd :: [String] -> [String]
removeOdd [] = []
removeOdd (_:x:xs) = x : removeOdd xs

main = interact $ unlines . map ( solve . map read . words ) . removeOdd. tail.lines
Advertisements

May 25, 2011 - Posted by | Programming | ,

No comments yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: