All New

Register

Login

All gists

capitalex / bouncing.dont

0 likes

0 forks

1 files

Last active 3 weeks ago

1	give <& .
2	unless @ , * , . , &> * !! ;
3
4	give @ &>
5	unless * , . , <&
6	, @ <& * , @ * !! , @ &> !!
7	, &> , * &> !! ;
8
9	give * &>
10	unless @ , * , . , &> * * , &> . !! , &> * . ;

bx / push-bit.c

0 likes

0 forks

1 files

Last active 3 weeks ago

1
2	#include <stdio.h>
3	#include <stdint.h>
4
5	uint64_t *bits = (uint64_t[64]) { 0 };
6	uint64_t top = 0;
7
8	/* gcc push-bit.c -O3 && objdump -D a.out \| less
9	0000000000001240 <get_bit>:
10	1240: 48 8b 05 f1 2d 00 00 mov 0x2df1(%rip),%rax # 4038 <bits>

capitalex / left-cursor.dont

0 likes

0 forks

1 files

Last active 3 weeks ago

1	give * *
2	unless * * * , * <B !! , * * <B !! , <B , * . !! , . , * * . ;
3
4	give *
5	unless * * , * <B !! , <B , . , * . ;
6
7	give . unless * , <B ;
8
9	give <B * unless <B , * <B * , * <B . ;

kapunta / rps.nova

0 likes

0 forks

1 files

Last active 3 weeks ago

1	\|- rock paper scissors -\|
2
3	\|\| :i have: paper
4	:you have: scissors
5	:let's play:
6
7	\|\| :beats: rock scissors
8	:beats: scissors paper
9	:beats: paper rock

june / Stacky Tape VM

0 likes

0 forks

1 files

Last active 3 weeks ago

A VM with a tape of stacks.

1	\|:: push to $x :value: $y\| :stacks: $x $y
2	\|:: push $x to $y\| :stacks: $y $x
3
4	\|:: pop from $x :stacks: $x $y\|
5	:value: $y
6	:: reset stacks
7	\|:: pop from $x? :stacks: $z $y\|
8	:seen: $z $y
9	\|:: pop from $x :default symbol: $y?\|
10	:value: $y

june / Simplest Nova (C++)

0 likes

0 forks

1 files

Last active 3 weeks ago

The simplest Nova implementation I've got (so far) in C++.

1	enum snv_state {
2	// Primary states.
3	INSERT, MATCH, REMOVE,
4	// Secondary states.
5	FETCH, LITERAL, VARIABLE
6	};
7
8	template<uint32_t size>
9	struct snv_stack {
10	uint32_t data[size] = {};

yumaikas / tinscript.js

0 likes

0 forks

1 files

Last active 3 weeks ago

1
2	function copyText(text) {
3	var tempInput = document.createElement("textarea");
4	tempInput.style = "position: absolute; left: -1000px; top: -1000px";
5	tempInput.value = text;
6
7	document.body.appendChild(tempInput);
8	tempInput.select();
9
10	document.execCommand("copy");

sierra / sdl.nv

0 likes

0 forks

1 files

Last active 4 weeks ago

1	\|\|:: init sdl
2	:: create a window :window dimensions: #800 #600
3	:: sleep #5
4	:: quit
5
6	\| :SDL: Init \| `@c` [
7	if(SDL_Init(SDL_INIT_EVERYTHING) < 0) {
8	printf("Error initializing SDL: %s\\n", SDL_GetError());
9	exit(-1);
10	}

june / Simplest Nova

0 likes

0 forks

2 files

Last active 3 weeks ago

The simplest Nova implementation I've got (so far).

1	#!/usr/bin/env python3
2
3	import sys
4	from enum import Enum
5
6	class State(Enum):
7	# States
8	INSERT = 0
9	MATCH = 1
10	REMOVE = 2

yumaikas / spriograph.stk

0 likes

0 forks

1 files

Last active 1 month ago

1	NB[ Spirograph program, done for comparison between StackTalk, Carousel/Lua and Lisp
2	Carousel version by akkartik
3	StackTalk version by yumaikas
4	]
5	me. >Lobby
6	#game: Canvas .query-ctx-2d do[
7	%w[ blue grey red ] each[ dup curry[ color= ] fn ]
8	] >ctx
9	RAF: fn[ Lobby frame. Window .requestAnimationFrame ]
10	once: fn[ ts. >oldTs once: drop once: fn[ ] ]

Powered by Opengist ⋅ Load: 153ms⋅

English