Submission #432326

---

Source Code Expand

import Data.List
import Control.Monad
import Data.Set (Set)
import qualified Data.Set as S

getInt :: IO Int
getInt = getLine >>= return . read

getInts :: IO [Int]
getInts = getLine >>= \s -> return (map read (words s))

getInteger :: IO Integer
getInteger = getLine >>= return . read

getIntegers :: IO [Integer]
getIntegers = getLine >>= \s -> return (map read (words s))

getStrings :: IO [String]
getStrings = getLine >>= return . words

readInt :: String -> Int
readInt = read

readInteger :: String -> Integer
readInteger = read

intToInteger :: Int -> Integer
intToInteger = toEnum

integerToInt :: Integer -> Int
integerToInt = fromEnum

doubleToInteger :: Double -> Integer
doubleToInteger = truncate

integerToDouble :: Integer -> Double
integerToDouble = fromIntegral

doubleToInt :: Double -> Int
doubleToInt = truncate

intToDouble :: Int -> Double
intToDouble = fromIntegral

getMaybe Nothing = undefined
getMaybe (Just a) = a

main = do
  s <- getLine
  n <- getInt
  putStrLn $ [ [c1, c2] | c1 <- s, c2 <- s ] !! (n - 1)
 

Submission Info

Judge Result