lundi 27 avril 2015

Haskell / Robertson Wocherntagsformel

Posted on 02:59 by verona
Hi, ich soll die Gaußsche Wochentagsformel in Haskell programmieren. Dazu muss ich die hergeleitete Formel von Robertson verwenden. Mein bisheriger Code sieht so aus:

Java Code:


    

  1. 

    wochentag :: Integer -> Integer -> Integer -> String
    

    2. 

  2. 

    wochentag tag monat jahr = wochentage !! fromInteger (robertson tag monat jahr) where
    

    3. 

  3. 

     
    

    4. 

  4. 

    wochentage :: [String]
    

    5. 

  5. 

    wochentage = ["Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag"]
    

    6. 

  6. 

     
    

    7. 

  7. 

    robertson :: Integer -> Integer -> Integer -> Integer
    

    8. 

  8. 

    robertson tag monat jahr = D + tag +77 +E + (B quot 400) - 2 * (B quot 100) mod 77 where
    

    9. 

  9. 

    A = monat + 10
    

    10. 

  10. 

    B = ((monat - 14) quot 12) + jahr
    

    11. 

  11. 

    C = A - 12 * (A quot 13)
    

    12. 

  12. 

    D = (( 13 * C - 1) quot 5)
    

    13. 

  13. 

    E = 5 * ( B mod 100) quot 4
    

    14. 










Als Fehlermeldung erhalte ich "Not in scope" für alle A,B,C,D,E. Weiß zufällig jemand, was mein Fehler ist? Habe ich beim "where" etwas nicht beachtet?



MfG Feras





Haskell / Robertson Wocherntagsformel














Categories: 















0
commentaires:
        
















Enregistrer un commentaire




















        

      









Inscription à :
Publier les commentaires (Atom)