elderica

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int itoa(int, char*, const int);
void reverseString(char*);

int main(void)
{
    char buf[100];

elderica

import System.Cmd (system)
import System.Environment (getArgs)
import Data.Text (breakOn, pack, unpack)
import Data.Maybe (fromJust)

compilers = [
              (".hs", "ghc"),
              (".c", "make")
            ]

elderica

import System.Cmd (system)
import System.Environment (getArgs)
import Data.Text (breakOn, pack, unpack)
import Data.Maybe (fromJust)

compilers = [
              (".hs", "ghc"),
              (".c", "make")
            ]

elderica

main = print $ id' 5

id' = id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.
       id.id.id.id.id.id.id.id.id.d.id.id.id.id.id.id.id.id.id.id.id.id.

elderica

import System.CPUTime
import Control.Applicative

main = do
  t <- fromInteger <$> getCPUTime
  print $ t `div` 1000

elderica

main = print $ sum' [1..10000000000000]

sum' xs = foldl' (+) 0 xs
foldl' _ x [] = x
foldl' op x (y:ys) = let !z = x `op` y in foldl' op z ys

elderica

日本語 = id
main = print $ 日本語 5

elderica

foldl' _ x [] = x
foldl' op x (y:ys) = let !z = x `op` y in foldl' op z ys

elderica

main = do
  putStr "  X=? "
  x <- read `fmap` getLine
  putStr "  Y=? "
  y <- read `fmap` getLine
  putStrLn.show $ x + y

elderica

import System.IO.Unsafe (unsafePerformIO)
import System.IO (hFlush, stdout)
import System.Random (randomRIO)
import Control.Monad (foldM_)
import Data.Functor ((<$>))
import System.Exit (exitSuccess)

-- prerequisite
mapSize :: Int
mapSize = 9