main = putStrLn "hello world" esCero :: Int -> Bool esCero x | x/=0 = False esPositivo :: Int -> Bool esPositivo x | x>0 = True paratodo :: [Bool] -> Bool paratodo [] = False paratodo (x:xs) | x == True = True && paratodo xs | x == False = False && paratodo xs sumatoria :: [Int] -> Int sumatoria [] = 0 sumatoria (x:xs) = x + sumatoria xs productoria :: [Int] -> Int productoria [] = 0 productoria (x:xs) = x*productoria xs factorial :: Int -> Int factorial 0 = 1 factorial x = x*factorial x-1 promedio :: [Int] -> Int promedio [] = 0 promedio (x:xs) = x+promedio xs/
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more