Yaron Minsky yminsky

yminsky / vdom_patch.json

Created September 1, 2016 20:13

This file has been truncated, but you can view the full file.

yminsky / vdom_1.json

Created September 1, 2016 20:13

This file has been truncated, but you can view the full file.

yminsky / vdom_0.json

Created September 1, 2016 20:12

yminsky / vdom_patch.json

Created August 30, 2016 16:00

yminsky / new_vdom.json

Created August 30, 2016 15:59

yminsky / prev_vdom.html

Created August 30, 2016 15:58

yminsky / gist:bc8e39c1b31ea79e405c

Created February 7, 2016 14:22

	table server : { Temperature : float,
	Uptime: int }

	task initialize = fn () =>
	dml (DELETE FROM server WHERE TRUE);
	dml (INSERT INTO server(Temperature, Uptime) VALUES({[0.0]}, {[0]}))

	style selected

	val main : transaction page =

yminsky / foo.ml

Created January 8, 2016 01:39

OCD kicking in now



	let rec lexwhile prop inp =
	match inp with
	\| c::cs when prop c -> let tok,rest = lexwhile prop cs in c^tok,rest
	\| _ -> "",inp
	;;

	let rec lex inp =
	match snd(lexwhile space inp) with

yminsky / foo.ml

Created January 8, 2016 01:38

yet better formatting


	let rec lexwhile prop inp =
	match inp with
	\| c::cs when prop c ->
	let (tok,rest) = lexwhile prop cs in
	(c^tok,rest)
	\| _ -> ("",inp)
	;;

	let rec lex inp =

yminsky / foo.ml

Created January 8, 2016 01:33

better formatting


	let rec lexwhile prop inp =
	match inp with
	\| c::cs when prop c -> let tok,rest = lexwhile prop cs in c^tok,rest
	\| _ -> "",inp
	;;

	let rec lex inp =
	match snd(lexwhile space inp) with
	\| [] -> []