Haskell入門その2

回帰


{----------------------------
  N!
-----------------------------}
my_factorial 1 = 1
my_factorial n = n * my_factorial (n-1)
{----------------------------
  べき乗
  a^b
-----------------------------}
my_exponent a 1 = a
my_exponent a b = a * my_exponent a (b-1)
{----------------------------
  フィナボッチ数列
  n番目のフィナボッチ数を求める
-----------------------------}
fina 1 = 1
fina 2 = 1
fina n = fina (n-2) - fina (n-1)
{----------------------------
  a : b
-----------------------------}
mult a 0 = 0
mult a b = a + mult a (b-1)

GHCIからhsファイルを読み込む


I:\haskell>ghci
Prelude> :l test008.hs
*Main>