All New

Register

Login

All gists

electricwah / latest-compiler-progress.nv

0 likes

0 forks

1 files

Last active 2 months ago

1	\|\| '@include' (lib/platforms/browser_dom.nv lib/math.nv)
2
3	\|\| :DOM: ( <query #code-actions <@after #out or textarea id = out value = [] )
4	\| :: output :current dom element: $out? \|
5	:@js: $out.value += (stacks['final out'].map(x=>x.join(' ')).toReversed().join('\n')+'\n'); delete stacks['final out'];
6
7	\| :: breakpoint \|
8	\| :: breakpoint \| :@js: me.gas = 0;
9
10	\| :: get cause 1 \|

electricwah / complete-generic-compiler.nv

0 likes

0 forks

1 files

Last active 2 months ago

1	\| :: get cause 1 \|
2	:stack: A
3	:pattern: . a
4	. b
5	. variable c
6	. d
7	. variable e
8	:index: ( 0 1 2 3 4 )
9	\| :: get cause 2 \|
10	:stack: A

electricwah / combined_compiler.nv

0 likes

0 forks

1 files

Last active 2 months ago

1	\| :: get cause 1 \|
2	:stack: A
3	:pattern: . a
4	. b
5	. variable c
6	. d
7	. variable e
8	:index: ( 0 1 2 3 4 )
9	\| :: get cause 2 \|
10	:stack: A

kapunta / thue.4

0 likes

0 forks

1 files

Last active 3 months ago

1	( Thue interpreter for pForth
2	07.09.2025 )
3
4	0 value B 0 value L
5	10000 constant maxlen
6
7	: >B ( i -- a ) B + ;
8	( : line here dup to B maxlen accept to L ; )
9	: B. B L type cr ;

electricwah / append-out.nv

0 likes

0 forks

1 files

Last active 3 months ago

1	\|\| '@include' lib/platforms/browser_dom.nv
2
3	\|\| :DOM: ( <query #code-actions <@after #out or textarea id = out value = [] > > <query #out )
4
5	\| :first: :reversed: $x \| :append: $x
6	\| :append: \n :current dom element: $o?\| :@js: $o.value += '\n';
7	\| :append: \t :current dom element: $o?\| :@js: $o.value += '\t';
8	\| :append: $x :current dom element: $o?\| :@js: $o.value += $x;

capitalex / benthos.lua

0 likes

0 forks

1 files

Last active 3 months ago

1	local LEFT, RIGHT, LABEL, SYMBOL = 1, 2, 1, 2
2	local pprint = require "pprint"
3	local function read_symbol(stream)
4	local char, symbol = stream(), {}
5	if not char then return nil end
6	while char:match("%s") do char = stream() end
7	while char:match("%S") do table.insert(symbol, char) char = stream() end
8	return table.concat(symbol)
9	end

capitalex / february.lua

0 likes

0 forks

1 files

Last active 3 months ago

1	local pprint = require "pprint"
2	local program = [[
3	= = @rpn \\ [3] [4] dup * swap dup * swap + sqrt print
4
5	= @rpn dup . @rpn.data $ =
6	@rpn.data \\ $ $
7
8	= @rpn swap . @rpn.data \\ $x $y =
9	@rpn.data \\ $y $x

capitalex / lua-scaffold.nv

0 likes

0 forks

1 files

Last active 3 months ago

1	\|- lowky, kind forget what all this does -\|
2	\|\|
3	:stacks: (
4	.arity .1
5	@stdio.arity @stdio.1 @stdio.2
6	@jet.arity @jet.1
7	)
8	:rule: (
9	.arity 1 pushsym .1 10 pushsym
10	.arity 1 pushsym .1 33 pushsym

capitalex / _initialize_state.gd

0 likes

0 forks

1 files

Last active 3 months ago

1	extends Node
2
3	const BLACK_BAR_IMAGE = preload("res://assets/imgs/ui/bg_img.png")
4	# Declare member variables here. Examples:
5	# var a: int = 2
6	# var b: String = "text"
7
8
9	# Called when the node enters the scene tree for the first time.
10	func _ready() -> void:

mary / check-within-bounding-box.nv

0 likes

0 forks

4 files

Last active 4 months ago

1	Historical artifact from 5/25/2025. Adapted from Wryl's `predicates.nv` script.
2
3	https://discord.com/channels/1292370746017976391/1310739230242242682/1376275575978590268

Powered by Opengist ⋅ Load: 216ms⋅

English