"恐れを知らぬ川上音二郎一座" 当日券での鑑賞はできず...

"恐れを知らぬ川上音二郎一座" は前売初日に完売したようだが、
昨日 当日券キャンセル整理番号を電話でget できた。
開演30分前から冷たいビル風に耐えて行列に並んだが、後 ３人というところでキャンセルも完売...　残念。
キャンセル待ち番号は 3＊ 番。この日は 36 番まで番号を出し、30 席弱の券が出たようだ。また来週の挑戦か。
ともかく風が冷たい。30 分も客を吹きさらしに並ばせて、券がなくなれば"完売しました" だけの言葉だけとは...
（商業として お客に対してそんなことでよいのかなぁ）

月光天文台の 2008年版「太陽・月・星のこよみ」
  http://www.gekkou.or.jp/ho-g6.html#hakkou　
を今年も買うつもりでいたが、すでにハンズや伊藤屋では見当たらなかった...
あきらめて別のカレンダー(ムーンフェース)
  http://item.rakuten.co.jp/aito/08calendar_moji_a217/
を買った。
ビックカメラ前には、おおきなカレンダーが "自由におもちください" として置かれていたので、それも もらってきた。
( 一枚に日本地図と１２つきのカレンダーが記載されている)
八重洲ブックセンターに寄ってカレンダーコーナーちょっとみたら、
「太陽・月・星のこよみ」があるではないか！ すぐに買った。
（帰宅して、カレンダーをあけたらびっくり。訂正用シールが同封されている。新月と満月を５カ所も間違えている！
こんな間違いをみたのは初めて。日本はカレンダーもまともにつくれなくなっている？）

書籍は、
  - スティーブ・ジョブズ 偉大なるクリエイティブ・ディレクターの軌跡
  - ウェブ時代の暗号、
  - 算法少女
を購入してしまった。
(本当はなにかよい洋書がないかとさがしにいったが、よいものが見当たらなかった...)

東京駅大丸の地下の食料品売場、１階のスイーツ売場は大混雑だった。

doukaku.org の 自然数の分割 (その２)

[4,1,0], [4,0,1] など組み合わせ的には同じものを区別せずに
一覧出力するようにしたものを作ってみた。

[5, 0, 0]
[4, 1, 0]
[3, 2, 0]
[3, 1, 1]
[2, 2, 1]
のように出力される。

$ cat PartNumber.java
// See http://ja.doukaku.org/89/lang/java/
//    javac PartNumber.java
//    java -cp . PartNumber 5 3

public class PartNumber {
    public static void main(String[] args) throws Exception {
        int n = Integer.parseInt(args[0]);
        int m = Integer.parseInt(args[1]);
        part("", n, n, m);
    }
    private static void part(String s, int last, int n, int m) {
        if (m == 1) {
            if (last >= n) {
                System.out.println("[" + s + n + "]");
            }
        } else for (int i = n; i >= 0; i--) {
            if (last >= i) {
                part(s + i + ", ", i, n - i, m - 1);
            }
        }
    }
}

$ cat PartNumber.rb 
# http://ja.doukaku.org/89/lang/ruby/
#   ruby PartNumber.rb
#   jruby PartNumber.rb

def solve(n, m, last, acc = [])
  if m == 1
    p acc << n  if last >= n
    return
  end
  n.downto(0) {|i|
    solve(n-i, m-1, i, acc[0..-1] << i)  if last >= i
  }
end

solve(5, 3, 5)

$ cat PartNumber.pl
% http://ja.doukaku.org/89/lang/prolog/
%   swipl -q -c PartNumber.pl

partNum(N, 1, [N], MIN) :- N =< MIN.
partNum(N, M, [J|L], MIN) :- M > 1, M1 is M - 1,
    between(0, N, I), J is N - I, J =< MIN, partNum(I, M1, L, J).

solve(N,M) :- forall(partNum(N, M, L, N), writeln(L)).

:- solve(5, 3).

走らせた結果を示そう。
$ java -cp . PartNumber 5 3
[5, 0, 0]
[4, 1, 0]
[3, 2, 0]
[3, 1, 1]
[2, 2, 1]

$ ruby PartNumber.rb      
[5, 0, 0]
[4, 1, 0]
[3, 2, 0]
[3, 1, 1]
[2, 2, 1]

$ swipl -q -c PartNumber.pl
[5, 0, 0]
[4, 1, 0]
[3, 2, 0]
[3, 1, 1]
[2, 2, 1]