Skip to content

Instantly share code, notes, and snippets.

View wavebeem's full-sized avatar

Sage Fennel wavebeem

100 followers · 0 following
View GitHub Profile
@wavebeem
wavebeem / blap.js
Created August 18, 2015 19:04
// squiggle> :set f = fn(n) match (n) { case 0 => 1 case x => x * f(x - 1) }
(function () {
'use strict';
return (false || eval)('this')['f'] = sqgl$$freeze(function (n) {
if (arguments.length !== 1) {
throw new sqgl$$Error('expected 1 argument(s), got ' + arguments.length);
}
return function ($match) {
if (sqgl$$is($match, 0)) {
return function () {
@wavebeem
wavebeem / boring.js
Last active August 29, 2015 14:27
a boring browser global module
(function(global) {
var foo = global.foo;
function bar1() { return 1; }
function bar2() { return 2; }
function bar3() { return 3; }
var api = {
bar1: bar1,
bar2: bar2,
bar3: bar3
};
@wavebeem
wavebeem / main.hs
Created August 7, 2015 01:45
-- Also note, it seems people generally reach for positional types unless the data has many fields.
-- data BTNode t = BTNode t (BTNode t) (BTNode t) | BTNil
-- as opposed to:
-- data BTNode t = BTNode { data :: t, left :: BTNode, right :: BTnode } | BTNil
data Car2 = Car2 { make :: Maybe String } deriving (Show)
-- Haskell automatically makes a function in this scope:
-- make :: Car2 -> Maybe String
-- So you can just say `make c1` to get the make of the Car2 called `c1`.
@wavebeem
wavebeem / compilation-idea.js
Last active August 29, 2015 14:26
Squiggle pattern matching idea
// map = fn(f, xs) match (xs) {
// case [] => []
// case [x, ...xs] => [f(x)] ++ map(f, xs)
// }
// This approach is going to be the best, but it requires the compiler to become
// aware of being inside functions, so it can expand things into statements,
// rather than being purely expression oriented. It's sort of amazing how far
// you can get only using expressions in JS, though. It will also need to
// rewrite variable usage, which might be a little tricky.
@wavebeem
wavebeem / main.js
Last active August 29, 2015 14:26
RPN calculator in JS
/// Consider that the JavaScript version contains far fewer assertions than the
/// Squiggle version. Squiggle automatically asserts that a key is an own
/// property of the object before retreiving it (e.g. x[0], foo.bar, keys must
/// exist or it throws). Also, functions will throw unless called with the
/// correct number of arguments. Arrays and objects created through Squiggle are
/// also implicitly frozen, so you can't accidentally mutate them.
var _ = require("lodash");
var text = "2 3 4 * 3 - +";
@wavebeem
wavebeem / main.js
Created July 30, 2015 20:22
TC.js example translated into Squiggle
var TC = require('tc');
var add = TC
.takes([TC.Number, TC.Number])
.returns(TC.Number)
.by(function(a, b) { return a + b; });
var getName = TC
.takes([TC.Object(TC.Any)])
.returns(TC.String)
.by(function(obj) { return obj.name; });
var max = TC([TC.Number, TC.Number], TC.Number, Math.max);
@wavebeem
wavebeem / OUTPUT
Created July 28, 2015 20:13
Math parser using Parsimmon
####### AST ###############
[ 'Let',
[ 'Ident', 'x' ],
[ 'Number', 1 ],
[ 'Let',
[ 'Ident', 'y' ],
[ 'Number', 2 ],
[ 'BinOp',
'+',
@wavebeem
wavebeem / c-like.rb
Last active August 29, 2015 14:26
Squiggle syntax brainstorm
let (
http = require("http"),
handler = fn(_req, res) do {
res.writeHead(200, {"Content-Type": "text/plain"});
res.end("Hello, world!");
}
) do {
http.createServer(handler).listen(1337, "127.0.0.1");
print("Server started at http://127.0.0.1:1337/");
@wavebeem
wavebeem / index.html
Created July 15, 2015 20:33
A simple addition calculator
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Wobsite</title>
</head>
<body>
<h1>Wobsite</h1>
@wavebeem
wavebeem / gist:8e331825f1ad276e7ee5
Created May 18, 2015 00:22
var add = TC()
.Takes([TC.Number, TC.Number])
.Returns(TC.Number)
.By(function(a, b) { return a + b })
var divide = TC()
.Takes([TC.Number, TC.Nonzero])
.Returns(TC.Number)
.By(function(a, b) { return a / b })
var sum = TC()
.Takes([TC.Array(TC.Number)])