コード圧縮
Posted feedbacks - Haskell
こんな感じでしょうか
$ runhaskell HaskellParser.hs < HaskellParser.hs
module Main where { import Language.Haskell.Parser; import Language.Haskell.Pretty; import Language.Haskell.Syntax; import Text.PrettyPrint.HughesPJ; main = do { (ParseOk x) <- return . parseModule =<< getContents; putStrLn $ prettyPrintStyleMode (Style OneLineMode maxBound 0) defaultMode{layout = PPSemiColon} x}}
1 2 3 4 5 6 7 8 9 10 | module Main where
import Language.Haskell.Parser
import Language.Haskell.Pretty
import Language.Haskell.Syntax
import Text.PrettyPrint.HughesPJ
main = do
(ParseOk x) <- return . parseModule =<< getContents
putStrLn $ prettyPrintStyleMode (Style OneLineMode maxBound 0) defaultMode {layout = PPSemiColon} x
|


sweetie089 #6664() Rating-6/10=-0.60
[ reply ]