Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
| Character | C equivalent |
| (Start) | char array[30000];char *ptr=array; |
| > | ++ptr; |
| < | --ptr; |
| + | ++*ptr; |
| - | --*ptr; |
| . | putchar(*ptr); |
| , | *ptr=getchar(); |
| [ | while (*ptr) { |
| ] | } |
Compact Version (995 bytes) (Compressed: 605 bytes)
function ord(%c){if(!strLen(%c))return 0;return strPos(mT(),%c)+1;}function chr(%c){if(%c==0)return "";return getSubStr(mT(),%c-1,1);}function mH(%i){%m="0123456789ABCDEF";while(mFloor(%i)){%s=%s@getSubStr(%m,%i%16,1);%i/=16;}return(strLen(%s<2)?"0":"")@%s;}function mT(){for(%i=1;%i<255;%i++)%s=%s@"\\x"@mH(%i);return collapseEscape(%s);}function brain_compile(%s,%n,%x){%l=(strLen(%x)?mFloor(%x):30000);for(%i=0;%i<strLen(%s);%i++)if(strPos("+-<>[].,",getSubStr(%str,%i,1))!=-1)%r=%r@getSubStr(%str,%i,1);%c="";for(%i=0;%i<strLen(%r);%i++){switch$(getSubStr(%r,%i,1)){case "+":%c=%c@"if(_p<255)_p++;\n";case "-":%c=%c@"if(_p>0)_p--;\n";case ">":%c=%c@"if(%p+1<%l)%p++;\n";case "<":%c=%c@"if(%p-1>0)%p--;\n";case ".":%c=%c@"%o=%o@chr(mFloor(_p));\n";case ",":if(strLen(%in)){%c=%c@"_p="@ord(getSubStr(%n,0,1))@";\n";%n=getSubStr(%n,1,strLen(%n)-1);}case "[":%c=%c@"while(_p){\n";case "]":%c=%c@"}\n";}}%c=strReplace(%c,"_p","%j[%p]");eval(%c);return %o;}
I can make it a bit smaller, but that would be pointless ;-;
