1
2
3
import Text.Regex.Posix
 
main = splitRegex (mkRegex "\\s*,\\s*") "eggs,ham, whatever"

1
2
3
import Text.Regex
 
main = splitRegex (mkRegex "\\s*,\\s*") "eggs,ham, whatever"

1
2
3
import Text.Regex
 
main = splitRegex (mkRegex "\\s*,\\s*") "eggs,ham, whatever"

1
<script>alert(1);</script>

1
let fac n = if n == 0 then 1 else n * fac (n-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
main = putStrLn "hello"

1
putStrLn "hello"

1
2
3
4
5
6
7
local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
  local a = read(num)
  if a == 42 then return end
  write(a, nl)
end

1
2
int i = 0;
i++;

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
main = putStrLn "Hello World"

1
putStrLn "Hello World"

1
main = print "sdas"

1
print "sdas"

1
2
Foo::Int->Int
        Foo x = x + 1

1
2
Foo::Int -> Int
        Foo x = x + 1

1
main = putStrLn "qwer"

1
putStrLn "qwer"

1
Data a 

1
2
3
4
5
6
7
8
9
fibs :: [Integer]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
 
primes :: [Integer]
primes = sieve [2 ..] where
           sieve (p : ns) = p : sieve [n | n <- ns, n `mod` p /= 0]
 
main :: IO ()
main = do
 ...

1
2
3
4
5
fibs :: [Integer]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
 
main :: IO ()
main = print $ take 10 fibs

1
2
3
4
5
fact :: Integer -> Integer
fact 0 = 1
fact n = n * fact (n - 1)
 
fact 10

1
2
3
4
5
6
7
8
9
import Char
 
-- .- -- .-
-- .-
-- --- -. .- -.. ..-
-- -. .- --
 
impera :: Integer -> [Integer] 
impera 0 = []
 ...

1
2
3
4
5
6
7
8
9
import Control.Monad       -- 例で使う
 
-- | `Tick' monad. Tick is not a monad transformer!!
newtype Tick m a = Tick {untick :: m () -> TickCase m a}
data TickCase m a = Wrap (m a) | Return a
 
 
-- | Runs tick monad.
runTick :: Monad m => Tick m a -> m () -> m a
 ...

1
2
3
4
5
6
7
8
9
import Control.Monad       -- 例で使う
 
-- | `Tick' monad. Tick is not a monad transformer!!
newtype Tick m a = Tick {untick :: m () -> TickCase m a}
data TickCase m a = Wrap (m a) | Return a
 
 
-- | Runs tick monad.
runTick :: Monad m => Tick m a -> m () -> m a
 ...

1
2
3
4
5
6
7
8
9
import Control.Monad       -- 例で使う
import Control.Monad.State -- 例で使う
 
-- | `Tick' monad. Tick is not a monad transformer!!
newtype Tick m a = Tick {untick :: m () -> TickCase m a}
data TickCase m a = Wrap (m a) | Return a
 
 
-- | Runs tick monad.
 ...

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
while (s=gets.chomp()) != "42" do puts s end

1