Submission #371301

---

Source Code Expand

{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UnboxedTuples #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE ExplicitForAll #-}

import qualified Data.ByteString.Char8 as BS
import Data.Function
import Data.List

main :: IO ()
main = do
  BS.putStrLn . (!!1000) . iterate solve =<< BS.getLine

solve :: BS.ByteString -> BS.ByteString
solve = BS.pack . unwords . concat . process . groupBy ((==) `on` (=="not")) . words . BS.unpack 
  where
    process [] = []
    process list = map contract (init list) ++ [last list]
    contract xs
      | head xs /= "not" = xs
      | even (length xs) = []
      | otherwise = ["not"]

Submission Info

Judge Result