Guru Devanla gdevanla

gdevanla / mvar_as_closure.hs

Last active January 30, 2017 04:02

Using MVar as a closure value

	{-# LANGUAGE KindSignatures #-}
	{-# LANGUAGE RankNTypes #-}
	{-# LANGUAGE OverloadedStrings #-}

	import Control.Concurrent.MVar

gdevanla / cc_style_simple_example.hs

Created February 8, 2017 13:36

example of folding over functions

	-- continuation calling style of functions
	f :: forall a. Integral a => a -> (a -> a) -> a -> a
	f y fun x = if x == y then x * x else fun x

	f_base :: forall a. Num a => a -> a

gdevanla / auto_insert_github_link.el

Created February 20, 2017 19:25

	;;; package --- Something here
	;;; Commentary:

	;;; Code:
	(defun get-line-no ()
	"Returns line no of first argument"
	(interactive)
	(let* (lineno)
	(save-excursion
	(start-of-paragraph-text)

gdevanla / test.py

Last active May 18, 2017 12:55

for color formatting

	from openpyxl.styles import Alignment

	def format_data(index, col_name):
	alignment = Alignment(horizontal=’right’)
	if col_name == ‘salary’:
	return dict(
	alignment=alignment,
	number_format='$0.00')

gdevanla / stackaga_build.sh

Created January 23, 2018 14:10

Stackage commands to run before package update

	stack unpack $package
	cd $package-$version
	stack init --resolver nightly
	stack build --resolver nightly --haddock --test --bench --no-run-benchmarks

gdevanla / y-combinator-racket.rkt

Created February 7, 2018 14:19

Y-Combinator description in Racket

	;; lambda expression do not have any assignments
	;; so we will use the form where there is not lambda expressions

	((lambda ()
	(define (adder n) (+ n 1))
	(define (mult3 n) (* n 3))
	(mult3 (adder 10))
	))

	;; create make-adder and compose using higher-order functions

gdevanla / ycombinator.py

Created February 15, 2018 13:25

	# coding: utf-8

	# Python code to demonstrate the Y-combinator using
	# the working example presented by Jim Weirich.
	# https://www.infoq.com/presentations/Y-Combinator


	def demo():

	fact_1 = lambda n: 1 if n == 0 else (n * fact_1 (n - 1))

gdevanla / machine_setup.txt

Created February 16, 2018 15:47

machine setup

	Remapping keys

	https://askubuntu.com/questions/149971/how-do-you-remap-a-key-to-the-caps-lock-key-in-xubuntu

	sudo vi /etc/default/keyboard

	then find the line that starts with XKBOPTIONS, and add ctrl:nocaps to make Caps Lock an additional Control key or ctrl:swapcaps to swap Caps Lock and Control.

	For example, mine looks like

gdevanla / revset_generator.py

Created May 4, 2018 16:23

Using python function call syntax to generated 'revsets' needed by mercurial

	'''
	Module that can generate revset expressions required by Hg from python function call structures.
	'''

	def _wrap(outer_fn, *args):
	args = args or ''
	if args:
	args = ", ".join(args)
	return '{}({})'.format(outer_fn, args)

gdevanla / install-python.sh

Created June 27, 2018 02:20

Install Python 3.6.5 in Ubuntu 16+

	#!/bin/bash
	export PYTHON_VERSION=3.6.5
	export PYTHON_DOWNLOAD_URL=https://www.python.org/ftp/python/$PYTHON_VERSION/Python-$PYTHON_VERSION.tgz

	sudo apt update
	sudo apt install --no-install-recommends -y \
	software-properties-common build-essential \
	libssl-dev libreadline-dev libbz2-dev libsqlite3-dev zlib1g-dev \
	python-minimal