bitemyapp

The Learning Haskell guide has been moved to a git repo to enable outside contribution

Find it here: https://github.com/bitemyapp/learnhaskell

llasram

(defn p19-solution []
  (let [multiple? #(zero? (rem %1 %2))
        leap-year? #(or (and (multiple? % 4)
                             (not (multiple? % 100)))
                        (multiple? % 400))
        february #(if (leap-year? %) 29 28)
        mdays [31 28 31 30 31 30 31 31 30 31 30 31]
        mdays (map #(constantly %) mdays)
        mdays (apply juxt (assoc (vec mdays) 1 february))
        months (mapcat mdays (range 1901 2001))

wki

use strict;
use warnings;
use feature ':5.10';
use Marpa::XS;
use Data::Dumper;

#
# a simple CSS snippet for testing
#
my $text = q{