Submission #201490

---

Source Code Expand

{-# LANGUAGE BangPatterns        #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies        #-}

import           Control.Applicative
import           Control.Arrow
import           Control.Monad
import           Data.Array.IO
import           Data.Array.Unboxed
import qualified Data.ByteString.Char8 as C
import           Data.Char
import qualified Data.Foldable         as F
import           Data.Function
import           Data.Functor
import           Data.Int
import qualified Data.IntMap           as M
import           Data.IORef
import           Data.List
import           Data.Maybe
import           Data.Monoid
import qualified Data.Sequence         as Seq
import qualified Data.Set              as S
import           Data.Word
import           Debug.Trace
import           Text.Printf

-- I/O

readInts :: C.ByteString -> [Int]
readInts = map fst . mapMaybe C.readInt . C.words

getInts :: IO [Int]
getInts = readInts <$> C.getLine

readNums :: Num a => C.ByteString -> [a]
readNums = map (fromIntegral . fst) . mapMaybe C.readInteger . C.words

getNums :: Num a => IO [a]
getNums = readNums <$> C.getLine

cast :: (Integral a, Num b) => a -> b
cast = fromIntegral

-----

main :: IO ()
main = do
  n :: Int <- readLn
  let s = sum [ i*j | i <- [1..9], j <- [1..9] ]
      diff = s - n
  sequence_ [ printf "%d x %d\n" i j | i <- [1..9], j <- [1..9], i * j == diff ]

Submission Info

Judge Result