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
New wall
sumer
Square root
Test
Modeling algebraic understanding with Haskell in KS1
Reader
Haskell Tree example
Producter
equiv_strings
Derive type class for parameterized data type