Marten Sytema Kah0ona

Freelance developer with a love for Clojure. I try to avoid mutability and object orientation where possible.

Kah0ona / gist:eace7fb343a0a4a72d85

Created July 16, 2014 09:37

	jQuery(document).ready(function($){
	$('.tabs').click(function(evt){
	evt.preventDefault();
	$('.tabtargets').hide();
	var clicked = $(evt.currentTarget);
	var toShow = clicked.attr('data-target');

	$(toShow).show();

	});

Kah0ona / Solving 24 flippo's

Created March 2, 2015 19:36

solve a flippo by using t [2,2,7,1]

	import Data.List

	t :: [Double] -> [[Char]]
	t f =
	let
	perms = permutations f
	opers = [("+", (+)), ("-", (-)), ("", ()), ("/" ,(/))]
	in
	["(((" ++ (show $ truncate a) ++ n1 ++ (show $ truncate b) ++ ")" ++ n2 ++ (show $ truncate c) ++ ")" ++ n3 ++ (show $ truncate d) ++ ")" \|
	[a ,b ,c ,d ] <- perms,

Kah0ona / testcase.clj

Created July 25, 2016 12:33

Testcase addition for url encoding.

	(deftest complex-params-to-str
	; other clauses.
	(is (= "d=b%20c" (params-to-str {"d" "b c"})))
	(is (= "d=b%20%26%20c" (params-to-str {"d" "b & c"}))))

Kah0ona / gist:5b5930315d2a690cf459d59b74c82be2

Created April 20, 2017 08:19

keybase.md

	### Keybase proof

	I hereby claim:

	* I am kah0ona on github.
	* I am kah0ona (https://keybase.io/kah0ona) on keybase.
	* I have a public key ASDyA31JwMk91-RUyJsf3sxxihzZTfSlm2GxLkwIenJAygo

	To claim this, I am signing this object:

Kah0ona / test.clj

Created September 7, 2017 19:39

Transducer that merges consecutive elements if they are similar

	(declare merge-peak-with-first)

	(defn concatenate-similar-peaks-xf []
	(fn [xf]
	(let [prev (volatile! ::none)]
	(fn
	([] (xf))
	([result] (xf result))
	([result input]
	(let [prior @prev]

Kah0ona / gist:2fef44f9becfc25c3e203c1286deb74c

Created July 7, 2018 20:28

Teams in JSON

	{
	"simon" : {
	"renners" : [ "Arnaud Demare", "Sonny Colbrelli", "Andre Greipel", "Alejandro Valverde", "Christopher Froome", "Thomas de Gendt", "Dylan Groenewegen", "Ilnur Zakarin", "Rafal Majka", "Adam Yates", "Fernando Gaviria", "Steven Kruijswijk", "Mikel Landa" ],
	"kluns" : "Richie Porte"
	},
	"kasper" : {
	"renners" : [ "Warren Barguil", "Julian Alaphilippe", "Rigoberto Uran", "Greg van Avermaet", "Marcel Kittel", "Domenico Pozzovivo", "Romain Bardet", "Dylan Groenewegen", "Ilnur Zakarin", "Adam Yates", "Primoz Roglic", "Geraint Thomas", "Mikel Landa" ],
	"kluns" : "Vincenzo Nibali"
	},
	"thijs" : {

Kah0ona / gist:24cee488b12ce5cea46356d4c68a1f45

Created August 21, 2019 09:34

km/u erbij

Kah0ona / marathonpaces.txt

Created November 10, 2019 13:06

Marathon paces

Kah0ona / half_marathon.txt

Created November 21, 2019 10:55

paces halve marathon

Kah0ona / script.clj

Created March 29, 2020 15:09

Clojure script to count number of chats per person from WhatsApp export

	(ns user
	(:require [clojure.string :refer [lower-case includes? trim]]))

	(defn parse-line
	"Returns the name of the message, or nil if it can't be found"
	[l]
	(->> l
	trim
	(re-find #"\[.{19}\].(.[A-Za-z\ \-]+):")
	second))