haskell.org

鐃殉わ申Vol.33鐃緒申鐃緒申鐃緒申発鐃巡さ鐃緒申討鐃緒申覆鐃緒申箸鐃緒申鐃緒申里法鐃緒申鐃緒申任鐃�Vol.34鐃塾醐申鐃銃書きにわ申鐃緒申鐃緒申鐃準今鐃緒申鐃緒申鐃塾削申鐃緒申鐃渋はわ申鐃塾居申鐃緒申鐃塾逸申弔鐃�Haskell鐃緒申鐃緒申鐃緒申Powered by Ph.D鐃淑醐申鐃緒申硫鐃緒申鐃緒申鐃緒申卒鐃緒申鐃緒申鐃塾ってどわ申鐃緒申?鐃竣と駕申覆鐃緒申鐃竣わ申鐃緒申鐃緒申鐃緒申分鐃叔醐申鐃緒申鐃塾わ申覆鐃緒申鐃緒申鐃準し鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃祝仕上が鐃獣てわ申鐃銃わ申鐃緒申里魎兇鐃緒申襦�

Matz鐃祝っわ申(2006-06-13)
鐃緒申:鐃緒申Haskell鐃書しわ申鐃叔わ申鐃緒申鐃緒申鐃�
鐃瞬わ申鐃緒申鐃獣￥申鐃緒申

鐃夙わ申鐃緒申鐃緒け鐃叔￥申予鐃緒申弔鐃緒申任法鐃�Haskell鐃緒申鐃�Ruby鐃緒申鐃緒申鐃緒申鐃緒申鐃獣わ申鐃書しわ申鐃緒申鐃夙わ申鐃縦上げ鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申蓮鐃緒申覆鐃夙わ申鐃獣てわ申Proc鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃緒申

鐃緒申Ruby鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申分鐃緒申鐃縦わ申鐃緒申鐃緒申廚鐃淑刻申鐃緒申董鐃緒申鐃緒申鐃緒申鐃祝思わ申立鐃縦のわ申鐃緒申鐃緒申鐃緒申鐃�

鐃純え鐃出￥申logbX鐃薯カリー鐃緒申鐃緒申鐃緒申表鐃緒申鐃緒申鐃暑こ鐃夙わ申佑鐃緒申討澆襦�

鐃緒申鐃重わ申鐃緒申鐃叔常申鐃緒申鐃叔も、log()鐃緒申ln()(log natural)鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申里如鐃緒申鐃緒申鐃緒申任鐃�log2鐃緒申名鐃春わ申鐃暑こ鐃夙にわ申鐃暑。鐃緒申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃緒申Log()鐃夙わ申鐃緒申鐃�haskell鐃緒申鐃緒申鐃所が鐃緒申鐃緒申鐃暑し鐃緒申鐃緒申鐃�atan2()鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃塾で￥申

鐃殉わ申鐃緒申Perl 5鐃叔￥申

sub log2{
  my $b = shift;
  sub {
    my $x = shift;
    log($x)/log($b)
  }
}

鐃夙わ申鐃夙わ申鐃熟￥申鐃緒申鐃緒申鐃緒申

my $lg2 = log2(2);
print $lg2->(16);

Perl6鐃緒申鐃夙￥申鐃緒申辰鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申襦�

sub log2($b){ sub($x){ log($x)/log($b) } }
my $lg2 = log2(2);
say $lg2.(16)

Python鐃緒申鐃夙￥申鐃緒申鐃緒申覆鐃緒申鐃�

import math

def log2(b):
  return (lambda x: math.log(x) / math.log(b) )
  # 2.3鐃淑降わ申 math.log(x, b) 鐃緒申OK鐃緒申鐃緒申鐃緒申鐃緒申
lg2 = log2(2)
print lg2(16)

鐃緒申鐃緒申鐃緒申鐃緒申lambda鐃夙醐申鐃緒申覆鐃緒申鐃出なわ申覆鐃緒申箸鐃緒申鐃緒申鐃緒申鐃�Perl鐃緒申鐃緒申埃鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃緒申任蓮鐃�Ruby鐃叔わ申?

def log2(b)
  return lambda{ |x| log(x) / log(b) }
end

鐃殉わ申鐃緒申鐃緒申鐃緒申辰鐃�Python鐃緒申鐃淳てわ申鐃暑け鐃宿￥申math鐃緒申import鐃緒申鐃淑わ申分鐃処し鐃夙わ申鐃処う鐃緒申鐃緒申鐃緒申呂鐃緒申鐃緒申討喀个鐃緒申箸鐃緒申鐃緒申鐃�

lg2 = log2(2);
p lg2(16);

鐃緒申動鐃緒申鐃淑わ申鐃塾でわ申鐃暑。

p log2.call(16)

鐃夙わ申鐃淑わ申鐃緒申个覆鐃淑わ申鐃塾わ申鐃緒申

鐃緒申鐃緒申如鐃�Haskell鐃熟どわ申鐃緒申鐃夙わ申鐃緒申鐃夙￥申

log2 b x = log x / log b

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申任鐃緒申襦ｏ申鐃緒申蝓種申鐃緒申魯妊侫鐃緒申鐃夙なのわ申鐃緒申鐃緒申鐃緒申鐃初型鐃緒申鐃緒申任蓮鐃�

log2 :: (Floating t) => t -> t -> t

鐃緒申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申任鐃緒申鐃緒申

lg2 = log2 2

鐃夙わ申鐃緒申鐃緒申鐃祝￥申鐃渋わ申直鐃緒申的鐃緒申

lg2 :: t -> t

鐃叔わ申鐃暑こ鐃夙わ申鐃緒申泙襦ｏ申鐃緒申鐃緒申鐃�Haskell鐃熟￥申鐃緒申鐃緒申鐃緒申鐃緒申直鐃緒申鐃熟件申鐃緒申鐃緒申鐃叔よき鐃祝はわ申鐃緒申辰討鐃緒申鐃暑。

鐃緒申鐃緒申蓮鐃緒申里鐃緒申亡鐃獣縁申鐃縦常申鐃重�鐃緒申鐃緒申直鐃緒申鐃駿で行わ申鐃夙残わ申鐃�perl, python, ruby鐃夙わ申鐃獣わ申鐃緒申鐃緒申砲覆鐃夙思わ申鐃緒申

鐃渋は￥申鐃緒申鐃塾種申動鐃緒申鐃所ー鐃緒申鐃夙件申鐃緒申鐃緒申鐃緒申 Perl6 鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申襪鰹申箸鐃緒申鐃殉ってわ申鐃暑。

sub log2($b,$x){ log($x)/log($b)  }
my $lg2 = &log2.assuming(2);
say $lg2.(16)

Haskell鐃緒申鐃緒申戮鐃夙わ申鐃宿わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑が鐃緒申鐃緒申鐃緒申鐃� Perl6 鐃緒申鐃緒申鐃緒申鐃殉でわ申佞鐃緒申鐃熟種申続鐃緒申鐃緒申鐃緒申鐃緒申里佞鐃薯して￥申必鐃竣とわ申鐃緒申个鐃緒申弔任鐃舜随申鐃緒申鐃祝「駕申鐃緒申鐃緒申廚箸鐃緒申鐃緒申櫂鐃緒申鐃緒申鐃緒申砲鐃緒申襪�鐃緒申鐃緒申鐃緒申造鐃� Perl6 鐃熟￥申鐃瞬ワ申鐃緒申鐃緒申廚鐃� Ruby 鐃緒申鐃緒申任鐃渋随申鐃緒申鐃緒申任鐃緒申襪�鐃緒申鐃瞬はわ申錣随申廚鐃� Haskell 鐃緒申鐃緒申任鐃渋随申鐃緒申鐃緒申任鐃緒申鐃塾わ申鐃緒申

Ruby鐃叔はわ申鐃緒申鐃春どわ申鐃緒申鐃銃わ申鐃緒申鐃塾わ申鐃緒申鐃緒申鐃緒申....

Dan the Multilingual