Guru Devanla gdevanla

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 / 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 / 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 / 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 / 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 / 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 / Sequence_State_Monad_Example.hs

Created December 3, 2016 17:46

	-- sequence a state monad
	import Control.Monad.Trans.State

	-- Example 1
	let y = do { z <- get; let a = (Prelude.last z) + 1 in put (z Prelude.++ [a]);return $ (Prelude.last z) + 1} :: State [Int] Int
	runState (sequenceA [y,y,y]) $ [1]

	-- Example: 2
	type X = State (M.Map String Int) Int
	let y s s1 = do { z <- get; let a = z M.! s + 1 in put (M.insert s1 a z) ; let a = z M.! s + 1 in return $ a } :: X

gdevanla / generic_printing.hs

Created September 23, 2016 13:01

	-- Adapted from http://chrisdone.com/posts/data-typeable

	recordShow :: Data a => a -> ShowS
	recordShow = render `extQ` (shows :: String -> ShowS) where
	render t
	\| isTuple = drop 1 . tupleSlots
	\|

gdevanla / metaclasses_at_work.py

Created May 31, 2016 05:22

	import unittest

	def foo(x, y, z):
	return (x != y and x != z or x and z)

	def get_test_args():
	x = y = z = [True, False]
	from itertools import product, repeat
	input_args = list(product(x, y, z))
	expected_args = [

gdevanla / pyodbc.py

Created May 19, 2016 16:15

	import pyodbc

	# This will be the query to run
	sql = 'SELECT * FROM AAF_IS_USER'

	# conn_str = Here repace USER with treussard and YOUR_PASSWORD with the actual password