Určování přestupného a nepřestupného roku – Funkcionální programování – Fórum – Programujte.com

Nevíte někdo jak vytvořit program který by při vstupu načetl rok a při výstupu určil jestli je přestupný nebo ne?

 Haskell:

isleap = foldl1 ((&&).not).flip map [400, 100, 4]. ((0==).).mod

Common Lisp:

(defun leap-year-p (year)
  (destructuring-bind (fh h f)
      (mapcar #'(lambda (n) (zerop (mod year n))) '(400 100 4))
    (or fh (and (not h) f))))

a mnoho inych

Samozrejme ze vime... byla to uplne prvni rozcvicka za domaci ukol, kdyz sme se rozkoukavali v programovani na vejsce