Skip to content

Instantly share code, notes, and snippets.

View si14's full-sized avatar

Dan Groshev si14

77 followers · 4 following
  • London
View GitHub Profile
@si14
si14 / security_checklist.md
Last active November 23, 2020 17:53

webapp/OAuth2/REST API stack security checklist

OAuth2 (implicit flow)

  • response_type is a constant set for particular app on server (1)
  • redirect_uri, too (1)
  • "state" parameter is echoed by server and checked by client (1)
  • hash of "state" parameters is stored in LocalStorage and destroyed on receiving redirect (1)
  • "client_id" parameter is checked (after obtaining token, make a request to server to get "token_id" for this token and compare to existing one) (2, 3)
  • IP is saved for particular token on grant and checked on access
@si14
si14 / theravada.md
Last active November 9, 2019 19:08
@si14
si14 / tmp.erl
Created November 13, 2013 12:44
-module(tmp).
-behaviour(gen_server).
%% API
-export([start_link/0]).
%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
terminate/2, code_change/3]).
@si14
si14 / gist:7412350
Created November 11, 2013 12:16
-module(foobar_tests).
-include_lib("proper/include/proper.hrl").
-include_lib("eunit/include/eunit.hrl").
prop_delete() ->
?FORALL({X,L}, {integer(),list(integer())},
not lists:member(X, lists:delete(X, L))).
proper_test() ->
?assertEqual(
@si14
si14 / selfcleanup.clj
Last active December 25, 2015 19:59
(defrecord GHCache [^TTLCache ttl-cache etagged cleaner-c])
(defn init-cache []
(let [control-c (chan)
old-killer (fn [etagged]
(let [now (System/currentTimeMillis)]
(->> etagged
(filter #(> (- now (-> % value :created-at))
(* 6 60 60 1000)))
(into {}))))
@si14
si14 / flowdock.sh
Created September 28, 2013 14:58
curl -XPOST -d "source=`git config user.name`&from_address=`git config user.email`&subject=pushed to production&content=`git log --pretty=format:'%s %H' -n 1`" https://api.flowdock.com/v1/messages/team_inbox/YOUR_TOKEN_GOES_HERE
@si14
si14 / code.clj
Created September 23, 2013 20:38
(defn gaussian [m mu gamma]
(let [m (mp/clone m)
t (/ 1 (* gamma (Math/sqrt (* 2 Math/PI))))]
(magic/specialize :double
(loop-over [m]
(let [x (aget m-data m-idx)
exparg (* -0.5 (Math/pow (/ (- x mu) gamma) 2))
g (* t (Math/exp exparg))]
(aset m-data m-idx g))))))
@si14
si14 / tags_types.clj
Last active December 23, 2015 12:59
(defn tags-types [form]
(clojure.walk/prewalk
(fn [form]
(when-let [m (meta form)]
(when-let [t (:tag m)]
(prn m t (type t))))
form)
form))
;; enable printing of meta in repl with (set! *print-meta* true)
@si14
si14 / typehints.clj
Created September 20, 2013 14:39
(def test-form1
'(let [^String a "a"]
:ok))
(def test-form2
`(let [^String ~'a "a"]
:ok))
(def test-form3
`(let [^String a# "a"]
@si14
si14 / examples.md
Last active December 20, 2015 12:29

NDArray examples

An obvious stuff:

> (identity-matrix :ndarray 3)
#<NDArray [[1.0 0.0 0.0] [0.0 1.0 0.0] [0.0 0.0 1.0]]>
> (identity-matrix :ndarray-long 3)
#<NDArrayLong [[1 0 0] [0 1 0] [0 0 1]]>
> (identity-matrix :ndarray-double 3)