fork download
  1. -- https://q...content-available-to-author-only...a.com/kerupani129/items/333155e5e2dee644d6dc のコードを実行して試す
  2. main :: IO ()
  3. main = do
  4.  
  5. print $ ([23] :: [Int]) <> ([42] :: [Int])
  6.  
  7. print $ (Right 23 :: Either String Int) <> (Right 42 :: Either String Int)
  8.  
  9. print $ (() :: ()) <> (() :: ())
  10.  
  11. print =<< (pure () :: IO ()) <> (pure () :: IO ())
Success #stdin #stdout 0s 5320KB
stdin
Standard input is empty
stdout
[23,42]
Right 23
()
()