Submission #146815

---

Source Code Expand

import Data.List
import Data.Char
import Data.Maybe
import Data.Tuple
import Debug.Trace
import Data.Array
import Data.Array.IO
import Control.Monad
import Control.Applicative
import Control.Arrow
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as M
import Text.Printf

readInt :: B.ByteString -> Int
readInt = fst . fromJust . B.readInt

readInt2 :: B.ByteString -> (Int, Int)
readInt2 = l2t . map readInt . B.words
readInt3 :: B.ByteString -> (Int, Int, Int)
readInt3 = l3t . map readInt . B.words

l2t [x,y] = (x,y)
l3t [x,y,z] = (x,y,z)

(|>) x f = f x; infixl 1 |>
car = head
cdr = tail
cadr = car . cdr
cddr = cdr . cdr
caddr = car . cddr

main :: IO ()
main = do
    ls <- B.lines <$> B.getContents
    let (n, m) = ls |> car |> readInt2
    print $ m `div` n

Submission Info

Judge Result