Dominik Magdaleński dominem

🏡

home, sweet home

dominem / fibonacci-sequence.clj

Created March 22, 2020 16:14

dominem / my-update-in.clj

Created March 22, 2020 15:52

	(defn my-update-in
	[m ks f & args]
	(assoc-in m ks (apply f (cons (get-in m ks) args))))

	(comment
	(my-update-in {:author {:name "Dominik"}} [:author] vec)
	;; => {:author [[:name "Dominik"]]}
	(my-update-in {:author {:name "Dominik"}} [:author :name] str " Magdalenski")
	;; => {:author {:name "Dominik Magdalenski"}}
	(my-update-in {} [:author :name] str " Magdalenski")

dominem / my-assoc-in.clj

Created March 22, 2020 15:36

	(defn my-assoc-in
	[m [k & ks] v]
	(assoc m k
	(reduce (fn [v-in k-in] (assoc {} k-in v-in))
	v
	(reverse ks))))

	(comment
	(my-assoc-in {} [:a] 1)
	;; => {:a 1}

dominem / my-comp.clj

Created March 22, 2020 15:26

	(defn my-comp
	([f g]
	(fn [& args]
	(f (apply g args))))
	([f g & fns]
	(fn [& args]
	(f (g (reduce (fn [result next-f] (next-f result))
	(apply (last fns) args)
	(reverse (butlast fns))))))))

dominem / counter.html

Last active October 31, 2019 22:08

dominem / gompertz.py

Created June 6, 2018 19:30

	from math import e

	import numpy as np
	import matplotlib.pyplot as plot


	a_arr = np.array([1, 1 / 4])
	c_arr = np.array([1, 1 / 4])
	t_arr = np.linspace(0, 8, 200)

dominem / unpack_args_list_in_matlab_like_in_python.py

Last active June 6, 2018 17:01

	# Example:
	x_values = [(1, 2, 3), (2, 3, 4), (5, 6, 7)]
	y_values = [(1, 2, 3), (2, 3, 4), (5, 6, 7)]
	colors = ['black', 'white', 'red']
	types = ['-', '*', '+']
	for index, value in enumerate(values):
	plot(x_values[index], y_values[index], colors[index], types[index])

	# You can do it better by using just a single array
	args = [((1, 2, 3), (1, 2, 3), 'black', '-'), ((2, 3, 4), (2, 3, 4), 'white', '*'), ((5, 6, 7), (5, 6, 7), 'red', '+')]

dominem / my-map.clj

Last active March 19, 2020 22:28

Clojure's custom map implementation using reduce