mikera

;; *clojure-version*
;; (require '[taoensso.encore :as encore])

(let [v [1 2 3 4]
      x 1
      y 2
      z 3]

  (encore/qbench ; Returns fastest of 3 sets of lap times for each form, in msecs
    1000000 ; Number of laps

mikera

(use '[clojure.core.match :only [match]])

(defn evaluate [env [sym x y]]
  (match [sym]
    ['Number]   x
    ['Add]      (+ (evaluate env x) (evaluate env y))
    ['Multiply] (* (evaluate env x) (evaluate env y))
    ['Variable] (env x)))
    
(def environment {"a" 3, "b" 4, "c" 5})

mikera

;; enodyt's solution to Game of Life
;; https://4clojure.com/problem/94

(fn [board]
    (let [dx (count (first board))
          dy (count board)
          neighbours (fn [pos board]
                       (let [xs [[-1 -1] [0 -1] [1 -1]
                                 [-1  0]        [1  0]
                                 [-1  1] [0  1] [1  1]]]