Skip to content

Instantly share code, notes, and snippets.

View oskimura's full-sized avatar

oskimura oskimura

90 followers · 282 following
  • tokyo
View GitHub Profile
@oskimura
oskimura / Random2.scm
Created March 23, 2011 11:07
(use math.mt-random)
(define (random-maker)
(let ((m (make <mersenne-twister> :seed (sys-time))))
(lambda () (mt-random-integer m 2))))
(define random1 (random-maker))
(define (random a b)
(let ((count (- b a)))
(+ a (let loop ((count count)
(num 0))
@oskimura
oskimura / PetyaandFileSystem.hs
Created March 29, 2011 11:51
module Main where
import Control.Applicative
import Data.List
import Text.Printf
import Data.Function (on)
import Data.Maybe
import qualified Data.Tree as T
import qualified Data.Map as M
@oskimura
oskimura / gist:901176
Created April 4, 2011 05:43
RoundTableKnights.hs
{-# OPTIONS_GHC -O2 -optc-O3 -optc-ffast-math -cpp #-}
{-# OPTIONS_GHC -funbox-strict-fields -fexcess-precision -monly-3-regs #-}
{-# LANGUAGE BangPatterns, OverloadedStrings, ScopedTypeVariables #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE FlexibleContexts #-}
module Main where
import Control.Applicative
import Data.List
import Text.Printf
@oskimura
oskimura / RoundTableKnights.hs
Created April 4, 2011 05:44
{-# OPTIONS_GHC -O2 -optc-O3 -optc-ffast-math -cpp #-}
{-# OPTIONS_GHC -funbox-strict-fields -fexcess-precision -monly-3-regs #-}
{-# LANGUAGE BangPatterns, OverloadedStrings, ScopedTypeVariables #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE FlexibleContexts #-}
module Main where
import Control.Applicative
import Data.List
import Text.Printf
@oskimura
oskimura / PetyaandFileSystem.hs
Created April 4, 2011 05:44
module Main where
import Control.Applicative
import Data.List
import Text.Printf
import Data.Function (on)
import Data.Maybe
import qualified Data.Tree as T
import qualified Data.Map as M
@oskimura
oskimura / CodeforcesWorldFinals.hs
Created April 4, 2011 05:48
module Main where
import Control.Applicative
import Data.List
import Text.Printf
import Data.Time
import Data.Time.Calendar
import Text.Printf
import Data.Maybe
splitBy :: (a -> Bool) -> [a] -> [[a]]
@oskimura
oskimura / ThemePark.hs
Created April 6, 2011 09:50
{-# OPTIONS_GHC -O2 -optc-O3 -optc-ffast-math -cpp #-}
{-# OPTIONS_GHC -funbox-strict-fields -fexcess-precision -monly-3-regs #-}
{-# LANGUAGE BangPatterns, OverloadedStrings, ScopedTypeVariables #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Main where
import Control.Applicative
import Data.List
import Data.Function (on)
import Text.Printf
import Control.Monad
@oskimura
oskimura / times.hs
Created April 9, 2011 04:06
type L x = Array Int (x,Int)
combine :: Num x => L x -> L x -> L x
combine lut1 lut2 = listArray (bounds lut1) [let (p1,s1) = lut1!i; (p2,s2) = lut2!s1 in (p1+p2,s2) |
i <- range (bounds lut1)]
times :: Num x => Integer -> L x -> L x
times 0 lut = listArray (bounds lut) [(0,x) | x <- range (bounds lut)]
times 1 lut = lut
times 2 lut = combine lut lut
@oskimura
oskimura / ThemePark.hs
Created April 12, 2011 03:32
{-# OPTIONS_GHC -O2 -optc-O3 -optc-ffast-math -cpp #-}
{-# OPTIONS_GHC -funbox-strict-fields -fexcess-precision -monly-3-regs #-}
{-# LANGUAGE BangPatterns, OverloadedStrings, ScopedTypeVariables #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Main where
import Control.Applicative
import Data.List
import Data.Function (on)
import Text.Printf
import Control.Monad
@oskimura
oskimura / ClosingtheLoop.hs
Created April 12, 2011 15:37
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -O2 -optc-O3 -optc-ffast-math#-}
{-# OPTIONS_GHC -funbox-strict-fields -fexcess-precision -monly-3-regs #-}
{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
module Main where
import Control.Applicative
import Data.List
import Data.Function (on)
import Text.Printf