Всі gist - Opengist

capitalex / dsl.lua

0 вподобань

0 форк(-ів)

3 файл(-ів)

Остання активність 1 week ago

1	local function eval (prog, env)
2	local env = env or {}
3	local last
4	for _, fn in ipairs (prog) do
5	last = fn (env)
6	end
7	return last
8	end
9
10	local function force (env)

capitalex / script.lua

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 1 week ago

1	WeekOne = {}
2	function WeekOne.morning ()
3	player.at = "home"
4	player.x = bed.x
5	player.y = bed.y
6
7	add (home_door) (bed) (computer) (player) ()
8
9	interaction (home_door) (player) (then_go_to (WeekOne.work))

capitalex / stuff.lua

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 2 weeks ago

1	-- quotation.lua
2	local function quotation_call(quote, env)
3	if rawget(quote, "namespace") then env.namespace:push(quote.namespace) end
4	for _, item in ipairs(quote.body) do
5	local typ = type(item)
6	if typ == "number" or typ == "boolean" or typ == "string" or (typ == "table" and item.type == "quote") then
7	env.data:push(item)
8	else
9	item(env)
10	end

capitalex / point.gilded

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 2 weeks ago

1	: sq dup * ;
2
3	: keep
4	over { call } dip ;
5
6	: mag@ 'mag@ print
7	'x @ dup print sq
8	'y @ dup print sq
9	+ sqrt ;

capitalex / hello-world.kbl

0 вподобань

0 форк(-ів)

2 файл(-ів)

Остання активність 2 weeks ago

1	Actors [ :Helloer :Goodbyer :Worlder :Changer ] ;
2
3	Every :Tick :Helloer does [ Say "Hello, " ] ;
4	Every :Tick :Goodbyer does [ Say "Goodbye, " ] ;
5	Every :Tick :Worlder does [ Say "World!" ] ;
6	Every :Tick :Changer does [
7	Peek :CurrentScene ; Is :HelloWorld ; Then [
8	Become :GoodbyeWorld ; Done ;
9	] ;

june / Deck of Cards

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 3 weeks ago

Generate a deck of cards.

1	\|\|:: form a deck :suits: (spades hearts diamonds clubs)
2	:ranks: (2 3 4 5 6 7 8 9 jack queen king ace)
3
4	\|:: form a deck? :suits: $suit\|
5	:: match $suit to a rank
6	:used suits: $suit
7	\|:: form a deck\|
8	:: reset suits
9
10	\|:: match $suit to a rank? :ranks: $rank\|

autumn / pyra nested loops

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 3 weeks ago

1	\| EXAMPLE USAGE
2
3
4	* create a 3x3 grid of cubes
5	- loop ~ from: 0 0 0 ~ to: 2 2 2 - by: 1
6	- create cubelets
7
8	* create cubelets * done:
9
10	\| create cubelets \ indices: I J K

june / Quad Store w/ Arrays

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 3 weeks ago

A definition of a quad store, and an example defining arrays.

1	\|\|:: foo @ 0 = 10
2	:: foo @ 1 = 20
3	:: foo @ 2 = 30
4	:: foo @ 0
5	:: foo @ *
6
7	\|:: $name @ *? :found: array $name $index $value\|
8	:values: $value
9	\|:: $name @ * :empty:\|
10	\|:: $name @ *?\|

capitalex / boil.glsl

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 3 weeks ago

1	uniform sampler2D noise;
2	uniform float scale = 0.005;
3	uniform float TIME = 0.0;
4	uniform vec2 TEXTURE_PIXEL_SIZE;
5
6	vec4 effect(vec4 color, Image TEXTURE, vec2 UV, vec2 screen_coords) {
7	vec2 uv = UV;
8	vec2 noise_pixel_size = vec2(256.0);
9	vec2 noise_uv = UV / TEXTURE_PIXEL_SIZE / noise_pixel_size;
10	vec2 sample = Texel(noise, vec2(noise_uv + TIME - mod(TIME, 0.15))).rb;

capitalex / email-archives.factor

0 вподобань

0 форк(-ів)

1 файл(-ів)

Остання активність 1 month ago

1	! Copyright (C) 2026 CapitalEx.
2	! See https://factorcode.org/license.txt for BSD license.
3	USING: assocs calendar calendar.format concurrency.combinators
4	io.encodings.utf8 io.files kernel make math.parser sequences
5	splitting unicode ;
6	IN: email-archives
7
8	: post-date ( json -- ymdhms )
9	"postDate" of dup [ dec> unix-time>timestamp timestamp>ymdhms ] [ drop "[DATE MISSING]" ] if ;