1
2
3
4
5
6
7
8
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = print insideSum(2.0,1.1)

1
2
3
4
5
6
7
8
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = put insideSum(2.0,1.1)

1
2
3
4
5
6
7
8
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = putStrLn insideSum(2.0,1.1)

1
main = putStrLn "Hi"

1
2
main :: [Char]
main = "Hi"

1
2
main :: Char
main = "Hi"

1
main = "Hi"

1
"Hi"

1
main = "Hi"

1
2
3
4
5
6
7
8
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = insideSum(2.0,1.1)

1
2
3
4
5
6
7
8
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = sumTuple [(1.7,6.0),(4.3,-1.0),(9.1, 0.0)]

1
2
3
4
5
6
7
8
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = sumTuple [(1.7,6.0),(4.3,-1.0),(9.1, 0.0)]

1
2
3
4
5
6
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs

1
2
3
4
5
6
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple [x:xs] = insideSum x + sumTuple xs

1
2
3
4
5
6
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple [x] = insideSum head x + sumTuple tail x

1
2
3
4
5
6
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple x = insideSum head x + sumTuple tail x

1
2
3
4
5
6
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple x = insideSum head x + sumTuple tail x
 
insideSum :: (Float, Float) -> Float
insideSum x = head x + tail x

1
2
3
4
5
6
import System.IO
 
quicksort []     = []
quicksort (x:xs) = quicksort [y | y <- xs, y < x] ++ [x] ++ quicksort [y | y <- xs, y >= x]
 
main = print . quicksort =<< getLine

1
2
3
4
5
6
7
8
import Data.List
import Data.Function
 
isPrick :: Integer -> Bool
isPrick = (== 1) . length . nubBy ((==) `on` (sort . show)) . flip map [1..6] . (*)
 
main :: IO ()
main = print $ find flip map [1..6] . (*)

1
2
3
4
5
6
7
8
import Data.List
import Data.Function
 
isPrick :: Integer -> Bool
isPrick = (== 1) . length . nubBy ((==) `on` (sort . show)) . flip map [1..6] . (*)
 
main :: IO ()
main = print $ find isPrick [1..]

1
2
map f [1 .. 10]
   where f x = x * x

1
main = 1+1

1
a = 1+1

1
 let a = 1+1

1
 

1
2
3
4
5
6
7
8
9
main = do
         x <- readNum
         if x == 42
           then putStr("")
           else do
             putStr  (show (x) ++ "\n")
             main
       where
         readNum :: IO Integer
 ...

1
2
3
4
5
6
7
8
import Data.List
import Data.Function
 
isPrick :: Integer -> Bool
isPrick = (== 1) . length . nubBy ((==) `on` (sort . show)) . flip map [1..6] . (*)
 
main :: IO ()
main = print $ find isPrick [1..]

1
2
3
4
5
6
7
8
9
module Main where
 
import Data.List(foldl', sortBy)
import Text.Regex.Posix
import qualified Data.Map as Map
 
type FloodCount = Map.Map String Int
 
countFlood :: [String] -> FloodCount
 ...

1
2
3
4
commonElements :: Eq a => [a] -> [a] -> Bool
commonElements x y = or (map (or . ((flip map) y)) (map (==) x))
 
commonElements((1, 2, 11), (1, 11))

1
2
main = do 
           putStrLn "Hello boza"