naota

flags="-fthread-jumps
-falign-functions
-falign-jumps
-falign-loops
-falign-labels
-fcaller-saves
-fcrossjumping
-fcse-follow-jumps
-fcse-skip-blocks
-fdelete-null-pointer-checks

naota

data Road = Road { src :: Int 
                 , dst :: Int
                 , cost :: Int
                 } deriving (Eq)

main :: IO ()
main = interact func

func :: String -> String
func s = let ds = lines s

naota

data Racer = Racer { name :: String
                   , score :: Int
                   , wins :: [Int]
                   } deriving (Show)

main :: IO ()
main = interact func

scores :: [Int]
scores = [25, 18, 15, 12, 10, 8, 6, 4, 2, 1]

naota

import Data.Map (empty, elems, insertWithKey, insert, keys, lookup)
import System.Directory (getDirectoryContents)
import Data.List (isSuffixOf, isPrefixOf, sort, union)
import Text.ParserCombinators.Parsec
import Prelude hiding (lookup)
import Data.Maybe (fromJust)

data Ebuild = Ebuild { version :: Int
                     , revision :: Int
                     , packageName :: String

naota

(progn
  (defsubst spooky-action-at-a-distance ()
    (let ((a (concat "a" "bc")))
      (store-substring a 0 "123")))

  (defun foo ()
    (spooky-action-at-a-distance)
    (concat "ab" "c"))

  (byte-compile 'foo)

naota

(require 'deferred)
(require 'url-util)

(defvar editable-help-separator "==========")
(defvar editable-help-base-url "http://elisp.net/editable-help/")
(defvar editable-help-category-alist
  '((describe-variable . "variable")
    (describe-function . "function")))

(defvar editable-help-map nil)

naota

  ad-Orig-decode-char(ucs 26757 nil)
  ...
  ad-Orig-decode-char(ucs 26757 nil)
  ad-Orig-decode-char(ucs 26757 nil)
  decode-char(ucs 26757)
  xml-substitute-special("梅田はダンジョン。 RT @PG_kura: 大阪って梅田とか繁華街をちらっと歩いたことぐらいしかなくって、ゴミゴミしてんなぁと思ってたけど、この辺はいいね。住みやすそう。千里のあたり。")
  xml-parse-string()
  xml-parse-tag(nil nil)
  xml-parse-tag(nil nil)
  xml-parse-tag(nil nil)

naota

[    0.000000] Initializing cgroup subsys cpu
[    0.000000] Linux version 2.6.37-rc4+ (naota@localhost) (gcc version 4.4.5 (Gentoo 4.4.5 p1.0, pie-0.4.5) ) #14 SMP Tue Dec 7 19:57:50 JST 2010
[    0.000000] Command line: root=/dev/vda2 vga=344   kexec_jump_back_entry=0xffff88003e0d8000   kexec_jump_back_entry=0x35e88c4d89a85d89
[    0.000000] BIOS-provided physical RAM map:
[    0.000000]  BIOS-e820: 0000000000000000 - 0000000000010000 (reserved)
[    0.000000]  BIOS-e820: 0000000000010000 - 000000000009dc00 (usable)
[    0.000000]  BIOS-e820: 000000000009dc00 - 00000000000a0000 (reserved)
[    0.000000]  BIOS-e820: 00000000000f0000 - 0000000000100000 (reserved)
[    0.000000]  BIOS-e820: 0000000000100000 - 000000003fffd000 (usable)
[    0.000000]  BIOS-e820: 000000003fffd000 - 0000000040000000 (reserved)

naota

	my @res=
	    m!
^
(?:\+?(攻|At)?(速|Sp)?(腕|St)?(知|In)?(賢|Wi)?(器|Dx)?(耐|Cn)?(魅|Ch)?(道|Md)?(隠|Sl)?(探|Sr)?(赤|If)?(掘|Dg)?)?
    (?:\*(酸|Ac)?(電|El)?(火|Fi)?(冷|Co)?)?
    (?:r?;?(酸|Ac)?(電|El)?(火|Fi)?(冷|Co)?(毒|Po)?(閃|Li)?(暗|Dk)?(破|Sh)?(盲|Bl)?(乱|Cf)?(轟|So)?(獄|Nt)?(因|Nx)?(沌|Ca)?(劣|Di)?(恐|Fe)?)?
    (?:;?(魔力|Ma)?(投|Th)?(反|Rf)?(麻|Fa)?(視|Si)?(経|Hl)?(遅|Sd)?(活|Rg)?(浮|Lv)?(明|Lu)?(警|Wr)?(倍|Xm)?(射|Xs)?(瞬|Te)?(怒|Ag)?(祝|Bd)?(永|EtrCur)?(呪|Cu)?(忌|Ty)?)?
    (?:\[(炎|F)?(電|E)?(冷|C)?(魔|M)?(瞬|T)?)?
    (?:\|(酸|A)?(電|E)?(焼|F)?(凍|Co)?(毒|P)?(沌|Ca)?(吸|V)?(震|Q)?(切|S)?(理|M)?)?
    (?:/X(邪|\*)?(人|p)?(竜|龍|D)?(オ|o)?(ト|T)?(巨|P)?(デ|U)?(死|L)?(動|Z)?)?

naota

CREATE TABLE score(
personality VARCHAR(20) , race VARCHAR(20) , class VARCHAR(20) ,
sex BOOL,
name VARCHAR(255) ,
why VARCHAR(255) , floor SMALLINT,
ver VARCHAR(10),
dumpnum MEDIUMINT UNIQUE,
score INT,
date DATE,
magic1 VARCHAR(10) , magic2 VARCHAR(10) ,