Skip to content

Instantly share code, notes, and snippets.

def _get_class(class_name):
parts = class_name.split(".")
module = ".".join(parts[:-1])
m = __import__(module)
for comp in parts[1:]:
m = getattr(m, comp)
return m
(defn lazy-file-lines [file]
(letfn [(helper [rdr]
(lazy-seq
(if-let [line (.readLine rdr)]
(cons line (helper rdr))
(do (.close rdr) nil))))]
(helper (clojure.java.io/reader file))))
@rotaliator
rotaliator / save_pixels_as_png.clj
Last active January 29, 2019 08:13
Save sequence of pixel values as grayscale image
(ns gist.core
(:require [clojure.string :as str])
(:import (java.io File)
(java.awt.image BufferedImage
WritableRaster)
(javax.imageio ImageIO))
(:gen-class))
(defn save-pixels-as-png
(def conn (atom nil))
(defn ensure-conn [config] (swap! conn #(or % (connect config))))
import json
from functools import wraps
from hashlib import sha1
CACHE_DIR = '_cache/'
MAX_FILENAME_LENGTH = 40
class CacheNotFound(Exception):
pass
@rotaliator
rotaliator / app.cljs
Last active February 20, 2019 09:19
Minimal shadow-cljs app
(ns example.app
(:require [reagent.core :as reagent :refer [atom]]))
(defn app []
[:div
[:h1 "Shadow cljs!"]])
(defn mount-root []
(reagent/render [app] (.getElementById js/document "app")))
(defn str->int
([s] (str->int s 10))
([s base]
#?(:clj (java.lang.Integer/parseInt s base)
:cljs (js/parseInt s base))))
(ns edn-pprint.core
(:require
[clojure.pprint :refer [pprint]]
[clojure.edn :as edn]))
(pprint (edn/read-string (apply str (line-seq (java.io.BufferedReader. *in*)))))
(defn separate-by [f coll]
"Separates coll into two groups by predicate f
example:
=> (separate-by odd? (range 20))
[[1 3 5 7 9 11 13 15 17 19] [0 2 4 6 8 10 12 14 16 18]]
"
(let [groups (group-by (comp boolean f) coll)]
[(groups true) (groups false)]))
;; or
#!/usr/bin/env python
#
# Script downloads subtitles from napiprojekt
# python3 and Windows compatible
#
# based on older script
# by gim,krzynio,dosiu,hash 2oo8.
# last modified: 19-VI-2o19
# 4pc0h f0rc3
from hashlib import md5