Skip to content

Instantly share code, notes, and snippets.

Yaron Minsky yminsky

Block or report user

Report or block yminsky

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
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.