Все Новый

user:thomas фрагментов создано пользователем

title:mygist gists with given title

filename:myfile.txt gists having files with given name

extension:yml gists having files with given extension

language:go gists having files with given language

topic:homelab gists with given topic

Регистрация

Войти


Все Новый Регистрация Войти

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

Свежие сверху по дате создания
Свежие снизу по дате создания
Свежие сверху по дате обновления
Свежие снизу по дате обновления
yumaikas's Avatar

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's Avatar

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's Avatar

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's Avatar

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's Avatar

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's Avatar

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's Avatar

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's Avatar

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's Avatar

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's Avatar

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
Новее Позже

Работает на Opengist ⋅ Load: 205ms⋅

Русский
Čeština Deutsch English Español Français Magyar Italiano 日本語 Polski Português Русский Türkçe Українська 中文 繁體中文