mvarela

[
  [
    {
      "c": "#91867a"
    },
    "~\n`",
    {
      "a": 0
    },
    "!\n1\n\n\nF1",

mvarela

(defn replace-ibids [coll]
  (letfn [(go [{:keys [acc latest]} e]
             (if (and (= e "Ibid.")
                      (some? latest))
               {:acc (conj acc latest) :latest latest}
               {:acc (conj acc e) :latest e}))]
    (if (= "Ibid." (first coll))
      (ex-info "Invalid ibid" {})
      (-> (reduce go {:acc []} coll)
         :acc))))

mvarela

;; This snippet allows to add a ":ns" option to clojure source blocks, which
;; will correctly set the cider-buffer-ns variable, so that the block in quesiton, as well
;; as subsequent blocks, are executed in the desired namespace, instead of "user" (this happens
;; because of how CIDER handles the namespaces in non-clojure files (such as org files)

;; - example usage
;;
;; 
;; The namespace is created, and the rest of the block is evaluated in it.

mvarela

(ns ifs.de-jong
  (:require [clojure.core.matrix :as m]
            [com.evocomputing.colors :as c]
            [clojure.core.matrix.stats :as mstats])
  (:import [java.io File]
           [javax.imageio ImageIO]
           [java.awt Color]
           [java.awt.image
            BufferedImage]))

mvarela

(ns fractals.core
  ( :require [hiccup.core :as hiccup]))

(def start [:F :X])

(defn rewrite [i]
  (cond
    (= :X i) [:X :+ :Y :F :+]
    (= :Y i) [:- :F :X :- :Y]
    :true [i]))

mvarela

library(tidyverse)

# binviz Veles-like binary visualizaiton
binViz2d <- function(filename, alpha = 1/100, maxsize = 5000000,
                    save = TRUE, polar = FALSE, sample = FALSE,
                    sample_size = 2000000, do_density = FALSE){

  # setting dens_plot as NA simplifies the logic below a bit
  dens_plot = NA

mvarela

case `uname` in
    Linux)
        HOSTTYPE="(\[\e[0;33m\]☢\[\e[0;32m\])"
        ;;
    Darwin)
        HOSTTYPE="(\[\e[0;31m\]\[\e[0;32m\])"
        ;;
esac

export PS1="\n\[\e[0;32m\]\u@\h$HOSTTYPE\[\e[m\] \[\e[1;34m\]\w\[\e[m\] \[\e[1;34m\]\nλ\[\e[m\] \[\e[1;37m\]"

mvarela

-- What is a "for" construct, really? :)
for :: (Monad m) => (a, (a -> Bool), a -> a) -> (a -> m ()) -> m ()
for (i, cond, fStep) fm = mapM_ fm $ takeWhile cond $ iterate fStep i

mvarela

...on 10100th target...
darwin.compile.c++ bin.v2/libs/thread/build/darwin-4.2.1/release/link-static/threading-multi/pthread/once.o
common.mkdir bin.v2/libs/wave/build/darwin-4.2.1/release/link-static
common.mkdir bin.v2/libs/wave/build/darwin-4.2.1/release/link-static/threading-multi
darwin.compile.c++ bin.v2/libs/thread/build/darwin-4.2.1/release/link-static/threading-multi/pthread/thread.o
darwin.archive bin.v2/libs/thread/build/darwin-4.2.1/release/link-static/threading-multi/libboost_thread-mt.a
common.copy /usr/local/Cellar/boost/1.47.0/lib/libboost_thread-mt.a
darwin.compile.c++ bin.v2/libs/wave/build/darwin-4.2.1/release/link-static/threading-multi/instantiate_cpp_grammar.o
darwin.compile.c++ bin.v2/libs/wave/build/darwin-4.2.1/release/link-static/threading-multi/instantiate_cpp_exprgrammar.o
darwin.compile.c++ bin.v2/libs/wave/build/darwin-4.2.1/release/link-static/threading-multi/instantiate_cpp_literalgrs.o