sniperliu

;; warm up: balancing
=> (s/def ::balanced
     (s/* (s/cat :open #{'<} :children ::balanced :close #{'>})))
:user/balanced
=> (s/conform ::balanced '[< < > < > > < >])
[{:open <, :children [{:open <, :close >} {:open <, :close >}], :close >} {:open <, :close >}]
=> (s/conform ::balanced '[< < > < < > > > < >])
[{:open <, :children [{:open <, :close >} {:open <, :children [{:open <, :close >}], :close >}], :close >} {:open <, :close >}]

;; infix to prefix

sniperliu

{-# LANGUAGE BangPatterns #-} 
module SimpleExampleMvar where
import Control.Concurrent 
import Control.Monad 
import System.Environment(getArgs) 
import Data.Int 
import Text.Printf
import Control.Exception
import System.CPUTime
-- modified version of @__josejuan__ 

sniperliu

(ns net.thegeez.advent.spec-parsing
  (:require [clojure.string :as str]
            [clojure.spec :as s]
            [clojure.spec.gen :as gen]
            [clojure.test.check.generators :as tgen]))
;; Dependencies:
;; [org.clojure/clojure "1.9.0-alpha14"]
;; [org.clojure/test.check "0.9.0"]

;; Advent of Code is a series of code challenges in the form of an advent