main=do a <- getLine b <- getLine let _a = read a :: Integer let _b = read b :: Integer print (div _a _b)
用C语言写也大同小异 haskell水题是真的爽(((