Skip to content

Instantly share code, notes, and snippets.

Avatar
⚛️
~ The only constant is change ~

Cem Turan cem2ran

⚛️
~ The only constant is change ~
View GitHub Profile
View nix_and_direnv.sh
INSTALL_URL="https://releases.nixos.org/nix/nix-2.3.10/install"
# Install Nix (package manager)
if [[ "$OSTYPE" == "linux-gnu"* ]]; then
sh -c "$(curl -L $INSTALL_URL)"
elif [[ "$OSTYPE" == "darwin"* ]]; then
sh -c "$(curl -L $INSTALL_URL)" --darwin-use-unencrypted-nix-store-volume
else
echo "Unsupported platform :("
return
@cem2ran
cem2ran / reason-0-60.re
Last active Apr 16, 2020 — forked from davidkpiano/ts-0-60.ts
TypeScript from 0 to 60
View reason-0-60.re
// No TypeScript, but statically typed
let add = (a, b) => a + b;
View Child_process.re
open Belt.Result;
type options;
module Stdio: {
type t = pri string;
[@bs.inline "inherit"]
let inherit_: t;
View dominant_color.sh
convert "$@" +dither -colors 5 -unique-colors txt: | head -n 2 | tail -n 1 | awk '{ print $3 }'
@cem2ran
cem2ran / qc35_fix.sh
Created Sep 16, 2016
Bose QC35 bass distortion on Macbook fix
View qc35_fix.sh
defaults read com.apple.BluetoothAudioAgent > ~/com.apple.BluetoothAudioAgent.defaults.txt
defaults write com.apple.BluetoothAudioAgent "Apple Bitpool Max (editable)" 80
defaults write com.apple.BluetoothAudioAgent "Apple Bitpool Min (editable)" 80
defaults write com.apple.BluetoothAudioAgent "Apple Initial Bitpool (editable)" 80
defaults write com.apple.BluetoothAudioAgent "Apple Initial Bitpool Min (editable)" 80
defaults write com.apple.BluetoothAudioAgent "Negotiated Bitpool" 80
defaults write com.apple.BluetoothAudioAgent "Negotiated Bitpool Max" 80
defaults write com.apple.BluetoothAudioAgent "Negotiated Bitpool Min" 80
View index.html
<!DOCTYPE html><script src="https://jspm.io/system@0.19.js"></script><script>System.config({transpiler: "babel"});System.import("./index.js");</script><body></body></html>
@cem2ran
cem2ran / main.js
Created Dec 28, 2015
React Getting Started - How it should be!
View main.js
import React from 'react'
import ReactDOM from 'react-dom'
const Hello = ({name}) => <h1>Hello {name}!</h1>
ReactDOM.render(
<Hello name={"vjeux"}/>,
document.body.appendChild(document.createElement("div"))
)
View 0.Readme.md

##Monads for functional programming (in Elm)

Adaptation of the examples in Philip Wadler's paper "Monads for functional programming" for the Elm language.

These examples can easily be tried out on the online elm playground: http://elm-lang.org/try

View recursive_map_filter_reduce.js
let map = (fn,[head, ...tail]) => head === undefined
? []
: [fn(head), ...map(fn,tail)]
console.log("map(x=>x+1,[1,2,3,4]) :",map(x=>x+1,[1,2,3,4]))
let filter = (predicate, [head, ...tail]) => head === undefined
? []
: predicate(head)
? [head, ...filter(predicate, tail)]
View unfold.scala
def unfold[A,S](initial: S)(generateNext: S => Option[(A, S)]): Stream[A] =
generateNext(initial) match {
case Some((first, next)) => cons(first, unfold(next)(generateNext))
case None => empty
}
val fibs =
unfold((0,1)) {
case (f0, f1) => Some((f0, (f1, f0+f1)))
}