Write a Deadfish Interpreter
A rewrite of this SE question with a simpler input format and guidelines.
Challenge
Deadfish uses a single accumulator, on which all commands are to be performed.
It has the following commands:
Command | Description |
---|---|
i |
increment the accumulator |
d |
decrement the accumulator |
s |
square the value of the accumulator |
o |
output the value of the accumulator as a number |
If, after executing a command, the accumulator is equal to -1 or equal to 256, the accumulator must be reset to zero.
I/O
Input can be taken as a single string, list of codepoints, or any other reasonable format. It is guaranteed that the input will only consist of deadfish commands.
Output can be given as an array of numbers, or just the numbers printed with separators between them.
Testcases
(some are borrowed from the Esolangs wiki)
iissso -> 0
diissisdo -> 288
iissisdddddddddddddddddddddddddddddddddo -> 0
isssoisoisoisoiso -> 1,4,25,676,458329
ooooosioiiisooo -> 0,0,0,0,0,1,16,16,16
iiii -> nothing
iiiiiiiissdiiiiiiiiiiiiiiiiio -> 4112
o -> 0
Lua 5.4.4, 99 bytes ``` =0 …
2y ago
Vyxal `D`, 26 bytes ``` 0Ȯ …
3y ago
[APL (Dyalog Classic)], 47 byt …
4y ago
[JavaScript (Node.js)], 80 byt …
4y ago
C (gcc), 98 bytes ``` c =0 …
2y ago
[C (gcc)], 153 bytes …
4y ago
JavaScript (V8), 78 bytes ` …
2y ago
Ruby, 70 67 66 bytes ```rub …
3y ago
8 answers
JavaScript (V8), 78 bytes
f=s=>s.map(c=>(_==256||_<0?_=0:0)||c=='i'?_++:c=='d'?_--:c=='s'?_*=_:v+=_+' ')
0 comment threads
Vyxal D
, 26 bytes
0Ȯ(n«ƛ√J«`›‹²…`ĿĖD₈=$0<∨[0
0 # Push 0
Ȯ(n # Iterating over the input
«ƛ√J«`›‹²…`Ŀ # Transliterate into appropriate Vyxal instruction
Ė # Evaluate
D₈=$0<∨[ # If 256 or negative
0 # Push 0
0 comment threads
JavaScript (Node.js), 80 bytes
f=a=>a.map(a=>(a&=6,a-2?a-6?c+=1-a/2:d+=c+' ':c*=c,c*=c!=-1&c!=256),c=0,d='')&&d
0 comment threads
Lua 5.4.4, 99 bytes
_=0s:gsub('.',function(c)_=({d=_-1,i=_+1;s=_*_})[c]or print(_)or _ _=({[256]=0,[-1]=0})[_]or _ end)
Thanks to @orthoplex for more shortening.
1 comment thread
C (gcc), 153 bytes
a,b;f(char*s){for(char*c,*o="idso";*s;s++)for(c=o;*c;c++)*s==*c&&(b=c-o,a+=!b,a-=b==1,b==2?a*=a:0,b==3&&printf("%d%c",a,s[1]?44:10),a==-1|a==256?a=0:0);}
Function solution, misc gcc abuse.
0 comment threads
C (gcc), 98 bytes
_=0;f(char*s){for(;*s;++s)_==256||_<0?_=0:1,*s=='i'?_++:*s=='d'?_--:*s=='s'?_*=_:printf("%d ",_);}
0 comment threads
Ruby, 70 67 66 bytes
->c{a=0;c.bytes{|b|a,=[b<106?a+b/3-34:b<112?p(a):a*a,0]-[-1,256]}}
0 comment threads