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

capitalex / main.wul

0 лайк(-ов)

0 форк(-ов)

2 файл(-ов)

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

1	{ @code [
2	local objects = {}
3	local id = 0
4	] }
5
6	{ @ initialize LOVE event handlers
7	, spawn 1000 circles
8	}
9

capitalex / main.processor.wul

0 лайк(-ов)

0 форк(-ов)

4 файл(-ов)

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

1	{
2	@ make player at 100 100
3	, move player by 20 50
4	, @lamb pprint
5	}
6
7	@processor @ ;
8	@ move player by $x $y {
9	@processor @ ; @process switch to @ewe ;
10	@ewe ( #player @ewe.peek move by $x $y 4 @lamb.invoke @ewe.done ) ;

capitalex / main.wul

0 лайк(-ов)

0 форк(-ов)

3 файл(-ов)

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

1	{
2	@ make player at 100 100
3	, move player by 20 50
4	, @lamb pprint
5	}
6
7	@ move player by $x $y {
8	@ewe ( #player @ewe.peek move by $x $y 4 @lamb.invoke ) ;
9	}

capitalex / crummy.cr

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

1	require "./event"
2
3	module Crummy
4	# Enum holding various ASCII control codes. Not all code are present in this
5	# enum.
6	enum ControlChar
7	Null
8	StartHeading
9	StartText
10	EndText

capitalex / ewe.wul

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 8 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 файл(-ов)

Последняя активность 8 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 файл(-ов)

Последняя активность 8 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 файл(-ов)

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

capitalex / halfass.min

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 8 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 файл(-ов)

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

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