beginnings block 1 exercise 1

exercises/block1/1-leap/README.md

@@ -0,0 +1,21 @@
+# Übungsaufgabe 1: Schaltjahr
+Eine Schaltjahr (im Gregorianischen Kalender) tritt auf:
+
+* In jedem Jahr, das ohne Rest durch 4 teilbar ist.
+* Es sei denn, das Jahr ist ohne Rest durch ``100`` teilbar, in welchem Fall es nur ein Schaltjahr ist, wenn es zusätzlich ohne Rest durch ``400`` teilbar ist.
+
+Einige Beispiele:
+
+* ``1997`` war kein Schaltjahr, da es nicht durch ``4`` teilbar ist.
+* ``1900`` war kein Schaltjahr, da es nicht durch ``400`` teilbar ist.
+* ``2000`` war ein Schaltjahr!
+
+Deine Aufgabe ist es, zu bestimmen, ob ein gegebenes Jahr ein Schaltjahr ist.
+
+Um diese Aufgabe zu lösen, musst du die Funktion ``isLeapYear`` in der Datei ``leap.hs`` implementieren, die ein Jahr entgegennimmt und bestimmt, ob es ein Schaltjahr ist.
+
+Um die Funktion zu testen, kannst du durch die folgenden Commands in diesem Ordner auf der Kommandozeile das Programm compilen und ausführen:
+
+``>ghc leap.hs leap``
+
+``>./leap``

exercises/block1/1-leap/leap.hs

@@ -0,0 +1,11 @@
+import System.IO
+
+isLeapYear :: Int -> Bool
+isLeapYear year -- implement here
+
+main :: IO ()
+main = do
+    content <- readFile "example-input"
+
+    isLeapYear 2000
+