Skip to content

Instantly share code, notes, and snippets.

View ifesdjeen's full-sized avatar

Alex Petrov ifesdjeen

438 followers · 0 following
View GitHub Profile
@ifesdjeen
ifesdjeen / Haskell vs Clojure Order.clj
Last active August 29, 2015 14:05
;; "Normal" operation order
(->> [1 2 3]
(map inc)
(map #(* 2 %)
(reduce +))
@ifesdjeen
ifesdjeen / Haskell Thunk Leak.md
Last active August 29, 2015 14:06

First of all, sorry for the messy code (it was in a bad condition, and I've been commenting/uncommenting bunch of things to understand what's going on and where, only got time to fix it but not clearnup)

At first, I've started getting

Stack space overflow: current size 8388608 bytes.
@ifesdjeen
ifesdjeen / Haskell Simplification 1.hs
Last active February 11, 2018 13:05
I've got that piece of code that looks extremely overcomplicated to me. Even though every operation by itself is simple, the "sum" of operations is simply insane.
data Query = Query
data SomeObj = SomeObj
data IoOnlyObj = IoOnlyObj
data Err = Err
-- There's a decoder function that makes some object from String
decodeFn :: String -> Either Err SomeObj
decodeFn = undefined
-- There's a query, that runs against DB and returns array of strings
@ifesdjeen
ifesdjeen / Haskell Simplification 2.hs
Last active August 29, 2015 14:07
import Control.Concurrent.ParallelIO.Global (parallel)
import Control.Arrow (left)
data DbError = DbError
data Input = Input
data Result = Result
someOperation :: Either DbError [Input]
-> (Input -> IO (Either DbError Result))
-> IO (Either DbError [Result])
@ifesdjeen
ifesdjeen / LogInterceptor.java
Created February 20, 2015 18:35
package introspect;
import net.bytebuddy.instrumentation.method.bytecode.bind.annotation.AllArguments;
import net.bytebuddy.instrumentation.method.bytecode.bind.annotation.Origin;
import java.lang.reflect.Method;
public class LogInterceptor {
public static void log(@AllArguments Object[] allArguments,
@Origin Method method) {
@ifesdjeen
ifesdjeen / asd.clj
Created June 21, 2015 11:52
(let [channel (create)
incremented-values (map* inc channel)
decremented-values (map* dec channel)]
(consume incremented-values (fn [i] (println "Incremented value: " i)))
(consume decremented-values (fn [i] (println "Decremented value: " i)))
(accept channel 1)
(accept channel 2)
(accept channel 3)
(ms/flush channel))
@ifesdjeen
ifesdjeen / Database Internals Links.md
Last active April 5, 2025 04:52