yuga

■2012/02/20

(15:32:48 +0900)

バージョン管理ソフト Git にアクセス制御機能を追加する gitolite というのを試してみました。

アクセス制御しても、Gitはリポジトリを簡単に clone できるので、
誰かが公開してしまうことが容易なことを考えるとあんまり意味ないような気がしますが、
みんなで共有リポジトリを立てて使う場合に、そこへのアクセスを容易に制御できるようになります。 

yuga

GHC/Haskell Platform 独自RPM作成手順

注意: あくまで独自仕様です。Fedoraなどで提供されているものとは著しく異なります。

ディレクトリ作成

mkdir -p /home/yuga/haskell/rpmbuild/BUILD
mkdir -p /home/yuga/haskell/rpmbuild/BUILDROOT
mkdir -p /home/yuga/haskell/rpmbuild/SOURCES
mkdir -p /home/yuga/haskell/rpmbuild/SPECS

mkdir -p /home/yuga/haskell/rpmbuild/SRPMS

yuga

#!/bin/env python
# -*- coding: utf-8 -*-

class Color:
    RED = 1
    BLACK = 2

class Element:
    def __init__(self, key):
        self.key = key

yuga

Haskell:

fold_left f i []      -> i
fold_left f i (x:xs') -> fold_left  f (f i x) xs'

fold_right f []      i = i
fold_right f (x:xs') i -> f x (fold_right f xs' i)

fold_right' f xs i = go id xs

yuga

[読書メモ][PFAD]

Pearls of Functional Algorithm Design
 
1 The smallest free number
======================================
 
0からはじまる有限の連続した自然数の集合XがあってXからいくつか少数の
自然数を取り除いた集合Yを作る。
ここで集合Xに存在してYに存在しない一番小さな自然数を探そうというとき、

yuga

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}

module MinPrint (
    MinPrint, Doc,
    text, br, nest,
    execMinPrint, printDoc
) where

import qualified Data.ByteString.Char8  as S

yuga

How to fix the failure of building regex-pcre-builtin on Windows

Q. What is the issue?

A. Let's do the clean installation of pandoc on Windows. Cabal tell us that something went wrong

>cabal install regex-pcre-builtin

Resolving dependencies...

yuga

Windowsでregex-pcre-builtinのビルドに失敗するときの対処法

Windowsにpandocをインストールするとかするとはまります。

依存関係: pandoc -> highlighting-kate -> regex-pcre-builtin

regex-pcre-builtin-0.94.4.1.8.31 用の手順です。

エラー事象

yuga

山本和彦 ?@kazu_yamamoto 教えて詳しい人：GHC では ByteString が pinned object なんですが、どうやって GC に回収されるんでしょうか？

詳しくはないけど、ざっと追いかけてみる。

GHC 7.4.1 rts/sm/Storage.c:743

// If we don't have a block of pinned objects yet, or the current

// one isn't large enough to hold the new object, allocate a new one.

yuga

(* a solution to Exercise 9.1 of "Purely Functional Data Structures (PFDS)" *)

module type ITEM =
sig
  type t
  val print : t -> unit
end

module Int : (ITEM with type t = int) =
struct