なつたん

「プログラミングGauche」を読んで、再びSchemeの魅力に取り憑かれる。PythonもC++も勉強したいし、勉強したいことが多すぎて困る。

SystemCやるならC++だし、変態を自重するならPythonだし、メタプロするならSchemeが良いよね。でも、メタプロなら、C++のテンプレートも最高だよね。って、あれだ。一緒に遊園地行くならゆうゆだけど、奥さんにするならまみまみだよね、くらいのノリなんだと思う。もちろん、僕は両方ゆうゆですが。分からない人は、冒険に行くならビアンカだけど、結婚するならフローラだよね、でもよい。僕は両方フローラですが。

いい加減男らしくばしっと決めたいので、言語占いで決める事にした。

言語占いってのは、雑誌で良くある奴ね。

問１：最先端の技術を使いたい。YES→問2へ　NO→じゃあ、COBOLで
問２：英語は苦手　YES→変数をローマ字で書いてもOKなCOBOLをおすすめ　NO→問3へ
問３：Webアプリを作りたい　YES→そんなナンパな気持ちは捨てて、COBOLを勉強しろ。NO→圧倒的な実績のあるCOBOLをおすすめ

こんな感じで、YES、NOを答えていくだけですぐに、あなたにおすすめの言語を選んでくれる。こりゃ楽だ。
雑誌の弱点として、いまいち僕を対象にしていないというか、不特定多数を対象にしすぎている。なければ作ってしまえば良くて、自分で占いを作る事にした。前からSICPのAMBが仕事で使えないかな～と思っていたので、題材にしてみる。やる夫は五階に住んでいません、ってやつね。

問１：AMBをPythonで書いてみる。納得いく物ができたか？
　　　YES→問2へ
　　　NO→言語レベルで継続をサポートしているGaucheおすすめ。

問２：AMBをC++で書いて見る。納得いく物ができたか？
　　　YES→C++おすすめ
　　　NO→君にはC++は10年早い。Pythonがおすすめ。

ちょっと占ってみよう。

＃　一応書いておくけど、ネタだからね＞＜

・C++信仰
ときどきの雑記帖 リターンズ さんから

> んとですね、わたしが「信仰」という単語を持ち出したのは、 確たる理由もなく相手の状況を一顧だにせずC/C++を押し付ける(曰く「必要だ」 「ポインタが理解できれば云々」)その態度が、宗教(特に新興宗教といわれるそれ) の押し付けに近いものを感じたからです。 ですのでなつたんさんがご自分の姿勢と態度を称して信仰といわれるのは にんともかんとも。
あっ、他人に対してなのか。誤読失礼しました。
自分自身、何でC++勉強してるのかさっぱり分からなくなって、C++信仰じゃね、って言われたときに図星を指された気がして反応してしまった。

# 図星は、突くのか指すのかわからない。
明鏡：指す
国語大辞典：突く
大辞泉、広辞苑：両方

・最強伝説
神様なんて信じない僕らのためにさんから
[c/c++]C++が最強に決まってるだろ！

> だいたい、
> 何かのコスト（お金や学習時間、調査時間など）を払わずに、
> プログラムをしようだなんてことが間違っているんだよ！！！！！！
かっこえー。

退職金でBDS狙っているんだけど、BCB5 Personalからアップグレードできないみたい。できても高そうだけど。素直に、Visual Studio買うか。

> C++はいいものだ……。
早くここまで行こう。
目標「それ、Boostで出来るの知っているけど、(前向きな理由)であえて使わない」とさらっと言えるところまで頑張る。
使えないと使わないの違い。

・Higher-Order Perl
3.11 EVANGELISM (伝道師)
If you're trying to explain to a C programmer why Perl is good, automatic memoization makes a wonderful example.
CプログラマにPerlの良いところを説明しようとしているなら、自動的なメモ化の話は見事な例になるよ。

何というタイムリー、Perlの良さを説明するのにわざわざ1節とってある。みるみる信仰心がゆらいでいく～。一応、If you are a C programmer, じゃないのが救い。

そういえばCode Completeにもプログラミングに宗教を持ち込むなで1章取ってあった気がする。こっちは真面目に書いてあったけど、新しい版にも残っているのだろうか。

・神の比較
noboshemonさんの所から
「仏教も、キリスト教も、イスラム教も、それで飯食えるくらいまでいったけど、状況による使い分けが大事だよ。」
「宗教初心者は日本に行って神道から始めると良いんじゃないかな。断食とかお布施とか無いから初心者向け」
とかいう人はいない。宗教ってそういうシステムになっているんだな。

Higher-Order Perl、から。

Perlで逆ポーランドの電卓を作ろうという話題

#!/bin/perl
use strict;

my @stack;
my $actions = {
　　　　'+' => sub { push @stack, pop(@stack) + pop(@stack) },
　　　　'*' => sub { push @stack, pop(@stack) * pop(@stack) },
　　　　'-' => sub { my $s = pop(@stack); push @stack, pop(@stack) - $s },
　　　　'/' => sub { my $s = pop(@stack); push @stack, pop(@stack) / $s },
　　　　'NUMBER' => sub {push @stack, $_[0] },
　　　　'_DEFAULT_' => sub { die "Unrecognized token '$_[0]'; aborting" }
};

my $result = evaluate($ARGV[0], $actions);
print "Result: $result\n";

sub evaluate {
　　　　my ($expr, $actions) = @_;
　　　　my @tokens = split /\s+/, $expr;
　　　　
　　　　for my $token (@tokens) {
　　　　　　　　my $type;
　　　　　　　　if ($token =~ /^\d+$/) {
　　　　　　　　　　　　$type = 'NUMBER';
　　　　　　　　}

　　　　　　　　my $action = $actions->{$type} || $actions->{$token} || $actions->{_DEFAULT_};

　　　　　　　　$action->($token, $type, $actions);
　　　　}
　　　　return pop(@stack);
}

ざっとこんな感じ。
my $action = $actions->{$type} || $actions->{$token} || $actions->{_DEFAULT_};
この辺りがLLぽい。一つめのハッシュが駄目なら、次のハッシュ。

class calclator {
public:
　　int calc(std::vector tokens) {
　　　　std::vector::iterator it;
　　　　for(it=tokens.begin();it!=tokens.end();it++) {
　　　　　　if(it->type() == NUMBER) {
　　　　　　　　st.push(*it);
　　　　　　} else if(it->type() == OPERATOR) {
　　　　　　　　token op2 = st.top(); st.pop();
　　　　　　　　token op1 = st.top(); st.pop();
　　　　　　　　st.push((*it)(op1, op2));
　　　　　　} else {
　　　　　　　　std::cout << "error" << std::endl;
　　　　　　}
　　　　}
　　　　token result = st.top();
　　　　st.pop();
　　　　return result.value();
　　}
　　
private:
　　std::stack st;
};

一応C++でもそれっぽくできて動いたけど、なんかダサイ。
スタックに、文字列でも数字でも入れられるようにしようとしたのが失敗。逆ポーランド記法ではスタックに入るのは数字のみと気がついたのは、完成間近。それに気がついたとたんやる気がなくなった。なんでもほいほいpushできるLLすげー。普通の会社でC++で開発していて、やべー設計間違ってるって時、どうしてるんだろうな。

'+'のアクションで、std::plusが使えそうだったけど上手く行かなかった。今日はstd::stackが使えるようになったので良しとしよう。一日一歩。

Perl、入出力込みで数時間。（丸写しだけどね）
C++、3日がかりで、入力はソースに直書き。

むう、そろそろC++挫折しそうになってきた。

Higher-Order-Perlから

ディレクトリを再帰的に降りていき、コールバック関数を呼び出す。
Boost::filesystemとboost::functionの合わせ技でOK。

#include <iostream>
#include <functional>
#include <algorithm>

#include <boost/function.hpp>
#include <boost/filesystem/operations.hpp>

using namespace boost;
using namespace boost::filesystem;

void dir_walk(const path& top, function<void (const path& )> f) {
　directory_iterator end;
　for(directory_iterator it(top);it != end;++it) {
　　path p = *it;
　　f(p);  //call back functionの呼び出し(表示)
　　if(is_directory (p)) {  //dirctoryなら再帰呼び出し
　　　dir_walk(p, f);
　　}
　}
}

void print_dir(const path& p) {
　std::cout << p.string() << std::endl;
}

void print_size(const path& p) {
　if(!is_directory(p)) {
　　std::cout << file_size(p) << "  ";
　}　
　std::cout << p.string() << std::endl;
}

int main(void)
{

　function<void (const path& path)> f;
　// f = &print_dir;  
　f = &print_size;

　path dir(".");
　dir_walk(dir, f);

　return 0;
}