- emacs 26.3
- cider 0.25.0
- leiningen 2.9.4 on Java 11.0.2
~/.lein/profiles.clj
:{:user {:plugins []}}
In a terminal, run these commands:
;; Running this script in bash: | |
curl -s http://api.football-data.org/v1/competitions/436/leagueTable | jq '.' | tr -d , | grep teamName | awk -F":" 'BEGIN {print "{\n"} {print NR, $2} END {print "\n}"}' | |
;; Results in a clojure map: | |
{ | |
1 "Real Madrid CF" | |
2 "FC Barcelona" | |
3 "Sevilla FC" |
#!/usr/bin/env boot | |
(set-env! :dependencies '[[clj-http "2.3.0"] [cheshire "5.7.0"]]) | |
(require '[clj-http.client :as client]) | |
(require '[clojure.pprint :as pp]) | |
;; Fifa country codes - https://en.wikipedia.org/wiki/List_of_FIFA_country_codes | |
(def countries [ | |
{:id 426 :key :ENG :description "England"} | |
{:id 436 :key :ESP :description "Spain"} |
boot repl | |
(set-env! :dependencies '[[clojure.java-time "0.2.2"]]) | |
(require '[java-time :as t]) | |
(t/time-between (t/local-date 2014 9 27) (t/local-date 2017 2 18) :weeks) |
;; REPL session to play around with clojure.spec | |
;; ------------- START INITIAL SETUP ------------- | |
;; assume these dependencies are specified in the repl environment: | |
;; [org.clojure/clojure "1.9.0-alpha15"] | |
;; [org.clojure/test.check "0.9.0"] | |
;; My leiningen setup: | |
;; cat ~/.lein/profiles.clj |
;; | |
;; Assume leiningen + lein-try plugin installed and working | |
;; | |
;; Fire up a repl with: | |
;; | |
;; lein try incanter "1.5.7" | |
;; | |
(require '[incanter.core :as incanter]) | |
(require '[incanter.charts :as charts]) |
#!/bin/bash | |
# | |
# This is a script to log (and eventually monitor) diskusage on a filesystem. | |
# It will write the disk usage to a logfile. | |
# The logfile will never grow larger than MAX_LINES number of lines. | |
# | |
# The script is 'gnu awk' specific. GNU AWK is available on mac (brew) | |
# and ubuntu (apt-get) as the package 'gawk'. | |
# |
(require '[clojure.string :as s]) | |
(declare print-maze) | |
;; Maze GENERATION | |
(defn create-grid [rows cols] | |
(vec (repeat rows (vec (repeat cols #{}))))) | |
(defn north-of [[row col]] [(dec row) col]) | |
(defn south-of [[row col]] [(inc row) col]) |