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 1, haskel
project euler 7, haskell
Kleiner dan tien
Exercise
Fibonacci proof
Quicksort in Haskell
Haskell Tree example
project euler 4, haskell
Knight Journey
znajdywacz trojkatow prostokatnych
Please log in to post a comment.