All gists

june's Avatar

june / banana.nv

0 likes
0 forks
1 files
Last active 7 months ago
1 ||:meat: (bite bite)
2 :peel: on
3 :action: (peel peel peel eat)
4
5 |:action: peel :peel: on|
6 :peel: half
7
8 |:action: peel :peel: half|
9 :peel: off
yumaikas's Avatar

yumaikas / junglecoder.css.st

0 likes
0 forks
2 files
Last active 7 months ago
1 css: fn[
2 temp[ { ]
3 {: fn[ >q
4 ^[ @ ] " {" /nl
5 q> Array .[ of pairs ] each[ .[ 0 at ^[ >k ] 1 at ^[ >v ] ]
6 " " k ": " v ";" /nl
7 ]
8 "}" /nl
9 ]
10 Array .of .[ "" join ]
capitalex's Avatar

capitalex / stackthingl.txt

0 likes
0 forks
1 files
Last active 7 months ago
1 $ x 0
2 $ y 1
3
4 : magnitude
5 @x @x * @y @y * + sqrt ;
6
7 3 >x 4 >y
yumaikas's Avatar

yumaikas / sitegen_no_content.stk

0 likes
0 forks
1 files
Last active 7 months ago
1 site: cmd[
2 Array .new >pages
3 "**/*.pstk" Directory .glob each[
4 if[ dup .file? :then pages .push :else void ]
5 ]
6 #page: module/extend[ static/style.css: File .slurp >style ]
7 source-of: fn[ .[ Path .[ "." of[ path name ] relative ] ] ]
8 dest-of: fn[ .[
9 Path .[
10 "." of[ path name Path .parse .name ".html" + ] relative
june's Avatar

june / Modules

0 likes
0 forks
1 files
Last active 7 months ago
A small module system.
1 |:module: foo? :: (do something) :shared stack: $x $y $z|
2 :shared stack: $z $y $x
3
4 |:module: bar? :: (do something) :shared stack: $x $y $z|
5 :shared stack: $y $x $z
6
7 |:: (do something) :shared stack: $x $y $z|
8 :shared stack: ($x $y $z)
9
10 |:: ($module {)| :module: $module
capitalex's Avatar

capitalex / gistfile1.txt

0 likes
0 forks
1 files
Last active 8 months ago
1 [ -- if 1
2 [] -- pop next bit
3 0101 -- duplicate encoded 1
4 0 -- cancel next block
5 0 -- cancel this block
6 ]
7 [ -- if 1
8 1010 -- duplicate encoded 0
9 0 -- cancel this loop
10 ]
kapunta's Avatar

kapunta / bf.nova

0 likes
0 forks
1 files
Last active 8 months ago
1 |# Brainfuck
2
3 the brackets are written as { } because of the January syntax.
4
5 output is stored in :output: as bits.
6
7 the input operator is not implemented.
8
9 #|
capitalex's Avatar

capitalex / bits.txt

0 likes
0 forks
1 files
Last active 8 months ago
1 $ echo "1[>1<[>[0]<00>0<0]>[<1>1>0]<]>>>>[0111100]1[1<]0>>>>>>>[10010]1[1<]0" | ./bits.py -
2 █
3 ░
4 █ █
5 █ █
6 █ ░
7 █ ░
8 ░███░███████████████████████████
9 ^-------------------------------
june's Avatar

june / Bin-stack Compiler

0 likes
0 forks
4 files
Last active 8 months ago
A compiler from a multi-bit-stack VM to C.
1 |:: read a character :@stdio: read|
2 :end of file:
3 |:: read a character :@stdio: $x|
4 :buffer: $x
5 |:: read a character?|
6 :@stdio: read
7
8 |:: reverse? :buffer: $x|
9 :text: $x
10 |:: reverse|
june's Avatar

june / Graph Traversal

0 likes
0 forks
1 files
Last active 8 months ago
A basic graph traversal algorithm.
1 ||::(
2 A - B - C
3
4 check if C is connected to A
5 )
6
7 |:: ($A - $B - $C)|
8 :: ($A -> $B -> $C -> $B -> $A)
9 |:: ($A - $B)|
10 :: ($A -> $B -> $A)
Newer Older

Powered by Opengist ⋅ Load: 375ms⋅

English