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

kapunta's Avatar

kapunta / thue.4

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

mary / check-within-bounding-box.nv

0 лайк(-ов)
0 форк(-ов)
4 файл(-ов)
Последняя активность 1 year ago
1 Historical artifact from 5/25/2025. Adapted from Wryl's `predicates.nv` script.
2
3 https://discord.com/channels/1292370746017976391/1310739230242242682/1376275575978590268
capitalex's Avatar

capitalex / traits.rs

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 1 year ago
1 #[derive(Debug)]
2 enum WeaponType {
3 Sword,
4 Club,
5 }
6
7 #[derive(Debug)]
8 struct WeaponComp {
9 weapon: WeaponType,
10 power: i32,
autumn's Avatar

autumn / circles animation

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 1 year ago
the circles performance test in the Myte playground
1 || '@include' https://gist.casuallyblue.dev/autumn/056799f483464c668e0a6a2d9db099df/raw/HEAD/game.nv
2
3 'orbit speed' 0.003
4 'orbit width' 10
5
6 '' start a 400 by 400 game
7 '' create 400 circles
8
9 | '' create 0 circles |
june's Avatar

june / Greek Salad

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 1 year ago
A small recipe for a Greek salad.
1 |- greek salad -|
2 - chop
3 - romaine lettuce
4 - slice
5 - red onions
6 - dice
7 - cucumbers
8 - chop
9 - bell peppers
10 - cube
Новее Позже

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

Русский