1
2
3
4
5
6
7
8
9
import qualified Data.Foldable as F
import Control.Monad
import Control.Monad.Instances
 
monkeyNum :: Integer -> Integer
monkeyNum = F.foldMap ((^ 5) . read . (:[])) . show
 
isMonkey :: Integer -> Bool
isMonkey = monkeyNum >>= (==)
 ...

1
2
3
4
5
6
7
8
9
import Data.Foldable
import Control.Monad
import Control.Monad.Instances
 
monkeyNum :: Integer -> Integer
monkeyNum = foldMap ((^ 5) . read . (:[])) . show
 
isMonkey :: Integer -> Bool
isMonkey = monkeyNum >>= (==)
 ...

1
2
3
4
5
6
7
8
9
bottles :: Int -> String
bottles n
        |n == 0 = "no more bottles"
        |n == 1 = "1 bottle"
        |n >  1 = show n ++ " bottles"
 
verse :: Int -> String
verse n
        |n == 0 = "No more bottles of beer on the wall, no more bottles of beer.\n"
 ...

1
main = putStrLn "Hello, World!"

1
2
3
4
5
6
7
8
9
-- prime numbers
 
import Data.List
 
sieve n l [] = l
 
sieve n l (x:u) = sieve n (x:l) (u \\ [i * x | i <- [1..(div n x)]])
 
primesBelow n = sieve n [] [2..n]
 ...

1
2
3
4
5
6
7
8
9
import Data.List
import Data.Function
import Control.Monad
import System.IO
 
average xs = sum xs / fromIntegral (length xs)
 
d4 :: (Fractional t, Ord t) => [t] -> [t]
d4 xs | d > difference * 4 = d4 withoutV
 ...

1
2
3
4
5
6
7
8
9
import Data.List
import Data.Function
import Control.Monad
import System.IO
 
average xs = sum xs / fromIntegral (length xs)
 
d4 :: (Fractional t, Ord t) => [t] -> [t]
d4 xs | d > difference * 4 = d4 withoutV
 ...

1
2
3
4
5
6
7
8
9
import Data.List
 
main = do
  name1 <- getLine
  name2 <- getLine      
  putStr $ show $ flames name1 name2
 
flames :: [Char] -> [Char] -> Char
flames name1 name2 = flames' count where
 ...

1
2
3
f = length "abc"
 
main = putStrLn ""

1
2
3
f = length "abc"
 
main = putstrLn ""

1
f = length "abc"

1
2
3
4
5
6
7
8
9
                                                                     
                                                                     
                                             
obtenerMinutos :: (String, Int, Int, Int) -> Int
obtenerMinutos (w, x, y, z) = (y*60)+z
 
diff :: (String, Int, Int, Int) -> (String, Int, Int, Int) -> Int
diff x y | (obtenerMinutos x) > (obtenerMinutos y) = (obtenerMinutos x) - (obtenerMinutos y)
         | otherwise = (obtenerMinutos y) - (obtenerMinutos x)
 ...

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 ""

1
2
3
4
5
6
7
8
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0.0
sumTuple n = sum [insideSum x | x <- n]
 where 
  insideSum :: (Float, Float) -> Float
  insideSum (a, b) = a + b
 
main = print ""

1
2
3
4
5
6
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0.0
sumTuple n = sum [insideSum x | x <- n]
 where 
  insideSum :: (Float, Float) -> Float
  insideSum (a, b) = a + b

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

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

1
2
3
4
5
6
7
8
9
floatIO :: Float -> IO Float
floatIO x = x
 
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
7
8
9
floatIO :: Float -> IO Float
floatIO x = x
 
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
7
8
9
floatIO :: Float -> IO Float
floatIO x = x
 
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
7
8
9
insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b
 
sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs
 
main = do
        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 = 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 = print "asdf"

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 = print insideSum 2.0,1.1

1
main = print 2.1

1
main = print 2

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)