Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Zeppelin on September 15, 2018, 09:23:36 pm

Title: BrainF*ck Complier Loops????
Post by: Zeppelin on September 15, 2018, 09:23:36 pm
Hey,
I decided to type a mock up simple Brainf*ck compiler in QB and cant figure out a way to implement loops.
Any ideas or help is appreciated

Code: QB64: [Select]
  1. DIM dat(1000)
  3. INPUT "", bfin$
  4.  
  5. FOR n = 1 TO LEN(bfin$)
  6.     find$ = MID$(bfin$, n, 1)
  7.     IF find$ = "+" THEN
  8.         dat(index) = dat(index) + 1
  9.     ELSEIF find$ = "-" THEN
  10.         dat(index) = dat(index) - 1
  11.     ELSEIF find$ = ">" THEN
  12.         index = index + 1
  13.     ELSEIF find$ = "<" THEN
  14.         index = index - 1
  15.     ELSEIF find$ = "[" THEN
  16.  
  17.     ELSEIF find$ = "]" THEN
  18.  
  19.     ELSEIF find$ = "." THEN
  20.         IF dat(index) > 0 THEN
  21.             PRINT CHR$(dat(index));
  22.         ELSE
  23.             PRINT "Error 001: ASCII Index out of range"
  24.         END IF
  25.     ELSE
  26.         PRINT "Error 002: Unidentified command at "; n
  27.     END IF
  29.  
  31. PRINT "END"


Thanks
Zeppelin
Title: Re: BrainF*ck Complier Loops????
Post by: bplus on September 16, 2018, 08:21:03 am
Hi Zeppelin

Recently discussed here: https://www.qb64.org/forum/index.php?topic=566.0
(A working translator can be found there. Your dat array will likely need to be _UNSIGNED _BYTE to read your signature at least)

I had had problem with reading your signature with my translator of QB45 code from Rosetta Code but Fellippe located the problem.

How did you code your signature message?

My real name is Mark also. :)
Text Only | Text with Attachments