mqrelly

<?xml version="1.0" encoding="utf-8" ?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
  <channel>
    <title>2014-2015. évad</title>
    <description></description>
    <link>https://www.palferi.hu/hanganyagok/2014-2015/</link>
    <atom:link href="rss.xml" rel="self" type="application/rss+xml" />
    <lastBuildDate>Sun, 14 Mar 2021 22:10:50 +0100</lastBuildDate>
    <pubDate>Sun, 14 Mar 2021 22:10:50 +0100</pubDate>
    <ttl>60</ttl>

mqrelly

<?xml version="1.0" encoding="utf-8" ?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
  <channel>
    <title>2013-2014. évad</title>
    <description></description>
    <link>https://www.palferi.hu/hanganyagok/2013-2014/</link>
    <atom:link href="rss.xml" rel="self" type="application/rss+xml" />
    <lastBuildDate>Tue, 24 Mar 2020 17:35:13 +0100</lastBuildDate>
    <pubDate>Tue, 24 Mar 2020 17:35:13 +0100</pubDate>
    <ttl>60</ttl>

mqrelly

<?xml version="1.0" encoding="utf-8" ?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
  <channel>
    <title>2012-2013. évad</title>
    <description></description>
    <link>https://www.palferi.hu/hanganyagok/2012-2013/</link>
    <atom:link href="rss.xml" rel="self" type="application/rss+xml" />
    <lastBuildDate>Wed, 30 Oct 2019 07:29:20 +0100</lastBuildDate>
    <pubDate>Wed, 30 Oct 2019 07:29:20 +0100</pubDate>
    <ttl>60</ttl>

mqrelly

(def roman-digits ["I" "V" "X" "L" "C" "D" "M"])

(defn get-digit-set [exponent]
  (let [base-index (* 2 exponent)]
    [
     ["" 
      (roman-digits base-index)
      (roman-digits (+ base-index 1))]
     [
      (roman-digits (+ base-index 1))