's Avatar

capitalex

Зарегистрирован 1 year ago

capitalex's Avatar

capitalex / 00.screen-ports-currently.lua

0 лайк(-ов)
0 форк(-ов)
2 файл(-ов)
Последняя активность 1 year ago
1 return function(lvera)
2
3 local screen = love.graphics.newCanvas()
4 lvera:add_port({"@set resolution"}, function(counters)
5 love.window.setMode(counters["@resolution x"], counters["@resolution y"])
6 screen = resize(old_screen)
7 counters["@resolution x"] = 0
8 counters["@resolution y"] = 0
9 counters["@set resolution"] = 0
10 end)
capitalex's Avatar

capitalex / paint.generated.lua

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 1 year ago
1 local min, max, huge = math.min, math.max, math.huge
2 return function(counters, ports)
3 if counters["@set resolution"] > 0 then
4 ports[1].hook(counters)
5 return true
6 elseif counters["@set pixel"] > 0 then
7 ports[2].hook(counters)
8 return true
9 elseif counters["@draw line"] > 0 then
10 ports[3].hook(counters)
capitalex's Avatar

capitalex / draw.nv

0 лайк(-ов)
0 форк(-ов)
3 файл(-ов)
Последняя активность 1 year ago
1 |#| constant, @sleep, 60
2 |#| constant, @pixel r, 255
3 |#| constant, @pixel g, 255
4 |#| constant, @pixel b, 255
5 |#| constant, clear old mouse x, 1000000
6 |#| constant, clear old mouse y, 1000000
7 |#| constant, current mouse x -> old mouse x, 1000000
8 |#| constant, current mouse y -> old mouse y, 1000000
9 |#| constant, @mouse x -> current mouse x, 1000000
10 |#| constant, @mouse y -> current mouse y, 1000000
capitalex's Avatar

capitalex / test.nv

0 лайк(-ов)
0 форк(-ов)
2 файл(-ов)
Последняя активность 1 year ago
1 |#| constant, a, 1000000
2
3 |move, a, a| move, move, b
4 |move|
5
6 || move, a:1000000
capitalex's Avatar

capitalex / fizzbuzz.poqs

0 лайк(-ов)
0 форк(-ов)
1 файл(-ов)
Последняя активность 1 year ago
1 : {run fizzbuzz from $x to $y} >
2 {current number is $x} {run fizzbuzz to $y} :
3
4 : {run fizzbuzz to $n} {current number is $n} >
5 {fizz $n} {buzz $n} {number is $n} :
6
7 : {run fizzbuzz to $stop-value} {current number is $n} >
8 {run fizzbuzz to $stop-value}
9 {next number from $n} {fizz $n} {buzz $n} {number is $n} {wrote ""} :
capitalex's Avatar

capitalex / averages.poqs

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

capitalex / simple_state.gd

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

capitalex / move-a.nv

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

capitalex / rewriting.modal

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

capitalex / bag.formal

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

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

Русский