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

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	] ;

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 ;

capitalex / DOESNT Fibonacci

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

An implementation of the fibonacci in DOESNT by Floozutter

1	give a < > b
2	unless
3	[ , b , c , < , > , ]
4	, a a !! , a c !! , a < !! , a ] !!
5	, a b b , a b ] ;
6
7	give < c b
8	unless
9	[ , b , c , < , > , ]
10	, a a !! , a b !! , a c !! , a ] !!

capitalex / coroutines.ml

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

1	open Effect
2	open Effect.Deep
3
4	type _ Effect.t += Yield : unit t
5
6	type status =
7	\| Complete
8	\| Suspended of (unit, status) continuation
9
10	let start (f : unit -> unit) : status =

capitalex / update_grid.ml

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

1	let update_grid () =
2	let next_grid = empty_grid () in
3	for y = 0 to 9 do
4	for x = 0 to 9 do
5	next_grid.(y).(x) <- next_state x y
6	done
7	done;
8	grid := next_grid ;;