鐃緒申鐃緒申鐃緒申鐃緒申笋件申鐃緒申鐃緒申辰鐃緒申里函鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申愎鐃緒申鐃縮常申鐃緒申鐃緒申佞鐃緒申鐃緒申鐃緒申辰鐃緒申里箸鐃�1 entry鐃巡く鐃緒申鐃夙にわ申鐃殉わ申鐃緒申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申 - 鐃緒申鐃緒申鐃夙ワ申
鐃緒申鐃緒申鐃緒申鐃緒申椶鐃緒申鐃�2鐃緒申砲鐃緒申譴常申鐃初算鐃緒申椶鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦まり、 
f (+) [1,2,3,4,5] = [3,5,7,9]
鐃塾よう鐃緒申 f 鐃緒申鐃淳わ申鐃緒申鐃緒申

名鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里砲發鰹申隆愎鐃緒申六箸鐃緒申鐃塾でわ申鐃緒申鐃緒申鐃緒申鐃塾逸申鐃緒申的鐃祝使わ申鐃緒申愎鐃緒申忙箸鐃縮常申鐃緒申箸鐃緒申討呂鐃緒申泙鐃祝局緒申的鐃緒申鐃夙わ申鐃緒申鐃緒け鐃緒申 mapBetween 鐃夙わ申鐃銃みまわ申鐃緒申鐃緒申鐃夙わ申鐃宿わ申鐃緒申鐃熟わ申鐃淑わ申多鐃緒申鐃緒申鐃叔わ申鐃緒申鐃銃醐申鐃緒申鐃宿醐申鐃緒申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃淑わ申鐃塾わ申鐃緒申鐃緒申辰鐃緒申垰弋弔覆曚鼻鐃�

JavaScript鐃祝わ申鐃緒申鐃緒申

Array.prototype.map鐃緒申鐃緒申多鐃祝使わ申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙ってみまわ申鐃緒申鐃緒申

Array.prototype.mapBetween = function(callback, thisArg) {
    return this.slice(0, -1).map(function(v, i) {
        return callback.call(thisArg, v, this[i]);
    }, this.slice(1));
};





Perl鐃祝わ申鐃緒申鐃緒申


map BLOCK LIST鐃緒申BLOCK鐃塾呼び出わ申鐃叔はワ申鐃緒申鐃獣ワ申鐃緒申鐃術まなわ申鐃緒申鐃縦まわ申@_鐃緒申鐃緒申鐃塾ままでわ申鐃緒申鐃緒申鐃祝居申鐃緒申鐃春わ申鐃夙以駕申鐃塾よう鐃祝書けまわ申鐃緒申




use 5.012;

sub mapBetween(&@) {
    map { $_[0]->( $_[$_], $_[ $_ + 1 ] ) } 1 .. @_ - 2;
}

say '# ', join ",", mapBetween { $_[1] - $_[0] } ();
say '# ', join ",", mapBetween { $_[1] - $_[0] } (0);
say '# ', join ",", mapBetween { $_[1] - $_[0] } (0, 1);
say '# ', join ",", mapBetween { $_[1] - $_[0] } (0, 1, 4);
say '# ', join ",", mapBetween { $_[1] - $_[0] } (0, 1, 4, 9);





鐃緒申鐃緒申鐃緒申CORE::sort()鐃緒申List::Utils()鐃淑どで醐申鐃緒申鐃暑、鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�$a鐃緒申$b鐃緒申箸鐃緒申鐃祝￥申砲鐃緒申弍鐃緒申鐃緒申鐃緒申茲�鐃夙わ申鐃緒申半鐃緒申鐃緒申鐃緒申廚鐃宿�鐃竣となわ申泙鐃緒申鐃緒申鐃緒申鐃淑とわ申鐃緒申鐃叔わ申鐃順う鐃緒申鐃緒申




use 5.012;

sub mapBetween(&@) {
    my $pkg = caller();
    no strict 'refs';
    map {
        local ( ${ $pkg . '::a' }, ${ $pkg . '::b' } ) =
          ( $_[$_], $_[ $_ + 1 ] );
        $_[0]->( $a, $b )
    } 1 .. @_ - 2;
}

{
    our ( $a, $b ) = ( 'a', 'b' );
    say '# ', join ",", mapBetween { $b - $a } ();
    say '# ', join ",", mapBetween { $b - $a } (0);
    say '# ', join ",", mapBetween { $b - $a } ( 0, 1 );
    say '# ', join ",", mapBetween { $b - $a } ( 0, 1, 4 );
    say '# ', join ",", mapBetween { $b - $a } ( 0, 1, 4, 9 );
    say $a, $b;
}
{
    package NotMain;
    our ( $a, $b ) = ( 'A', 'B' );
    say '# ', join ",", main::mapBetween { $b - $a } ();
    say '# ', join ",", main::mapBetween { $b - $a } (0);
    say '# ', join ",", main::mapBetween { $b - $a } ( 0, 1 );
    say '# ', join ",", main::mapBetween { $b - $a } ( 0, 1, 4 );
    say '# ', join ",", main::mapBetween { $b - $a } ( 0, 1, 4, 9 );
    say $a, $b;
}






Enjoy!


Dan the Mapper in between




'
      ).text();
    }
    var query = {s:text};
    if (lang) query['l'] = lang;
    var url = 'http://api.dan.co.jp/lleval.cgi';
    var proto = 'json';
    if ($.browser.msie || $.browser.opera){ 
        url   += '?c=?';
        proto += 'p';
    } /* falls back to JSONP */
    $.get(url, query, function(json){
        $(dstNode).html(json2table(json)).hide().show('slow');
    }, proto);
};

})(jQuery);