Ruby - block と proc(ネスト)

初めてのプログラミング 第2版
Chris Pine (著) 長尾 高弘 (訳)

開発環境

• OS X Lion - Apple(OS)
• BBEdit - Bare Bones Software, Inc.(Text Editor)
• Script言語:Ruby

『初めてのプログラミング 第2版』(Chris Pine　著、長尾 高弘　訳、オライリー・ジャパン、2010年、ISBN978-4-87311-469-9)の 14章(block と proc), 14.4(練習問題)プログラムロガー を解いてみる。

その他参考書籍

• 『プログラミング言語 Ruby』David Flanagan, まつもと ゆきひろ　著 、卜部 昌平　監訳、長尾 高弘　訳、オライリー・ジャパン、2009年、ISBN978-4-87311-394-4)
• Rubyクックブック ―エキスパートのための応用レシピ集

プログラムロガー

コード(BBEdit)

sample.rb

#!/usr/bin/env ruby1.9
#-*- coding: utf-8 -*-

def log description, &block
    puts "\"#{description}\"を開始"
    result = block.call
    puts "...\"#{description}\"が終了して、戻り値は"
    puts result
end
log "外側のブロック" do
    log "小さなブロック" do
        5
    end
    log "また別のグロック" do
        "私はタイ料理が好き"
    end
    false
end

入出力結果(Terminal)

$ ./sample.rb
"外側のブロック"を開始
"小さなブロック"を開始
..."小さなブロック"が終了して、戻り値は
5
"また別のグロック"を開始
..."また別のグロック"が終了して、戻り値は
私はタイ料理が好き
..."外側のブロック"が終了して、戻り値は
false
$

ちなみにJavaScriptの場合。

コード(BBEdit)

$('#pre0').html('');
function log( description, f ) {
    $('#pre0').append("\"" + description + "\"を開始...\n");
    var result = f();
    $('#pre0').append("...\"" + description + "\"が終了して、戻り値は\n");
    $('#pre0').append(result + "\n");
}
log("外側のブロック", function (){
    log("小さなブロック", function(){
        return 5;
    });
    log("また別のブロック", function(){
        return "私はタイ料理が好き"
    });
    return false;
});

pythonの場合。

sample.py

コード(BBEdit)

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

def log(description, f):
    print("\"{0}\"を開始...".format(description))
    result = f()
    print("...\"{0}が終了して戻り値は".format(description))
    print(result)

def f():
    log("小さなブロック", lambda: 5)
    log("また別のブロック", lambda: "私はタイ料理が好き")
    return False
log("外側のブロック", f)

入出力結果(Terminal)

$ ./sample.py
"外側のブロック"を開始...
"小さなブロック"を開始...
..."小さなブロックが終了して戻り値は
5
"また別のブロック"を開始...
..."また別のブロックが終了して戻り値は
私はタイ料理が好き
..."外側のブロックが終了して戻り値は
False
$

perlの場合。

sample.pl

コード(BBEdit)

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

sub my_log {
    my($description, $f) = @_;
    print "\"$description\"を開始...\n";
    my $result = &$f;
    print "...\"$description\"が終了して、戻り値は\n";
    print "$result\n";
}
my_log("外側のブロック", sub {
    my_log("小さなブロック", sub {
        5;
    });
    my_log("また別のブロック", sub {
        "私はタイ料理が好き";
    });
    0;
});

入出力結果(Terminal)

$ ./sample.pl
"外側のブロック"を開始...
"小さなブロック"を開始...
..."小さなブロック"が終了して、戻り値は
5
"また別のブロック"を開始...
..."また別のブロック"が終了して、戻り値は
私はタイ料理が好き
..."外側のブロック"が終了して、戻り値は
0
$