Sergey Trofimov serioga

Clojure Developer

serioga / test.clj

Created December 26, 2018 08:51

Test solutions for request from @linchk https://t.me/clojure_ru/71619

	(ns dev.test
	"Test solutions for request from @LinchK https://t.me/clojure_ru/71619"
	(:require
	[criterium.core :as criterium]))

	(set! warn-on-reflection true)


	(def sample
	"Data sample from https://t.me/clojure_ru/71619"

serioga / test-multi.clj

Last active January 26, 2019 12:26

Benchmark for mutimethods. See updated version at https://github.com/serioga/clojure-benhcmarks/blob/master/src/clojure_benchmarks/multimethods.clj

serioga / qwe.clj

Last active January 26, 2019 11:00

Matching without `match`.

	(ns clojure-benchmarks.qwe
	"To match or not to match.

	https://t.me/clojure_ru/77518
	канаки, [25.01.19 19:57]
	ну простой пример, когда нужно по разному хендлить [:qwe 0] и [:qwe n]
	конечно это все можно и просто ификами написать, но это лишняя вложенностт")

	(set! warn-on-reflection true)

serioga / cljs_logging.cljc

Created February 23, 2019 19:18

Simple logging to console in ClojureScript

	(ns app.lib.util.cljs-logging
	#?(:cljs
	(:require-macros app.lib.util.cljs-logging)))

	#?(:clj (set! warn-on-reflection true) :cljs (set! warn-on-infer true))


	#?(:cljs
	(do
	(def console-fns

serioga / armstrong.clj

Last active January 9, 2020 10:17

Armstrong

	(ns task.armstrong
	"Task description: create function to check if integer is an
	armstrong number https://en.wikipedia.org/wiki/Narcissistic_number.

	For https://t.me/clojure_ru/103457."
	(:require
	[clojure.test :as t]))

	(set! warn-on-reflection true)

serioga / integrant.clj

Created January 27, 2020 13:55

Integrant extention for parallel initialization

	(ns app.lib.util.integrant
	"Adapted integrant functionality.
	Features:
	- system rollback on failures;
	- futures in `init-key` and `halt-key!` for parallel initialization."
	(:require
	[app.lib.util.exec :as exec]
	[clojure.tools.logging :as log]
	[integrant.core :as ig]
	[vonstierlitz.online.util.logging-context :as logging-context]))

serioga / core.clj

Created May 7, 2020 16:45

Example how to handle postgresql arrays in result set (next.jdbc)

	(ns app.database.core
	(:require
	[app.database.sql-array :as sql-array]))

	(set! warn-on-reflection true)


	; SQL Helper functions

	(defn text-array

serioga / edn_benchmark.clj

Last active August 30, 2020 10:04

	(ns edn-benchmark
	"For https://twitter.com/GirlGameDev/status/1299153999057375237
	https://github.com/naomijub/edn-duration-benchmark"
	(:require [clojure.edn :as edn]))

	(set! warn-on-reflection true)

	;;;; tested in REPL with `criterium.core/quick-bench`
	;;;; windows 10, CPU 3.30 GHz, RAM 16 GB
	;;;; clojure "1.10.1", java 11

serioga / browser.cljc

Created August 10, 2021 07:24

CLJS REPL in browser.

	(ns dev.env.cljs-repl.browser
	"CLJS REPL in browser. See https://clojurescript.org/reference/repl.
	Run local clojure.main REPL with `-m dev.env.cljs-repl.browser` parameters to work from Cursive."
	(:require [cljs.repl :as repl]
	[cljs.repl.browser :as browser]))

	;•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

	(def ^:private output-dir "out/repl/browser")

serioga / flexiana_test_task.clj

Last active December 29, 2021 05:40

flexiana-test-task

	(ns user.flexiana-test-task
	"https://twitter.com/itunderhood/status/1475580051571757065
	https://github.com/Terbiy/flexiana-test-task/blob/main/test/flexiana_test_task/core_test.clj"
	(:require [clojure.test :refer :all]))

	(set! warn-on-reflection true)

	;;••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

	(defn scramble? [a b]