Wszystkie Gisty - Opengist

yumaikas / junglecoder.css.st

0 polubień

0 forków

2 plików

Ostatnio aktywne 5 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 / stackthingl.txt

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 months ago

1	$ x 0
2	$ y 1
3
4	: magnitude
5	@x @x * @y @y * + sqrt ;
6
7	3 >x 4 >y

yumaikas / sitegen_no_content.stk

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 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 / Modules

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 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 / gistfile1.txt

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 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 / bf.nova

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 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 / bits.txt

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 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 / Bin-stack Compiler

0 polubień

0 forków

4 plików

Ostatnio aktywne 6 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 / Graph Traversal

0 polubień

0 forków

1 plików

Ostatnio aktywne 6 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)

capitalex / functions.wont

0 polubień

0 forków

2 plików

Ostatnio aktywne 6 months ago

1	call isnt less than 1, call isnt greater than 2, ...
2	wont return, wont jump, ..., cant jump here.
3	wont return, wont jump, ..., cant jump here.
4	wont jump, ..., cant jump here.
5
6	call isnt less than 2, call isnt greater than 10, ...
7	wont return, wont jump, ..., cant jump here.
8	wont return, wont jump, ..., cant jump here.
9	wont jump, ..., cant jump here.