m0smith

cd ~/annals/storm/
mkdir Storm202{0,1}
cat Storm\ 2020\ Transactions.csv | parallel --header : --pipe -N500000 'cat >Storm2020/Storm2020_{#}.csv'
cat Storm\ 2021\ Transactions.csv | parallel --header : --pipe -N500000 'cat >Storm2021/Storm2021_{#}.csv'
zip -r storm.zip Storm202[01]

m0smith

cd ~/annals/storm/
mkdir Storm202{0,1}
cat Storm\ 2020\ Transactions.csv | parallel --header : --pipe -N500000 'cat >Storm2020/Storm2020_{#}.csv'
cat Storm\ 2021\ Transactions.csv | parallel --header : --pipe -N500000 'cat >Storm2021/Storm2021_{#}.csv'
zip -r storm.zip Storm202[01]

m0smith

;; To get factorial of 5
(* 5  4 3 2 1)

;; To get factorial of n: n!
(apply * (range 5 0 -1)

m0smith

(require '[clojure.test.check.random :as random] 
         '[clojure.test.check.generators :as gen] 
         '[clojure.test.check.rose-tree :as rt])

(defn shrinks 
  "Shows how a generator will shrink"
  ([g] (shrinks g 10 10))
  ([g size] (shrinks g size 10))
  ([g size sample] (take sample (distinct (map rt/root 
     (tree-seq (fn [_] true) rt/children (gen/call-gen g (random/make-random) size)))))))

m0smith

(require '[clojure.test.check.generators :as gen])
(require '[clojure.string :refer [join]])
(require '[schema-generators.generators :as g])
(require '[schema.core :as s])

(def IP String)

#_(def IP (s/named String "IP"))

m0smith

(ns bug-demo
  (:require [datomic.ion.cast :as cast]
            [clojure.java.io :refer [output-stream]]))

(cast/initialize-redirect :stderr) ; instead of :stdout
(cast/event {:msg "ShouldNotCauseAStackOverflowErrorInCider"})

m0smith

(ns bug-demo
  (:require [datomic.ion.cast :as cast]
            [clojure.java.io :refer [output-stream]]))

(cast/initialize-redirect :stdout)
(cast/event {:msg "ShouldNotCauseAStackOverflowErrorInCider"})

m0smith

  :kaocha {:extra-paths ["test"]
      :extra-deps {lambdaisland/kaocha {:mvn/version "0.0-529"}
                   lambdaisland/kaocha-junit-xml {:mvn/version "0.0-70"}
                   lambdaisland/kaocha-cloverage {:mvn/version "0.0-32"}
                   cloverage {:mvn/version "RELEASE"}
                   }
      :main-opts ["-m" "kaocha.runner" 
                  "--plugin" "kaocha.plugin/junit-xml"
                  "--plugin" "cloverage" "--no-cov-summary"
                  "--junit-xml-file" "target/test-results/junit.xml"]}

m0smith

#!/usr/local/bin/python

import os
import subprocess
import sys

commands ={ ".svn" : ["svn","-u","status"],
            ".git" : ["git", "status"] }

def parent_dirs(f_or_d):

m0smith

(defun list-to-hash (coll)
  (let ((rtnval (make-hash-table :test 'equal)))
    (cl-loop for r across coll
             when r
             do (puthash (elt r 1) nil rtnval))
    rtnval))
  

(defun jdee-open-source-resource-in-archive-p (archive resource)
  ""