Ver Fonte

Implement a prog to swap two inputs

DricomDragon há 5 anos atrás
pai
commit
2681135c7d
1 ficheiros alterados com 7 adições e 0 exclusões
  1. 7 0
      io_shuffle.hs

+ 7 - 0
io_shuffle.hs

@@ -0,0 +1,7 @@
+-- Slide 55
+-- It makes more sense to compile this file
+
+import Data.List
+
+main::IO()
+main = getLine >>= (\x -> getLine >>= (\y -> putStrLn (y ++ x)))