Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Haskell Asal Sayı Testi


Asal Sayı Testi

Haskell programlama dilinde yazılmış bu fonksiyonun içinde başka bir dersimizde gördüğümüz bolenbul fonksiyonu kullanılmıştır. Kullanıcıdan alınan sayı bolenbul fonksiyonuna gönderilir elde edilen sonuc [1,x] ise bu asal sayı olduğunu gösterir.

Program Kodu :

  1.  
  2. bolenbul :: Int -> [Int]
  3. bolenbul x = cozumle x [1..x]
  4.              where
  5.              cozumle :: Int -> [Int] -> [Int]
  6.              cozumle y []    = []
  7.              cozumle y (p:ps)
  8.                             | mod y p == 0         = [p] ++ cozumle y ps
  9.                             | otherwise               = cozumle y ps
  10.  
  11. asal :: Int -> Bool
  12. asal x
  13.         |[1,x] == (bolenbul x)        = True
  14.         | otherwise                  = False
  15.          where
  16.  
  17.  
  18.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Perşembe, 26 Temmuz 2012 21:47 )  
amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım