danielmewes

;;;; Lists and Lists - A uLisp Port
;;;; Copyright 1996 by Andrew Plotkin - original Z-machine version
;;;; uLisp port 2025 by Daniel Mewes
;;;;
;;;; An Interactive Tutorial for learning Scheme/Lisp

;;; ============================================================================
;;; COMMON LISP FUNCTION STAND-INS FOR uLISP
;;; ============================================================================

danielmewes

Given a changefeed of the form:

stream.reduce(f).changes({includeInitial: <II>, includeStates: <IS>})

Assume that for the given f, we know the following properties:

• <f_BASE> the initial accumulator for f
• <f_APPLY> a function from the accumulator and an element in the input table to a new accumulator
• <f_UNAPPLY> the inverse of <f_APPLY> in the accumulator

danielmewes

var machine = {
  blank_symbol: 0,
  transitions: [
    {
      from_state: "A",
      read_symbol: 0,
      to_state: "A",
      write_symbol: 0,
      move_head: "R"
    },

danielmewes

// This version precomputes neighbors in order to be more efficient

var initial = [
  "........................O...........",
  "......................O.O...........",
  "............OO......OO............OO",
  "...........O...O....OO............OO",
  "OO........O.....O...OO..............",
  "OO........O...O.OO....O.O...........",
  "..........O.....O.......O...........",

danielmewes

#!/bin/bash

# Splits a given table into n evenly-spaced shards.
# call with ./split-table <tablename> <numshards>

table=$1
shards=$2
cluster="localhost:29015"

splits=`seq 0 $((16**4/$shards)) $((16**4+1)) \