Все фрагменты

yumaikas / compiled_query.js

0 лайк(-ов)

0 форк(-ов)

2 файл(-ов)

Последняя активность 1 year ago

1	/*
2	\|
3	lightning struck $x $y
4	, $something is at $x $y?
5	, $something has inventory $inventory?
6	, $inventory has item $item?
7	, $item is $class?
8	, $class is conductive?
9	\|
10	$something is struck by lightning

capitalex / moonlets.lua

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	-- slow, inefficient, and partial implemention of a fraglets
2	-- interpreter. Basically enough to run a factorial program
3	-- Also, I changed the syntax.
4	local fraglets = {}
5	local function print_pool()
6	print("--- fraglets ---")
7	for i, fraglet in ipairs(fraglets) do
8	print(table.concat(fraglet, " "))
9	end
10	print()

capitalex / heap-sort.modal

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	<> (?: print) (?:)
2
3	<> ((Num ?x) (Num ?y) '<) (?((?0 ?1 ?:) ((Bool ?:))) ?x ?y <)
4
5	<> ((Bool 1) if ?a ?b) (?a)
6	<> ((Bool 0) if ?a ?b) (?b)
7
8	<> (Empty ?x meld) (?x)
9	<> (?x Empty meld) (?x)
10	<> ((H (?x) (L ?h)) (H (?y) (L ?j)) meld) (

capitalex / luneur.lua

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	local net, live = {}, {}
2
3	local function neuron(name)
4	if not net[name] then
5	net[name] = {
6	name = name,
7	alive = false, sleep = false,
8	arity = 0, saturation = 0,
9	excite = {},
10	inhibit = {},

capitalex / mutable-stack.mth

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	module float-buffer.main
2
3	import std.prelude
4	import std.world
5	import std.buffer
6	import std.maybe
7
8	struct +Stack(a) {
9	+buffer: +Buffer
10	top: IOffset

capitalex / alta.lua

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	local function tokenize(string)
2	local tokens, current_symbol, current_token = {}, {}, {}
3
4	local function push_token()
5	if #current_token ~= 0 then
6	table.insert(current_symbol, table.concat(current_token))
7	current_token = {}
8	end
9	end
10

yumaikas / lspace.lua

0 лайк(-ов)

0 форк(-ов)

2 файл(-ов)

Последняя активность 1 year ago

1	local Space = require("lspace")
2	local enemies = {}
3	local r, f, l, box, tuples, rules = Space()
4
5	local function p(...)
6	local args = {...}
7	return function() print(table.unpack(args)) end
8	end
9
10	function espawn(vars)

capitalex / search-for-value.triplicate

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	= requests =
2	restore - group - $group
3	restore - field - $field
4	temporary - $group - $value
5	= response =
6	restore - group - $group
7	restore - field - $field
8	$group - $field - $value
9
10	= request =

yumaikas / parse_alta.py

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	#! /bin/env python3
2
3	import re
4	from collections import namedtuple
5
6	Pattern = namedtuple("Pattern", ["stack", "value"])
7	Rule = namedtuple("Rule", ["pattern", "consequence"])
8
9	def parse(code):
10	idx = 0

yumaikas / parse_alta.lua

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	local alta = {}
2
3	function alta.parse(code)
4	local idx = 1
5	local STATE_FIND_OUTER_DELIM = "find/outer-delim"
6	local STATE_FIND_INNER_DELIM = "find/inner-delim"
7	local STATE_READ_STACK_NAME = "read/stack-name"
8	local STATE_READ_VALUE_NAME = "read/value-name"
9
10	local state = STATE_FIND_OUTER_DELIM