Cem Turan cem2ran

##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

	Function.prototype.curried = function (f=this) {
	return (...args) => args.length < f.length
	? f.curried(args.reduce((g, arg) => g.bind(null, arg), f))
	: f.apply(null, args);
	};

	brew update && \
	brew install nvm && \
	echo "source $(brew --prefix nvm)/nvm.sh" >> ~/.profile && \
	source ~/.profile && \
	nvm install iojs && \
	nvm alias default iojs && \
	npm install -g npm@latest

	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)))
	}

	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)]

	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"))
	)

	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