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: 47036 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

10 days 13 hours ago view (lines: 1, size: 3, inputs: 1) Haskell Compilation error

1
5+3

10 days 15 hours ago view (lines: 8, size: 135, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
{-# LANGUAGE DeriveDataTypeable #-}
 
import Data.Data
import Data.Typeable
 
data MyFun = MyFun (Int -> Int) deriving (Data, Typeable)

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

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

10 days 19 hours ago view (lines: 5, size: 109, inputs: 1) Haskell Success

1
2
3
4
5
import Debug.Trace
 
mycons xs x | trace (show xs) True = x:xs
 
main = putStrLn.show $ foldl mycons [] [1..10]

10 days 20 hours ago view (lines: 6, size: 100, inputs: 1) Haskell Success

1
2
3
4
5
6
right = foldr (:) [1] [2,3,4]
--left = foldl (:) [1] [2,3,4]
 
main = do
  print right
--  print left

10 days 20 hours ago view (lines: 6, size: 96, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
right = foldr (:) [1] [2,3,4]
left = foldl (:) [1] [2,3,4]
 
main = do
  print right
  print left

11 days 2 hours ago view (lines: 5, size: 88, inputs: 1) Haskell Success elsom25

1
2
3
4
5
module Main where
 
        main = putStrLn (stringMod (-5) 2)
        
        stringMod x y = show (mod x y)

11 days 5 hours ago view (lines: 4, size: 71, inputs: 1) Haskell Success runthis

1
2
3
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
 
main = print $ fibs !! 10

9 days 13 hours ago view (lines: 24, size: 815, inputs: 1) Haskell Success vadimvinnik

1
2
3
4
5
6
7
8
9
--
-- addition of very long integers
--
 
import Data.Char
import Data.String
 
addRev [] [] 0 = []
addRev la [] c = addRev la [0] c
 ...

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

1
f=showHex 12

11 days 10 hours ago view (lines: 1, size: 3, inputs: 1) Haskell Compilation error

1
1+2

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

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

11 days 10 hours ago view (lines: 13, size: 343, inputs: 1) Haskell Runtime error

1
2
3
4
5
6
7
8
9
main = do 
        print $ pr 100000
 
pr :: Int -> [Int]
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
      | a <= 5 = [2,3,5]
 ...

11 days 11 hours ago view (lines: 12, size: 271, inputs: 1) Haskell Success

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

11 days 13 hours ago view (lines: 74, size: 1870, inputs: 1) Haskell Not running

1
2
3
4
5
6
7
8
9
module Arith where
 
    import Control.Monad.Error
    import Control.Monad.Identity
 
    data Term =
        TmTrue
      | TmFalse
      | TmIf Term Term Term
 ...

11 days 14 hours ago view (lines: 13, size: 259, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
import Control.Monad.Trans.Reader
 
add :: (Num a) -> a -> Reader a a
add num = do
    otherNum <- ask
    return (num + otherNum)
    
main = do
    let answer = (`runReader` 5) $ do
 ...

11 days 14 hours ago view (lines: 13, size: 253, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
import Control.Monad.Reader
 
add :: (Num a) -> a -> Reader a a
add num = do
    otherNum <- ask
    return (num + otherNum)
    
main = do
    let answer = (`runReader` 5) $ do
 ...

11 days 14 hours ago view (lines: 24, size: 117, inputs: 1) Haskell Compilation error

11 days 14 hours ago view (lines: 14, size: 332, inputs: 1) Haskell Success

1
2
3
4
5
6
7
8
9
 
main = do 
        print $ pr 100
 
pr :: Int -> [Int]
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
 ...

11 days 14 hours ago view (lines: 14, size: 332, inputs: 1) Haskell Success

1
2
3
4
5
6
7
8
9
 
main = do 
        print $ pr 100
 
pr :: Int -> [Int]
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
 ...

11 days 14 hours ago view (lines: 14, size: 332, inputs: 1) Haskell Success

1
2
3
4
5
6
7
8
9
 
main = do 
        print $ pr 100
 
pr :: Int -> [Int]
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
 ...

11 days 15 hours ago view (lines: 14, size: 332, inputs: 1) Haskell Success

1
2
3
4
5
6
7
8
9
 
main = do 
        print $ pr 100
 
pr :: Int -> [Int]
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
 ...

11 days 15 hours ago view (lines: 4, size: 26, inputs: 1) Haskell Success

1
2
3
 
main = do 
        print [1..5]

11 days 15 hours ago view (lines: 4, size: 20, inputs: 1) Haskell Compilation error

1
2
3
 
main = do 
        [1..5]

11 days 15 hours ago view (lines: 14, size: 324, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
 
main = do 
        pr 100
 
pr :: Int -> [Int]
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
 ...

11 days 15 hours ago view (lines: 13, size: 305, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
 
main = do 
        pr 100
 
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
      | a <= 5 = [2,3,5]
 ...

11 days 15 hours ago view (lines: 13, size: 317, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
9
 
main::IO()
main =  do $ pr 100
 
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
      | a <= 5 = [2,3,5]
 ...

11 days 15 hours ago view (lines: 10, size: 291, inputs: 1) Haskell Compilation error

1
2
3
4
5
6
7
8
pr a 
      | a <= 0 = error "fu"
      | a <= 2 = [2]
      | a <= 3 = [2,3]
      | a <= 5 = [2,3,5]
      | a <= 7 = [2,3,5,7]
      | a <= 9 = [2,3,5,7,9]
      | otherwise = [2,3,5,7,9] ++ [ x | x <- [9..a], x`mod`2 /= 0, x`mod`3 /= 0, x`mod`5 /= 0, x`mod`7 /= 0, x`mod`9 /= 0 ]

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

1
2
3
4
5
6
7
8
9
def sieve(n):
    is_prime = [True for i in xrange(n)]
    is_prime[0] = is_prime[1] = False
    primes = []
    for prime, is_p in enumerate(is_prime):
        if is_p:
            for i in xrange(prime*2, n, prime):
                is_prime[i] = False
            primes.append(prime)
 ...

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

1
2
3
4
5
6
7
8
9
def sieve(n):
    is_prime = [True for i in xrange(n)]
    is_prime[0] = is_prime[1] = False
    primes = []
    for prime, is_p in enumerate(is_prime):
        if is_p:
            for i in xrange(prime*2, n, prime):
                is_prime[i] = False
            primes.append(prime)
 ...

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 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 9	-- -- addition of very long integers -- import Data.Char import Data.String addRev [] [] 0 = [] addRev la [] c = addRev la [0] c
...

1 2 3 4 5 6 7 8 9	main = do print $ pr 100000 pr :: Int -> [Int] pr a \| a <= 0 = error "fu" \| a <= 2 = [2] \| a <= 3 = [2,3] \| a <= 5 = [2,3,5]
...

1 2 3 4 5 6 7 8 9	module Arith where import Control.Monad.Error import Control.Monad.Identity data Term = TmTrue \| TmFalse \| TmIf Term Term Term
...

1 2 3 4 5 6 7 8 9	import Control.Monad.Trans.Reader add :: (Num a) -> a -> Reader a a add num = do otherNum <- ask return (num + otherNum) main = do let answer = (`runReader` 5) $ do
...

1 2 3 4 5 6 7 8 9	import Control.Monad.Reader add :: (Num a) -> a -> Reader a a add num = do otherNum <- ask return (num + otherNum) main = do let answer = (`runReader` 5) $ do
...

1 2 3 4 5 6 7 8 9	main = do print $ pr 100 pr :: Int -> [Int] pr a \| a <= 0 = error "fu" \| a <= 2 = [2] \| a <= 3 = [2,3]
...

1 2 3 4 5 6 7 8 9	main = do pr 100 pr :: Int -> [Int] pr a \| a <= 0 = error "fu" \| a <= 2 = [2] \| a <= 3 = [2,3]
...

1 2 3 4 5 6 7 8 9	main = do pr 100 pr a \| a <= 0 = error "fu" \| a <= 2 = [2] \| a <= 3 = [2,3] \| a <= 5 = [2,3,5]
...

1 2 3 4 5 6 7 8 9	main::IO() main = do $ pr 100 pr a \| a <= 0 = error "fu" \| a <= 2 = [2] \| a <= 3 = [2,3] \| a <= 5 = [2,3,5]
...

UsernamePassword

Username
Password