Headass
Headass is an esoteric programming language by TheJonyMyster.
Memory
Memory consists of 4 registers and an array
| Register | Description |
|---|---|
| r0 | Current register |
| r1 | Accumulator |
| r2 | Stored register |
| r3 | Comparison register |
The array starts with a single null value.
Instructions
Before executing the program, add a null value to the start of the input.
| Instruction | Description |
|---|---|
| U | Remove the first input, then set r0 to new first input. If input is empty, set r0 to 0. |
| R | Set r0 to the first input. |
| N | Set r0 to 1 if the input is empty, else set r0 to 0. |
| D | Set r0 to r1, and set r1 to 0. |
| ^ | Add the value in r0 to r1. |
| + | Add 1 to r0. |
| - | Subtract 1 from r0. |
| [ | Set r2 to r0, and set r0 to 0. |
| ] | Add the value in r2 to r0. |
| { | Start loop. |
| } | Jump to matching {. |
| ( | Set r3 to r0, and set r0 to 0. |
| < | If r0 is less than r3, set r0 to r3, else set r0 to 0. |
| > | If r0 is greater than r3, set r0 to r3, else set r0 to 0. |
| ) | If r0 is not equal to r3, jump to the next :. set r0 to r3. |
| : | Jump to next ;. |
| ; | A nop. |
| P | Print r0. |
| ? | Print debug info. |
| O | Push r0 to the array. |
| E | Replace all inputs with the array, and set the array to a single null value again, then jump to a code block given by r0 (where 0 is the start of the program). Clear registers 0-3. If r0 is negative or larger than the number of blocks, halt. |
| . | Separate code blocks. If execution reaches a . or the end of the program, halt. |
Examples
Cat
N{N()UP}
Truth machine
U(+){P}:(P
Hello World
D--------O(+E .N++++++++^[]][]][D^]]P]---P+++++++PP+++P(D]++++PD]PU]]]-P):P+++P------P--------P(]+P
Bubble sort
NO(+)(+E:{UO():N(+)(+++E:};{N(+)(++E:UO}
.N
.U+O{U+O():N(+)(+++E:};{N(+)(++E:U+O}
.UOU[{{N(+)(]O(++++E:U(]>):(]OR[};RO}
.UOUO[{N(+)(+++++E:UO(]>):R[};{N(+)(+++E:UO}
.U():R-O{U-ON(+)(+++++E:};{UON(+)(++++++E:}
.N{N()UP}
Computational class
Headass is Turing complete, as it is able to interpret Bitwise Cyclic Tag, shown below. Expected input is each bit of a BCT program as a separate input, followed by -1 as a divider, finally followed by each bit of input data as a separate input. For example: (1,1,0,1,0,0,-1,1,0) would run the program 110100 with 10 as input data.
NO(+):UO(-):{N(+);(++++++++E:UO(-):};N(+)(++++++++E:{UON()}:(+E // init
.U+OR[{(]):UOD+^};UO[{UON()}:(](-)(++E:()(+++E:(++++E // read instruction and move instruction pointer
.UDO{UON()}:(+E // loop to first instruction
.UO{(-):UO};UPN(+)(++++++++E:{UON()}:(+E // print and delete first bit of memory
.U+OR[{(]):UOD+^};UO[{UON()}:(](-)(+++++E:()(++++++E:(+++++++E // check arg of "1" command and move instruction pointer
.UDO{UON()}:(++++E // loop to first instruction within "1" command subroutine
.UO{(-):UO};UO[{N()UO}:(](+)(O:;(+E // add 0 to end of memory
.UO{(-):UO};UO[{N()UO}:(](+)(+O:;(+E // add 1 to end of memory
.N. // halt
Headascii
Headascii is a slight derivative of Headass, focused on printing characters rather than numerical output. Though it is named after ascii, it can support other character encodings per interpreter. A string register is added, one instruction is changed, and two are added to accommodate.
| Instruction | Description |
|---|---|
| P | Concatenate r0 as a character (by character code) to the string register. |
| ! | Print the contents of the string register. |
| @ | Clear the contents of the string register. |
Quine
Using Headascii, a proper quine is possible.
O(++++++++O(+++++++++O(++++++++++O(+++++++++++++O(+++O(O(++++O(O(++++++++O(+++++O(++++++++++++++O(+++++++++++++++++O(++O(++++++++++O(+++O(+O(++++O(+++++O(+++O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(O(+++++++O(++++++++++++O(O(++++++++++++++++O(+++++++++++O(+++++++++++++++O(+++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+O(+O(++++++O(+++++++O(+++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+++++++O(++++++++++++O(+++++++++++O(+++++++++O(++++++++++O(+++++++++++++O(+++O(O(++++O(O(O(++++++++O(+++++O(++++++++++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(O(++O(+O(+O(O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(++O(+O(+O(O(++O(+O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(++O(+O(+O(+O(++O(+O(+O(O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(O(++O(+O(+O(+O(O(++O(+O(+O(+O(O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(++O(+O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(++O(+O(+O(+O(+O(+O(+O(+O(++++++O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(++O(+O(+O(+O(O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(O(++O(+O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(++O(+O(+O(+O(++O(+O(+O(O(++O(+O(+O(+O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(O(O(++O(+O(+O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(++O(+O(+O(+O(O(++O(+O(+O(+O(++O(+O(+O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+O(O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(+O(+O(++O(+O(+O(++++++O(+++++O(++++++O(+++O(++++O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+O(+O(+O(+O(++++++O(++++++O(+++++O(++++++O(+++O(++++O(O(O(O(O(O(++O(+O(+O(+O(+O(++O(+O(+O(+O(+O(++++++O(+++++O(++++++O(+++O(++++O(O(O(O(O(++O(+O(+O(++O(+O(+O(+O(+O(O(+++++++++++++++O(+++++++O(+++++++++++O(+++++++++O(++++++++++++++++++O(+E.{N(+)+E:UO[{(]):(+++++++++++++++++++++++++++++++++++++++++++PD+^};(+++++[]]]][]]]]-P(+++++[]]]][]]PD}.{N(+)++E:U()+++++[]]]]+[]]+:-()+++++[]]][]]+[]]]:-()+++++[]]][]]][]]+:-()+++++[]]]][]]:-()+++++[]]]][]]+:-()++++++[]]]+[]]]+:-()+++++[]]][]]]:-()+++++[]]]][]]]]:-()+++++[]][]]]]]]]-:-()+++++[]]][]]]+:-()+++++[]]]][]]+[]]]:-()++++[]]][]]+[]]]]]:-()+++++[]]]++[]]]]:-()++++[]]]+[]]][]]:-()+++++++[]]]][]]]+:-()+++++[]]]]]][]]-:-()++++[]]]][]]]]]]--:-()+++++[]]]][]]]]-:-()++++[]][]]]]+;P}.!
Because nobody wants to sift through character codes to verify a quine.
Hello World again
Programs in Headass can easily be converted to Headascii by adding ! (and sometimes @) instruction(s) where appropriate. Here is a proper Hello, World! which outputs on one line.
D--------O(+E .N++++++++^[]][]][D^]]P]---P+++++++PP+++P(D]++++PD]PU]]]-P):P+++P------P--------P(]+P!
Implementation
There is an implementation that's hosted here which supports both standard Headass and Headascii, last updated October 5 2021.