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

capitalex / ewe.wul

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 months ago

1	@ewe @ewe.dup ; @ewe.stack $ {
2	@ewe.stack ( $ $ )
3	}
4
5	@ewe @ewe.swap ; @ewe.stack ( $x $y ) {
6	@ewe.stack ( $y $x )
7	}
8
9	@ewe @ewe.drop ; @ewe.stack ( $x ) { }

capitalex / tak.wul

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 months ago

1
2	{ @ewe ( 8 4 7 tak @ewe.call ) }
3
4	@ewe def tak ; @ewe.stack ~( $x $y $z ) {
5	@ewe (
6	$x $y $z
7	$y $x @ewe.lt @ewe.not tak.true tak.false @ewe.if
8	)
9	}

capitalex / final-digits.txt

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 months ago

1	__\| 1 2 3 4 5 6 7 8 9
2	1 \| 1 2 3 4 5 6 7 8 9
3	2 \| 2 4 6 8 0 2 4 6 8
4	3 \| 3 6 9 2 5 8 1 4 7
5	4 \| 4 8 2 6 0 4 8 2 6
6	5 \| 5 0 5 0 5 0 5 0 5
7	6 \| 6 2 8 4 0 6 2 8 4
8	7 \| 7 4 1 8 5 2 9 6 3
9	8 \| 8 6 4 2 0 8 6 4 2
10	9 \| 9 8 7 6 5 4 3 2 1

capitalex / objects.lua

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 months ago

1	local player = Thing()
2	:has { t = 0, x = 0, y = 0, w = 32, h = 32 }
3	:is { "player", "solid" }
4	:when "dead"
5	:on_start(function(self)
6	self:broadcast "player died"
7	end)
8	:mimic "alive" "draw"
9	:when "alive"
10	:does "update" (function(self, dt)

june / Propagators (Draft)

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 months ago

A quick demonstration of building propagators from scratch.

1	\|\|:@include: lib/rpn.nv
2
3	\|\|:: a = b + c
4	\|\|:: d = a + # 1
5	\|\|:: b = 1
6	\|\|:: c = 2
7
8	\|:: $x = $y $op $z\|
9	:: create some cells :names: ($x $y $z)
10	:: create an operator

capitalex / halfass.min

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 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 / update.min

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 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 / Variables and math expressions.

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 6 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 / Thue.Mod

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 7 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 / latest-compiler-progress.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 7 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 \|

1	__\| 1 2 3 4 5 6 7 8 9
2	1 \| 1 2 3 4 5 6 7 8 9
3	2 \| 2 4 6 8 0 2 4 6 8
4	3 \| 3 6 9 2 5 8 1 4 7
5	4 \| 4 8 2 6 0 4 8 2 6
6	5 \| 5 0 5 0 5 0 5 0 5
7	6 \| 6 2 8 4 0 6 2 8 4
8	7 \| 7 4 1 8 5 2 9 6 3
9	8 \| 8 6 4 2 0 8 6 4 2
10	9 \| 9 8 7 6 5 4 3 2 1

1	\|\|:@include: lib/rpn.nv
2
3	\|\|:: a = b + c
4	\|\|:: d = a + # 1
5	\|\|:: b = 1
6	\|\|:: c = 2
7
8	\|:: $x = $y $op $z\|
9	:: create some cells :names: ($x $y $z)
10	:: create an operator

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 \|