Run Code
|
API
|
Code Wall
|
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
Reader
My "tying the knot"
Welcome
Modular arithmetic with propagating type-checked modulus
Test
ReaderPractice
project euler 5, haskell
boolean functions of zero arguments in haskell
Pascal's triangle in 10 lines
project euler 8, haskell