1
2
3
4
5
6
7
8
9
module Main where
 
    import Control.Monad.Identity
    import Control.Arrow (second)
    import Text.Parsec
 
    data Term = Var String
      | Idx Int
      | Abs Term
 ...

1
2
let a = 1
let square x = x * x

1
2
3
4
5
6
import System.IO
 
quicksort []     = []
quicksort (x:xs) = quicksort [y | y <- xs, y < x] ++ [x] ++ quicksort [y | y <- xs, y >= x]
 
main = print . quicksort =<< getLine

1
2
3
let lostnumbers = [4,8,15,16,32]
 
lostnumbers

1
2
3
let lostnumbers= [4,8,15,16,32]
 
lostnumbers

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

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

1
2
3
4
5
6
7
8
9
{-# OPTIONS_GHC -O2 #-}
import Control.Monad
import Control.Applicative
import Text.Printf
import Data.List
import Data.Array.Unboxed
import qualified Data.Map as M
import Control.Monad.ST
import Data.Array.ST
 ...

1
2
3
4
x = 10
y = 10
 
main = putStrLn $ show $ (x + y)

1
2
3
4
x = 10
y = 10
 
main = putStrLn $ read $ (x + y)

1
2
3
4
5
6
7
8
9
    <!--?php <br /-->function doFactorial ($x) {   
        if ($x <= 1)   
            return 1;   
        else   
            return ($x * doFactorial ($x-1));   
    }   
      
    while($i<100)  
    {  
 ...

1
2
3
4
5
6
7
8
9
<?php
if ((($_FILES["file"]["type"] == "image/gif")
|| ($_FILES["file"]["type"] == "image/jpeg")
|| ($_FILES["file"]["type"] == "image/pjpeg"))
&& ($_FILES["file"]["size"] < 20000))
  {
  if ($_FILES["file"]["error"] > 0)
    {
    echo "Return Code: " . $_FILES["file"]["error"] . "<br />";
 ...

1
puts "hello"

1
print "hello"

1
print "Kode Multus"

1
2
3
4
5
6
7
8
9
module Main where
 
    import Control.Monad.Identity
    import Text.Parsec
 
    data Term = Var String
      | Idx Int
      | Abs Term
      | App Term Term
 ...

1
2
3
4
5
6
7
8
import Data.Array
import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Control.Applicative
import Control.Monad.ST
 
ary_fact = listArray (0,500) fact
 where fact = 1:zipWith (*) [1..] fact
 ...

1
2
3
4
5
6
7
8
import Data.Array
import qualified Data.ByteString.Char8 as BS
import Control.Monad
import Control.Applicative
import Control.Monad.ST
 
ary_fact = listArray (0,500) fact
 where fact = 1:zipWith (*) [1..] fact
 ...

1
main = [1..]

1
main = [1..]

1
main = [1..]

1
main = putStrLn $ map succ "Hello, world!"

1
[1..]

1
map id "Hello, world"

1
[1..]

1
map id "Hello, world"

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

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

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

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