所有 Gists

capitalex's Avatar

capitalex / dsl.lua

0 喜歡
0 分支
3 檔案
最後活躍 1 week ago
1 local function eval (prog, env)
2 local env = env or {}
3 local last
4 for _, fn in ipairs (prog) do
5 last = fn (env)
6 end
7 return last
8 end
9
10 local function force (env)
capitalex's Avatar

capitalex / script.lua

0 喜歡
0 分支
1 檔案
最後活躍 1 week ago
1 WeekOne = {}
2 function WeekOne.morning ()
3 player.at = "home"
4 player.x = bed.x
5 player.y = bed.y
6
7 add (home_door) (bed) (computer) (player) ()
8
9 interaction (home_door) (player) (then_go_to (WeekOne.work))
capitalex's Avatar

capitalex / stuff.lua

0 喜歡
0 分支
1 檔案
最後活躍 2 weeks ago
1 -- quotation.lua
2 local function quotation_call(quote, env)
3 if rawget(quote, "namespace") then env.namespace:push(quote.namespace) end
4 for _, item in ipairs(quote.body) do
5 local typ = type(item)
6 if typ == "number" or typ == "boolean" or typ == "string" or (typ == "table" and item.type == "quote") then
7 env.data:push(item)
8 else
9 item(env)
10 end
capitalex's Avatar

capitalex / point.gilded

0 喜歡
0 分支
1 檔案
最後活躍 2 weeks ago
1 : sq dup * ;
2
3 : keep
4 over { call } dip ;
5
6 : mag@ 'mag@ print
7 'x @ dup print sq
8 'y @ dup print sq
9 + sqrt ;
capitalex's Avatar

capitalex / hello-world.kbl

0 喜歡
0 分支
2 檔案
最後活躍 2 weeks ago
1 Actors [ :Helloer :Goodbyer :Worlder :Changer ] ;
2
3 Every :Tick :Helloer does [ Say "Hello, " ] ;
4 Every :Tick :Goodbyer does [ Say "Goodbye, " ] ;
5 Every :Tick :Worlder does [ Say "World!" ] ;
6 Every :Tick :Changer does [
7 Peek :CurrentScene ; Is :HelloWorld ; Then [
8 Become :GoodbyeWorld ; Done ;
9 ] ;
june's Avatar

june / Deck of Cards

0 喜歡
0 分支
1 檔案
最後活躍 3 weeks ago
Generate a deck of cards.
1 ||:: form a deck :suits: (spades hearts diamonds clubs)
2 :ranks: (2 3 4 5 6 7 8 9 jack queen king ace)
3
4 |:: form a deck? :suits: $suit|
5 :: match $suit to a rank
6 :used suits: $suit
7 |:: form a deck|
8 :: reset suits
9
10 |:: match $suit to a rank? :ranks: $rank|
autumn's Avatar

autumn / pyra nested loops

0 喜歡
0 分支
1 檔案
最後活躍 3 weeks ago
1 | EXAMPLE USAGE
2
3
4 * create a 3x3 grid of cubes
5 - loop ~ from: 0 0 0 ~ to: 2 2 2 - by: 1
6 - create cubelets
7
8 * create cubelets * done:
9
10 | create cubelets \ indices: I J K
june's Avatar

june / Quad Store w/ Arrays

0 喜歡
0 分支
1 檔案
最後活躍 3 weeks ago
A definition of a quad store, and an example defining arrays.
1 ||:: foo @ 0 = 10
2 :: foo @ 1 = 20
3 :: foo @ 2 = 30
4 :: foo @ 0
5 :: foo @ *
6
7 |:: $name @ *? :found: array $name $index $value|
8 :values: $value
9 |:: $name @ * :empty:|
10 |:: $name @ *?|
capitalex's Avatar

capitalex / boil.glsl

0 喜歡
0 分支
1 檔案
最後活躍 3 weeks ago
1 uniform sampler2D noise;
2 uniform float scale = 0.005;
3 uniform float TIME = 0.0;
4 uniform vec2 TEXTURE_PIXEL_SIZE;
5
6 vec4 effect(vec4 color, Image TEXTURE, vec2 UV, vec2 screen_coords) {
7 vec2 uv = UV;
8 vec2 noise_pixel_size = vec2(256.0);
9 vec2 noise_uv = UV / TEXTURE_PIXEL_SIZE / noise_pixel_size;
10 vec2 sample = Texel(noise, vec2(noise_uv + TIME - mod(TIME, 0.15))).rb;
capitalex's Avatar

capitalex / email-archives.factor

0 喜歡
0 分支
1 檔案
最後活躍 1 month ago
1 ! Copyright (C) 2026 CapitalEx.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: assocs calendar calendar.format concurrency.combinators
4 io.encodings.utf8 io.files kernel make math.parser sequences
5 splitting unicode ;
6 IN: email-archives
7
8 : post-date ( json -- ymdhms )
9 "postDate" of dup [ dec> unix-time>timestamp timestamp>ymdhms ] [ drop "[DATE MISSING]" ] if ;
上一頁 下一頁

由 Opengist 提供支持 ⋅ Load: 196ms⋅

繁體中文