naohaq

procedure quicksort(A,M,N); value M,N;
          array A; integer M,N;
begin     integer I,J;
          if M < N then begin partition(A,M,N,I,J);
                              quicksort(A,M,J);
                              quicksort(A,I,N);
          end
end       quicksort

naohaq

/# {load def} bind def
/! {exch def} bind def
/M/moveto #/L/lineto #/RM/rmoveto #/RL/rlineto #
/s/stroke #/f/fill #/S/show #/CP/closepath #

/sudokuDict 256 dict def

sudokuDict begin

naohaq

import System.Environment (getArgs)

data PFilter a = PFilter a (a -> Bool)

instance Show a => Show (PFilter a) where
  show (PFilter s _) = "PF " ++ show s

mfilter :: Integral a => a -> a -> Bool
mfilter p x = (x `mod` p) /= 0

naohaq

module HeapTree where

data HTree a = HNull | HFork a (HTree a) (HTree a) deriving Show

hflatten :: (Ord a) => HTree a -> [a]
hflatten HNull           = []
hflatten (HFork x xt yt) = x : merge (hflatten xt) (hflatten yt)

merge :: (Ord a) => [a] -> [a] -> [a]
merge []       ys       = ys

naohaq

module Sumlen where

sumList :: (Num a) => [a] -> a
sumList = foldr (+) 0

lenList :: (Num b) => [a] -> b
lenList = foldr (\_ y->y+1) 0

sumlenList :: (Num a, Num b) => [a] -> (a,b)
sumlenList = foldr (\x (y,z)->(x+y,z+1)) (0,0)

naohaq

#!/usr/bin/make -f

CFLAGS = -O3

.PHONY: all clean

all: main

main: main.c hoge.o
	cc $(CFLAGS) -o $@ $^

naohaq

(defun format-time-string-with-locale-c (fmt)
  (let ((system-time-locale "C")) (format-time-string fmt)))

(require 'ps-mode)
(defun ps-mode-update-creationdate ()
  (interactive nil)
  (save-excursion
	(goto-char (point-min))
	(and
	 (re-search-forward "^%%CreationDate: " nil t)

naohaq

#!/usr/bin/tail -1
55

naohaq

#!/bin/sh
echo -n 'aababcabcdabcdeabcdefabcdefgabcdefghabcdefghiabcdefghij' | wc -c

naohaq

#!/bin/sh

fn=`mktemp`

echo -n 'a' >> $fn
echo -n 'aa' >> $fn
echo -n 'aaa' >> $fn
echo -n 'aaaa' >> $fn
echo -n 'aaaaa' >> $fn
echo -n 'aaaaaa' >> $fn