Skip to content

Instantly share code, notes, and snippets.

View TeamSPoon's full-sized avatar

Douglas R. Miles TeamSPoon

View GitHub Profile
@TeamSPoon
TeamSPoon / gist:62b26d489e653fee87ee74aa983d043b
Last active August 3, 2023 13:44 — forked from patham9/gist:ee21bf485a2565ebcd0450ccccc557c8
Prolog-like append/3 for Hyperon in MeTTa
use hyperon::metta::*;
use hyperon::metta::interpreter::*;
fn main() {
let space = metta_space("
(= (append () $L $L) True)
(= (append (Cons $H $T) $L (Cons $H $R)) (append $T $L $R))
@TeamSPoon
TeamSPoon / cloudSettings
Last active August 3, 2021 13:31 — forked from elarib/travis-local.md
Run Travis build locally
{"lastUpload":"2021-08-03T13:31:55.153Z","extensionVersion":"v3.4.3"}
<!DOCTYPE html>
<html>
<head>
<script type="text/javascript">
function makeContext() { return { choices:[], trail:[], halted:false }; }
// Push a new choice point onto the stack
function pushChoice( ctx, choiceThunk ) {
ctx.choices.unshift( { thunk:choiceThunk, trailIndex:ctx.trail.length } );
}