All gists

capitalex's Avatar

capitalex / crummy.cr

0 likes
0 forks
1 files
Last active 1 month 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's Avatar

capitalex / ewe.wul

0 likes
0 forks
1 files
Last active 1 month 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's Avatar

capitalex / tak.wul

0 likes
0 forks
1 files
Last active 1 month 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's Avatar

capitalex / final-digits.txt

0 likes
0 forks
1 files
Last active 2 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's Avatar

capitalex / objects.lua

0 likes
0 forks
1 files
Last active 2 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's Avatar

june / Propagators (Draft)

0 likes
0 forks
1 files
Last active 2 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's Avatar

capitalex / halfass.min

0 likes
0 forks
1 files
Last active 2 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's Avatar

capitalex / update.min

0 likes
0 forks
1 files
Last active 2 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's Avatar

june / Variables and math expressions.

0 likes
0 forks
1 files
Last active 2 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's Avatar

kapunta / Thue.Mod

0 likes
0 forks
1 files
Last active 2 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;
Newer Older

Powered by Opengist ⋅ Load: 180ms⋅

English