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

kapunta's Avatar

kapunta / Thue.Mod

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 5 months ago
Thue for Oberon
1 MODULE Thue;
2 IMPORT Texts, Oberon;
3
4 CONST MaxB = 10000;
5 MaxRules = 1000;
6
7 VAR W: Texts.Writer;
8 B: ARRAY MaxB OF CHAR;
9 S, NS, NR: INTEGER;
10 L, R: ARRAY MaxRules OF RECORD s, n: INTEGER END;
electricwah's Avatar

electricwah / latest-compiler-progress.nv

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

electricwah / complete-generic-compiler.nv

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

electricwah / combined_compiler.nv

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

kapunta / thue.4

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

electricwah / append-out.nv

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

capitalex / benthos.lua

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

capitalex / february.lua

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

capitalex / lua-scaffold.nv

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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's Avatar

capitalex / _initialize_state.gd

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 6 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:
Новее Позже

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

Русский