- 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]) |