/examples/brainfuck.y

https://gitlab.com/lily-mara/schwift · Happy · 85 lines · 70 code · 15 blank · 0 comment · 0 complexity · 49d1d59a38b4c2c253dc066eda16c151 MD5 · raw file 

    

  1. show me what you got! "Please input your brainfuck program: "
    2. 

  2. portal gun input
    3. 

  3. 

  4. show me what you got ""
    5. 

  5. 

  6. size squanch (input squanch - 1)
    7. 

  7. count squanch 0
    8. 

  8. 

  9. memory on a cob
    10. 

  10. i squanch 0
    11. 

  11. while (i less 30000) :<
    12. 

  12. 	memory assimilate 0
    13. 

  13. 	i squanch (i + 1)
    14. 

  14. >:
    15. 

  15. squanch i
    16. 

  16. 

  17. memPointer squanch 0
    18. 

  18. loop squanch 0
    19. 

  19. 

  20. while (count less size) :<
    21. 

  21. 	char squanch input[count]
    22. 

  22. 

  23. 	if (char == "<") :<
    24. 

  24. 		memPointer squanch (memPointer - 1)
    25. 

  25. 	>:
    26. 

  26. 

  27. 	if (char == ">") :<
    28. 

  28. 		memPointer squanch (memPointer + 1)
    29. 

  29. 	>:
    30. 

  30. 

  31. 	if (char == "+") :<
    32. 

  32. 		memory[memPointer] squanch (memory[memPointer] + 1)
    33. 

  33. 	>:
    34. 

  34. 

  35. 	if (char == "-") :<
    36. 

  36. 		memory[memPointer] squanch (memory[memPointer] - 1)
    37. 

  37. 	>:
    38. 

  38. 

  39. 	if (char == ".") :<
    40. 

  40. 		show me what you got! ascii(memory[memPointer])
    41. 

  41. 	>:
    42. 

  42. 

  43. 	if (char == ",") :<
    44. 

  44. 		portal gun in
    45. 

  45. 		memory[memPointer] squanch in
    46. 

  46. 		squanch in
    47. 

  47. 	>:
    48. 

  48. 

  49. 	if (char == "[") :<
    50. 

  50. 		l squanch 0
    51. 

  51. 		if (memory[memPointer] == 0) :<
    52. 

  52. 			count squanch (count + 1)
    53. 

  53. 			while ((l more 0) or !(input[count] == "]")) :<
    54. 

  54. 				if (input[count] == "[") :<
    55. 

  55. 					l squanch (l + 1)
    56. 

  56. 				>:
    57. 

  57. 				if (input[count] == "]") :<
    58. 

  58. 					l squanch (l - 1)
    59. 

  59. 				>:
    60. 

  60. 				count squanch (count + 1)
    61. 

  61. 			>:
    62. 

  62. 		>:
    63. 

  63. 	>:
    64. 

  64. 

  65. 	if (char == "]") :<
    66. 

  66. 		l squanch 0
    67. 

  67. 		if !(memory[memPointer] == 0) :<
    68. 

  68. 			count squanch (count - 1)
    69. 

  69. 			while ((l more 0) or !(input[count] == "[")) :<
    70. 

  70. 				if (input[count] == "]") :<
    71. 

  71. 					l squanch (l + 1)
    72. 

  72. 				>:
    73. 

  73. 				if (input[count] == "[") :<
    74. 

  74. 					l squanch (l - 1)
    75. 

  75. 				>:
    76. 

  76. 				count squanch (count - 1)
    77. 

  77. 			>:
    78. 

  78. 			count squanch (count - 1)
    79. 

  79. 		>:
    80. 

  80. 	>:
    81. 

  81. 

  82. 	count squanch (count + 1)
    83. 

  83. >:
    84. 

  84. 

  85. show me what you got ""
    86.