Editing 5 adımda Haskell (section)

== Hesap makinası Haskell ==

Biraz eğlenelim. Haskell'de ilk gerçek programınız, faktöriyel fonksiyonu olacak. Yorumlayıcıya geri dönüp bu fonksiyonu tanımlayalım:

<haskell>
Prelude> let fac n = if n == 0 then 1 else n * fac (n-1)
</haskell>

Bu satır, '''fac''' adında yeni bir fonksiyonu tanımlar, bu fonksiyon da bir tüm sayının faktöriyelini hesaplar.

Şimdi de '''fac''' 'ı fonksiyonunu herhangi bir argüman (parametre) ile çağıralım:
<haskell>
Prelude> fac 42
1405006117752879898543142606244511569936384000000000
</haskell>

'''Tebrikler!''' Program yazmazı kolayladınız. Eğer 
Hugs kullaniyorsanız, you'll need to load the definition of '''fac''' tanımını bir dosyadan yüklemelisiniz. Mesela  
'''fac.hs''' adında bir dosya şu içeriği yazın:

<haskell>
fac n = if n == 0 then 1 else n * fac (n-1)
</haskell>

Sonra da Hugs ile çalıştırmak için (bu GHCi'de aynı şekilde yapılabilir):

<haskell>
Hugs.Base> :load fac.hs
Main> fac 42
1405006117752879898543142606244511569936384000000000
</haskell>

Yürütülür bir dosya üretmek için bu programı da derleyebiliriz, tabii. 
'''fac.hs''' dosyasına şu satırları yazalım (eğlenceyi arttırmak için zarif olan örüntü eşleştirme sözdizimini (pattern matching syntax) de kullanalım):

<haskell>
fac 0 = 1
fac n = n * fac (n-1)

main = print (fac 42)
</haskell>

sonra da bunu derleyip çalıştıralım:

<pre>
    $ ghc -o fac fac.hs
    $ ./fac
    1405006117752879898543142606244511569936384000000000
</pre>

'''Harika, değil mi?'''