BrainFuck下的HappyNewYear

今天看了下一个语言叫BrainFuck，写了个打印“Happy New Year!”的程序

（今天是2015年1月1日，顺便祝大家新年快乐哈）

1.写在前面

BrainFuck的主页在： http://www.muppetlabs.com/~breadbox/bf/

我找了个BrainFuck代码解释器，可以在Win7下运行，看图标应该是VB6.0写的，下载地址在：

http://esoteric.sange.fi/brainfuck/compiled/win/BFI.exe

BrainFuck的语法规则和简易教程可以参考英文维基百科的页面：

https://en.wikipedia.org/wiki/Brainfuck

下面这个表就摘自这个维基百科页面，BrainFuck由这些字符构成

命令（BrainFuck Command）	等价的C语句（C Equivalent）
程序开始（Program Start）	char array[无穷大] = { 0 }; char *ptr = array;
>	++ptr;
<	--ptr;
+	++*ptr;
-	--*ptr;
.	putchar(*ptr);
,	*ptr = getchar();
[	while(*ptr) {
]	}

2.程序代码

1）缩进版本的代码

>++++++++
[
    >++++
    >+++++++++
    >+++++++++++++
    >++++++++++++++
    <<<<-
]
>>>----<<<

>>.>---.>..+++++++++.<<<.<
>>++++++.>++++.>--.<<<.<
>>+++++++++++.>.----.>-----.<<<+.

BrainFuck的输出理念，就是你可以申请若干个空间，通过“>”和“<”在申请到的空间按申请的先后顺序遍历，用“+”和“-”可以把改空间的值增1或减1，用“[”和“]”可以指定一个循环节，这个循环在当前所处空间值为0的时候结束，所有空间，初始值都是0，用“>”第一次移动到它的身上时就可以使用了。一个空间的值可以用“.”输出该值作为ASCII码时所对应的字符（还有个“,”字符用于输入，不过本段代码中并没有用到）

2）不缩进版本的代码

BrainFuck不强制要求缩进，所有的字符可以写到同一行，下面这段代码和1）中的效果一样：

>++++++++[>++++>+++++++++>+++++++++++++>++++++++++++++<<<<-]>>>----<<<>>.>---.>..+++++++++.<<<.<>>++++++.>++++.>--.<<<.<>>+++++++++++.>.----.>-----.<<<+.

运行结果如下图：

可以看到，输出了字符“Happy New Year!”

3.通过VBS脚本批量生成此类程序

一个用于输出字符的BrainFuck，如果要做得简短，需要在之前进行一些手工的计算

如果不考虑程序的长短，那么批量生成就变得简单得多

下面这个VBS脚本，可以从一个写有字符串的文本文件input.txt读取信息，输出到另一个文本文件output.txt中

输出的output.txt中保存着大量类似“>+++...(输入字符对应ASCII码数量个+)...+++.”的代码段

Option Explicit

'读取文件input.txt保存到InputString
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim FRead : Set FRead = FSO.OpenTextFile("input.txt", 1)
Dim InputString : InputString = FRead.ReadAll
FRead.Close

Dim OutputString 

'逐字比对，生成对应BrainFuck代码
Dim i : For i = 1 to len(InputString)

    Dim TempChar : TempChar = mid(InputString, i, 1)    
    OutputString = OutputString & ">"
    Dim j : For j = 0 To Asc(TempChar) - 1
        OutputString = OutputString & "+"
    Next
    OutputString = OutputString & "." & VbCrLf

Next

'将OutputString的内容写入到文件output.txt
Dim FWrite : Set FWrite = FSO.OpenTextFile("output.txt", 2, 1)
FWrite.Write OutputString
FWrite.Close

WScript.Echo "操作完毕"

现在假设input.txt中保存了一个字符串“Hello World!”

执行完上面这段VBS脚本后，生成的output.txt中会有下面的文字：

>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>++++++++++++++++++++++++++++++++.
>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
>+++++++++++++++++++++++++++++++++.

把这段代码放入代码解释器中，也能得到“Happy New Year!”的输出，就是不如之前手算的代码简洁罢了 ：-）

END