Oliver Marshall Akeboshiwind

Programming Achievements: How to Level Up as a Developer

This gist is part of a blog post. Check it out at:

I hereby claim:

To claim this, I am signing this object:

	Private ID As Integer
	Private DateDate As Date
	Private Period As Integer
	Private Duration As Integer
	Private Repetitions As Integer

	Public Sub Construct(c_ID As Integer)

	ID = c_ID
	Me.LoadData

	"! Remember to reload all tabs after changing
	" Auto update settings from this gist
	set autoupdategist

	" Turn on smoothscroll and slow it down
	set smoothscroll
	let scrollduration=300

	" Try to not let the webpage grap focus
	set noautofocus

	(defn heavy-hitter
	"Output the lement in the list that came up more than 50% of the time, nil otherwise."
	[lst]
	(let [heavy (heavy-hitter* lst)]
	(when (->> lst
	(filter (partial = heavy))
	(count)
	(<= (/ (count lst) 2)))
	heavy)))

	;; Todo: write as a transducer
	(defn reservoir-sample
	"Uniformly choose a sample of k elements from lst"
	[k lst]
	(first
	(reduce
	(fn [[sample length] next]
	(let [r (rand-int length)]
	[(if (< r k)
	(assoc sample r next)

	;; gorilla-repl.fileformat = 1

	;; **
	;;; # LastFM Analysis
	;; **

	;; @@
	(ns lastfm-analysis
	(:require [gorilla-plot.core :as plot]))

	(ns clojupyter.echarts
	(:require [clojupyter.misc.display :as display]
	[cheshire.core :as json]
	[cuerdas.core :as str]))


	(defn init []
	(let [code "
	require.config({
	paths: {