Ideone.com | Online Haskell Compiler & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 58430 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

12 days 20 hours ago view (lines: 7, size: 129, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
import Control.Monad
import Data.Char
 
main = forever $ do
        putStr "Give me some input: "
        1 <- getLine
        putStrLn $ map toUpper 1

12 days 20 hours ago view (lines: 12, size: 244, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
factorial :: Integer -> Integer
 
factorial 0 = 1
factorial n = n * factorial (n - 1)
 
factorial n = if n > 0 then n * factorial (n-1) else 1
 
factorial n = product [1..n]
 ...

12 days 21 hours ago view (lines: 32, size: 818, inputs: 1) Haskell Not running

1
2
3
4
5
6
7
8
9
import PointsRendering
import Graphics.UI.GLUT
import Graphics.Rendering.OpenGL
 
y :: GLfloat -> GLfloat
y x = x^2 / 4
 
makePoints :: (GLfloat -> GLfloat) -> [GLfloat] -> [Point]
makePoints f xs = map (\x -> (x, f x, 0)) xs
 ...

12 days 21 hours ago view (lines: 42, size: 966, inputs: 1) Haskell Not running

1
2
3
4
5
6
7
8
9
module PointsRendering (
    display,
    Point
) where
 
import Graphics.UI.GLUT
import Graphics.Rendering.OpenGL
import Random
 
 ...

12 days 21 hours ago view (lines: 11, size: 398, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | null lst      = lst
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst
 ...

12 days 21 hours ago view (lines: 11, size: 397, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil lst      = lst
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst
 ...

12 days 21 hours ago view (lines: 11, size: 394, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil xs     = xs
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst
 ...

12 days 21 hours ago view (lines: 12, size: 269, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
 
 
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil xs     = xs
 ...

12 days 21 hours ago view (lines: 10, size: 269, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil . xs     = xs
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst

12 days 21 hours ago view (lines: 12, size: 298, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort [4,2,40,0,13,10]
 
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil . xs     = xs
 ...

12 days 21 hours ago view (lines: 12, size: 298, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil . xs     = xs
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst

12 days 21 hours ago view (lines: 12, size: 296, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil . xs     = xs
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst

12 days 21 hours ago view (lines: 12, size: 296, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate lst@(x:xs)
                        | nil . xs     = xs
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst

12 days 21 hours ago view (lines: 15, size: 355, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
sort :: Ord a => [a] -> [a]
 
sort []         =  []
sort [x]        =  [x]
sort xs         =  merge (sort ys) (sort zs)
  where 
      (ys,zs) =  splitAt (length xs `div` 2) xs
       merge [] y=y
       merge x []=x
 ...

12 days 21 hours ago view (lines: 15, size: 354, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
sort :: Ord a => [a] -> [a]
 
sort []         =  []
sort [x]        =  [x]
sort xs         =  merge (sort ys) (sort zs)
  where 
      (ys,zs) =  splitAt (length xs `div` 2) xs
       merge [] y=y
       merge x []=x
 ...

12 days 21 hours ago view (lines: 12, size: 294, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where
                xs' = bubblesortIterate xs
                bubblesortIterate x:xs@lst
                        | nil . xs     = xs
                        | x <= head xs = x:bubblesortIterate xs
                        | otherwise    = bubblesortSwap lst
 ...

12 days 21 hours ago view (lines: 14, size: 349, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
sort :: Ord a => [a] -> [a]
 
sort []         =  []
sort [x]        =  [x]
sort xs         =  merge (sort ys) (sort zs)
  where 
      (ys,zs) =  splitAt (length xs `div` 2) xs
       merge [] y=y
       merge x []=x
 ...

12 days 21 hours ago view (lines: 14, size: 352, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
sort :: Ord a => [a] -> [a]
 
sort []         =  []
sort [x]        =  [x]
sort xs         =  merge (sort ys) (sort zs)
  where 
      (ys,zs) =  splitAt (length xs `div` 2) xs
       merge [] y=y
       merge x []=x
 ...

12 days 21 hours ago view (lines: 11, size: 301, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where xs' = bubblesortIterate xs
        where bubblesortIterate x:xs@lst =
                | nil . xs     = xs
                | x <= head xs = x:bubblesortIterate xs
                | otherwise    = bubblesortSwap lst
        where bubblesortSwap x:y:xs = y:x:xs
 ...

12 days 21 hours ago view (lines: 14, size: 355, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
sort :: Ord a => [a] -> [a]
 
sort []         =  []
sort [x]        =  [x]
sort xs         =  merge (sort ys) (sort zs)
  where 
      (ys,zs) =  splitAt (length xs `div` 2) xs
       merge [] y=y
       merge x []=x
 ...

12 days 21 hours ago view (lines: 11, size: 299, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where xs' = bubblesortIterate xs
        where bubblesortIterate x:xs@lst
                | nil . xs     = xs
                | x <= head xs = x:bubblesortIterate xs
                | otherwise    = bubblesortSwap lst
        where bubblesortSwap x:y:xs = y:x:xs
 ...

12 days 21 hours ago view (lines: 14, size: 353, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
sort :: Ord a => [a] -> [a]
 
sort []         =  []
sort [x]        =  [x]
sort xs         =  merge (sort ys) (sort zs)
  where 
      (ys,zs) =  splitAt (length xs `div` 2) xs
       merge [] y=y
       merge x []=x
 ...

12 days 21 hours ago view (lines: 11, size: 303, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
bubblesort xs =
        | xs == xs' = xs'
        | otherwise = bubblesort xs'
        where xs' = bubblesortIterate xs
        where bubblesortIterate x:xs@lst =
                | nil . xs     = xs
                | x <= head xs = x:bubblesortIterate xs
                | otherwise    = bubblesortSwap lst
        where bubblesortSwap x:y:xs = y:x:xs
 ...

12 days 22 hours ago view (lines: 2, size: 51, inputs: 1) Haskell Compilation error

1
2
olamundo :: IO()
olamundo = putStrLn "Olá, Mundo!"

12 days 23 hours ago view (lines: 19, size: 534, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
import Data.List
import Text.Regex
import System.Random
import Data.Ord
 
type Point     = (Float,Float)
type Color     = (Int,Int,Int)
type Polygon   = [Point]
type Person    = [Int]
 ...

12 days 23 hours ago view (lines: 3, size: 42, inputs: 1) Haskell Compilation error

1
2
3
import Data.Ord
main = do
        min 9 10

12 days 23 hours ago view (lines: 2, size: 19, inputs: 1) Haskell Compilation error

1
2
main = do
        min 9 10

12 days 23 hours ago view (lines: 10, size: 381, inputs: 1) Haskell Success

1
2
3
4
5
6
7
8
9
    import Data.Char  
      
    main = do  
        putStrLn "What's your first name?"  
        firstName <- getLine  
        putStrLn "What's your last name?"  
        lastName <- getLine  
        let bigFirstName = map toUpper firstName  
            bigLastName = map toUpper lastName

12 days 23 hours ago view (lines: 2, size: 27, inputs: 1) Haskell Success

1
2
main = do 
        putStrLn "HEEY"

12 days 23 hours ago view (lines: 1, size: 15, inputs: 1) Haskell Compilation error

1
putStrLn "HEEY"

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8	factorial :: Integer -> Integer factorial 0 = 1 factorial n = n * factorial (n - 1) factorial n = if n > 0 then n * factorial (n-1) else 1 factorial n = product [1..n]
...

1 2 3 4 5 6 7 8 9	module PointsRendering ( display, Point ) where import Graphics.UI.GLUT import Graphics.Rendering.OpenGL import Random
...

1 2 3 4 5 6 7 8 9	bubblesort xs \| xs == xs' = xs' \| otherwise = bubblesort xs' where xs' = bubblesortIterate xs bubblesortIterate lst@(x:xs) \| nil xs = xs
...

1 2 3 4 5 6 7 8 9	bubblesort [4,2,40,0,13,10] bubblesort xs \| xs == xs' = xs' \| otherwise = bubblesort xs' where xs' = bubblesortIterate xs bubblesortIterate lst@(x:xs) \| nil . xs = xs
...

1 2 3 4 5 6 7 8 9	sort :: Ord a => [a] -> [a] sort [] = [] sort [x] = [x] sort xs = merge (sort ys) (sort zs) where (ys,zs) = splitAt (length xs `div` 2) xs merge [] y=y merge x []=x
...

1 2 3 4 5 6 7 8 9	import Data.List import Text.Regex import System.Random import Data.Ord type Point = (Float,Float) type Color = (Int,Int,Int) type Polygon = [Point] type Person = [Int]
...

UsernamePassword

Username
Password