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

capitalex's Avatar

capitalex / halfass.min

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 3 months ago
1 (symbol make-wiki (==>) (args rest first build-sitemap-for)) ::
2
3 (symbol build-sitemap-for
4 (str :dir ==>) (get-wiki-pages make-list-of-links write-wiki)
5 ) ::
6
7 (symbol get-wiki-pages
8 (==>) (
9 get-files get-filenames ("index.html" ==) reject '> sort
10 )
capitalex's Avatar

capitalex / update.min

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 3 months ago
1 (symbol update
2 (quot|dict :structure quot :path quot :operation ==> quot|dict :updated) (
3 path first :index
4 (
5 ((path size 1 == structure "quot" type? and) (
6 structure structure index get operation -> index set @updated
7 ))
8
9 ((path size 1 == structure "dict" type? and) (
10 structure structure index dict.get operation -> index dict.set @updated
june's Avatar

june / Variables and math expressions.

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 3 months ago
An example of adding basic variable bindings and binary math expressions to Nova.
1 ||:: foo = bar
2 :: bar = baz
3 :: baz = 2
4 :: quux = foo
5 :: baz = bar + foo
6 :: baz = baz + quux
7 :: baz = baz + baz
8
9
10 ||:@include: lib/rpn.nv
kapunta's Avatar

kapunta / Thue.Mod

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

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

Русский