Skip to content

Instantly share code, notes, and snippets.

Avatar

Yaron Minsky yminsky

View GitHub Profile
View vdom_patch.json
This file has been truncated, but you can view the full file.
{
"23": [
{
"patch": {
"children": [
{
"children": [
{
"text": "PELH"
View vdom_1.json
This file has been truncated, but you can view the full file.
{
"children": [
{
"children": [
{
"text": "Search:"
},
{
"children": [
View vdom_0.json
{
"children": [
{
"children": [
{
"text": "Search:"
},
{
"children": [
{
View vdom_patch.json
{
"23": [
{
"type": 6,
"vNode": null,
"patch": {
"tagName": "tr",
"properties": {
},
View new_vdom.json
{
"tagName": "body",
"properties": {
},
"children": [
{
"tagName": "div",
"properties": {
View prev_vdom.html
{
"tagName": "body",
"properties": {
},
"children": [
{
"tagName": "div",
"properties": {
View gist:bc8e39c1b31ea79e405c
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
yminsky / foo.ml
Created Jan 8, 2016
OCD kicking in now
View foo.ml
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
yminsky / foo.ml
Created Jan 8, 2016
yet better formatting
View foo.ml
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
yminsky / foo.ml
Created Jan 8, 2016
better formatting
View foo.ml
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
| [] -> []
You can’t perform that action at this time.