Все Новый

Регистрация

Войти

capitalex

Зарегистрирован 2 years ago

capitalex / averages.poqs

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 2 years ago

1	We've collected the following data points --
2	- {data point of #4}
3	- {data point of #1}
4	- {data point of #7}
5	- {data point of #8}
6	- {data point of #1}
7
8	Let's find the average of these values. We've got a tally running, we
9	should continue accumulating values --

capitalex / simple_state.gd

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 2 years ago

1	extends Node
2	class_name _SimpleState
3
4	signal state_changed(name, state)
5
6	var state := { }
7
8
9	func register(state_name: String, inital_state: Dictionary = {}) -> void:
10	state[state_name] = inital_state

capitalex / move-a.nv

0 лайк(-ов)

0 форк(-ов)

2 файл(-ов)

Последняя активность 2 years ago

1	initial-state:
2	set #1 &move
3	set #1 &a:1000000
4
5	search:
6	rule-1:
7	jez &move %rule-2
8	jez &a %rule-2
9	jez &a %rule-2
10

capitalex / rewriting.modal

0 лайк(-ов)

0 форк(-ов)

2 файл(-ов)

Последняя активность 2 years ago

1	<> (tally ?value (Bag ?list)) ((Bag tallying\| tallying> ?value ?list))
2
3	<> (tallying> ?value ())
4	(<tallying ((Entry ?value 1) ()))
5
6	<> (tallying> ?value ((Entry ?value ?count) ?rest))
7	(<tallying ((Entry ?value @add ?count 1) ?rest))
8
9	<> (tallying> ?value (?entry ?rest))
10	((?entry tallying> ?value ?rest))

capitalex / bag.formal

0 лайк(-ов)

0 форк(-ов)

3 файл(-ов)

Последняя активность 2 years ago

1	<> (tally ?value (Bag ?list)) ((Bag tallying\| tallying> ?value ?list))
2
3	<> (tallying> ?value ())
4	(<tallying ((Entry ?value 1) ()))
5
6	<> (tallying> ?value ((Entry ?value ?count) ?rest))
7	(<tallying ((Entry ?value @add ?count 1) ?rest))
8
9	<> (tallying> ?value (?entry ?rest))
10	((?entry tallying> ?value ?rest))

capitalex / fib.formal

0 лайк(-ов)

0 форк(-ов)

2 файл(-ов)

Последняя активность 2 years ago

1	<> (defer ?x) (?x)
2
3	<> ((Num 0) + (Num ?n)) ((Num ?n))
4	<> ((Num ?n) + (Num 0)) ((Num ?n))
5	<> ((Num ?x) + (Num ?y)) ((Num @add ?x ?y))
6
7	<> (fib (Num 0)) ((Num 0))
8	<> (fib (Num 1)) ((Num 1))
9	<> (fib (Num ?n)) (defer fib (Num @sub ?n 1) + defer fib (Num @sub ?n 2))

capitalex / hello-world-bytes.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 2 years ago

1	\|\| load HELLO, load SP, load WORLD, load NL, print
2
3	\|load HELLO\|
4	, @b1[3], @b1[6]
5	, @b2[0], @b2[2], @b2[6]
6	, @b3[2], @b3[3], @b3[6]
7	, @b4[2], @b4[3], @b4[6]
8	, @b5[0], @b5[1], @b5[2], @b5[3], @b5[6]
9
10	\|load SP\|

Новее Позже

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

Русский