Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Advansed Hello Word
--ghc 8.0.2 module Main where import Data.List main :: IO() main = print ( addprefix.decoder.encoder.decoder.encoder.decoder.encoder.decoder.encoder.decoder.encoder.decoder $ code) where addprefix :: [String]->[String] addprefix = \xs -> "result:":xs code = 1 ::Int encoder :: [String]->Int encoder a | a == ["Hello" , "world!"] = 1 | a == ["Hello" , "new world!"] = 2 | a == ["Hello" , "old world!"] = 3 |otherwise = 0 decoder :: Int->[String] decoder a | a == 1 = ["Hello" , "world!"] | a == 2 = ["Hello" , "new world!"] | a == 3 = ["Hello" , "old world!"] |otherwise = ["Something Unknown"]
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
project euler 5, haskell
Haskell remove item by index
Invert a monotonic function
Quicksort in Haskell
project euler 4, haskell
Exercise
project euler 6, haskell
Forkitup
Haskell Prime Factorizer
haskell_exam
Please log in to post a comment.