Skip to content

Instantly share code, notes, and snippets.

View christiantakle's full-sized avatar

Christian Takle christiantakle

32 followers · 32 following
View GitHub Profile
@christiantakle
christiantakle / example.bash
Last active August 6, 2018 01:43
bash formatting
sed "/^#/d" "$folders" \
| tee \
>(awk '{print "alias "$1"=\"cd "$2" && ls -a\""}' >> "$shell_shortcuts") \
>(awk '{print "config.bind(\";"$1"\", \"set downloads.location.directory "$2" ;; hint links download\")"}' >> "$qute_shortcuts") \
>(awk '{print "map g"$1" cd "$2"\nmap t"$1" tab_new "$2"\nmap m"$1" shell mv -v %s "$2"\nmap Y"$1" shell cp -rv %s "$2}' >> "$ranger_shortcuts") \
| /dev/null
@christiantakle
christiantakle / fizzbuzz.js
Created November 8, 2017 10:03
Different examples of fizzbuzz in javascript
const
whenDivisibleBy = (x, t, f) => n => (n % x == 0 ? t : f),
fizz = whenDivisibleBy(3, 'Fizz', ''),
buzz = whenDivisibleBy(5, 'Buzz', ''),
fizzBuzz = n => fizz(n) + buzz(n) || String(n);
//Array(...Array(100)).map((_,x) => fizzBuzz(x+1))
@christiantakle
christiantakle / Expr.hs
Created July 9, 2017 17:20 — forked from puffnfresh/Expr.hs
{-# LANGUAGE TupleSections #-}
import Control.Lens
data Expr
= Var String
| App Expr Expr
| Lam String Expr
deriving Show
@christiantakle
christiantakle / postgres_cheat_sheet
Created March 25, 2017 03:16 — forked from johnnyjung/postgres_cheat_sheet
Postgres Cheat Sheet
Postgres Cheat Sheet
Source: Postgresql Documentation
### shell commands
creatuser <user>
deletesuer <user>
createdb -O <user> -E utf8 -T <template> <db_name>
dropdb <db_name>
@christiantakle
christiantakle / blah.hs
Last active March 2, 2017 21:51
Haskell refactor, scale functions are made from minMax + period outside
-- old ----------------------------------------------------------------
mkGraphMeta (start,end) (aggregated,timeSeriesWithColor) =
(aggregated,) $ fromMaybe (Nothing,[]) $ case second unTimeSeries <$> (timeSeriesWithColor :: [(String,TimeSeries)]) of
[] -> Nothing
xss -> do
minMax@(vMin,vMax) <- getMinMax $ snd <$> (xss :: [(String,[(UTCTime,Double)])])
let
tw = end `diffUTCTime` start
fx = fromIntegral pWidth / tw
ph = fromIntegral pHeight
@christiantakle
christiantakle / fix-free-cofree.hs
Created January 25, 2017 09:43 — forked from jtobin/fix-free-cofree.hs
Fix, Free, and Cofree
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE UndecidableInstances #-}
import Prelude hiding (succ)
newtype Fix f = Fix (f (Fix f))
deriving instance (Show (f (Fix f))) => Show (Fix f)
@christiantakle
christiantakle / leaf.hs
Created March 22, 2016 10:10 — forked from ali-abrar/index.html
Setting up Leaflet.js with Reflex.Dom
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
import Reflex.Dom
import Data.Monoid
import GHCJS.Types
import GHCJS.Foreign
import GHCJS.DOM.Element
import GHCJS.DOM.Types
import Control.Monad.IO.Class
newtype LeafletMap = LeafletMap { unLeafletMap :: JSRef LeafletMap }
@christiantakle
christiantakle / Example monoids.js
Created January 28, 2016 10:03
//-- Sum --------------------------------------------------------------
let
identity = 0,
mappend = (x,y) => x + y, // +
concatSum =
xs => xs.reduce(mappend, identity)
concatSum([1,2,3,4,5]) // => 15
//-- Product ----------------------------------------------------------
@christiantakle
christiantakle / springer-free-maths-books.md
Created December 28, 2015 23:39 — forked from bishboria/springer-free-maths-books.md
Springer have made a bunch of maths books available for free, here are the direct links
@christiantakle
christiantakle / random-refactor.js
Last active January 20, 2016 10:03
Quick refactor of random code on http://brooks.io/syntax-highlight/v2/
// Orignal ------------------------------------------------------------
var isFancy = true;
var fancy = document.querySelector("#commentsbtn");
fancy.addEventListener("click", function(e){
if (isFancy) {
document.body.classList.remove("fancy-comments");
isFancy = false;
}
else {