nonowarn

{-# LANGUAGE ForeignFunctionInterface #-}

import Foreign
import Foreign.C.Types
import Control.Applicative

foreign import ccall "stdlib.h qsort"
    c_qsort :: Ptr a
            -> CSize
            -> CSize

nonowarn

/* Copied, Pasted and summarized from ps' source code.
   You can use sysctl to get other process' argv.
 */

#include <sys/sysctl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define pid_of(pproc) pproc->kp_proc.p_pid

nonowarn

=
GHC 6.12 の Unicode I/O

Yusaku Hashimoto
<nonowarn@gmail.com>
-
自己紹介
-
京都の組み込み系専門学生の
皮をかぶった Haskeller

nonowarn

require "benchmark"

class Array
  def duplicates_reject_uniq
    reject { |e| count(e) <= 1 }.uniq
  end

  def duplicates_uniq_reject
    uniq.reject { |e| count(e) <= 1 }
  end

nonowarn

(function (win, doc) {
  var by = {}, slice = [].slice, type2method = {
    id: "getElementById",
    className: "getElementsByClassName",
    tagName: "getElementsByTagName",
    query: "querySelectorAll"
  };

  for (var type in type2method) if (type2method[type] in doc) (function (type, method) {
    by[type] = method.match(/(?:Elements|All)/) ? function () {

nonowarn

class Proc
  def on(g)
    f = self
    -> a, b { f[g[a], g[b]] }
  end
end

class Symbol
  def to_func
    -> this, *args { this.__send__ self, *args }

nonowarn

instance Fractional Integer where
    fromRational x = 0
instance Fractional Int where
    fromRational x = 1

a :: Int
a = 0

b :: Fractional a => a

nonowarn

{-# LANGUAGE NoMonomorphismRestriction #-}

data N = A | B | C | D

instance Num N where
    fromInteger 0 = C
    fromInteger 1 = B
    A + B = B
    A + C = C
    A + D = B

nonowarn

class H
  def initialize(hash) @hash = hash end
  def method_missing(name, *args)
    if name =~ /([^=]+)=$/
      return @hash[$1.intern] = args.first
    end
    @hash[name] || @hash[name.to_s]
  end
end

nonowarn

-- based on http://okmij.org/ftp/Haskell/de-typechecker.lhs

{-# LANGUAGE IncoherentInstances,UndecidableInstances #-}

data HTrue
data HFalse

instance Show HTrue  where show _ = "HTrue"
instance Show HFalse where show _ = "HFalse"