プログラマ未満: 9月 2013

2013年9月29日日曜日

[Common Lisp] 破壊的な関数

Common Lispには、戻り値を作り出すために元々の構造を破壊する関数があります。

sort、stable-sort を除く破壊的な関数には対応する非破壊的な関数があるので、基本的には非破壊版を利用しておいたほうが良さそうです。

なお、破壊的関数の先頭に付く n は non-consing の略だそうです。

詳しくは実践Common Lispの12章あたりを見ると良いでしょう。

非破壊的	破壊的	概要
	sort	ソート
	stable-sort	安定ソート
reverse	nreverse	リストの反転
append	nconc	リストの結合
revappend	nreconc	リストの結合
butlast	nbutlast	リストの末尾以外取得
remove	delete	シーケンスの要素削除
remove-if	delete-if	条件に一致する要素削除
remove-if-not	delete-if-not	条件に一致しない要素削除
remove-duplicates	delete-duplicates	重複を削除
union	nunion	和集合
intersection	nintersection	積集合
set-difference	nset-difference	差集合
set-exclusive-or	nset-exclusive-or	対称差
string-capitalize	nstring-capitalize	単語の先頭を大文字、それ以外を小文字に変換
string-downcase	nstring-downcase	文字列を小文字に変換
string-upcase	nstring-upcase	文字列を大文字に変換
subst	nsubst	木構造(リスト)の要素を変更
subst-if	nsubst-if	木構造(リスト)の要素を変更
subst-if-not	nsubst-if-not	木構造(リスト)の要素を変更
sublis	nsublis	木構造(リスト)の要素を変更
substitute	nsubstitute	シーケンスの要素を変更
substitute-if	nsubstitute-if	シーケンスの要素を変更
substitute-if-not	nsubstitute-if-not	シーケンスの要素を変更

2013年9月16日月曜日

[D]デザインパターン修行:Builderパターン

Builderパターンは複雑なオブジェクトの生成を抽象化するデザインパターン。

Builderインターフェース
- オブジェクトの組み立てに使うメソッドを定義する
Directorクラス
- Builderのメソッドを適切な順序で使ってオブジェクトを組み立てる
ConcreteBuilderクラス
- Builderで定義したメソッドを実装する

BuilderパターンをD言語で書いてみます。

/* builderパターン */

import std.algorithm;
import std.string;
import std.stdio;

interface DocBuilder {
  void makeTitle(string title);
  void addContent(string content);
  string getResult();
}

class HtmlBuilder : DocBuilder {
  string title;
  string[] contents;

  override void makeTitle(string title) {
    this.title = title;
  }

  override void addContent(string content) {
    this.contents ~= content;
  }

  override string getResult() {
    string fmt = "<html><head><title>%s</title></head><body>%s</body></html>";
    string c = reduce!((a, b) => a ~ "<a>%s</a>".format(b))("", contents);
    return fmt.format(title, c);
  }
}

class TextBuilder : DocBuilder {
  string title;
  string[] contents;

  override void makeTitle(string title) {
    this.title = title;
  }

  override void addContent(string content) {
    this.contents ~= content;
  }

  override string getResult() {
    string list = "";
    foreach(s; contents) {
      list ~= "- " ~ s ~ "\n";
    }
    return "* " ~ title ~ "\n" ~ list;
  }  
}

class Director {
  private DocBuilder builder;

  this(DocBuilder builder) {
    this.builder = builder;
  }

  string construct(string title, string[] contents) {
    builder.makeTitle(title);
    foreach(c; contents) {
      builder.addContent(c);
    }
    return builder.getResult();
  }
}

void main() {
  auto d1 = new Director(new HtmlBuilder());
  writeln(d1.construct("AAA", ["hello", "world"]));
  auto d2 = new Director(new TextBuilder());
  writeln(d2.construct("AAA", ["hello", "world"]));
}

> dmd builder.d
> ./builder
<html><head><title>AAA</title></head><body><a>hello</a><a>world</a></body></html>
* AAA
- hello
- world