hy/site/templates/index.html

{% extends "base.html" %}

{% block title %}Welcome!{% endblock %}

{% block content %}

{# {% autoescape off %}{% code "clojure" %}
(print "foo bar")
{% endcode %}{% endautoescape %} #}

        <div id = 'popshim' >
        <div class = 'popover' >
            <div class = 'focus' >
                <div class = 'repl' >
                    <textarea id = 'repl-input' class = 'repl-pane repl-left' >
; Very much a knockoff (straight port) of Dan Gulotta's 2013 MIT Mystery Hunt
; puzzle "The Halting Problem".


(defn evaluate [f] ((f (lambda [x] (+ x 1))) 0))

(defn successor [n] (lambda [f] (lambda [x] (f ((n f) x)))))
(defn plus [m n] ((n successor) m))
(defn exponent [m n] (n m))
(defn zero [f] (lambda [x] x))
(defn one [f] (lambda [x] (f x)))

(defn predecessor [n] (lambda [f] (lambda [x]
  (((n (lambda [g] (lambda [h] (h (g f))))) (lambda [y] x)) (lambda [z] z)))))

(defn subtract [m n] ((m predecessor) n))

(def two (plus one one))
(def three (plus two one))

(print (evaluate (exponent three three)))
</textarea>
            <pre id = 'repl-output' class = 'repl-pane repl-right' ></pre>
        </div>
    </div>
</div>

{% endblock %}