这是模块:Sandbox/あめろ/Brainfuck的文档页面
执行Brainfuck程序。
参数1
为代码。代码中,除+
、-
、<
、>
、[
、]
、,
和.
之外的字符都将被忽略。
参数2
为输入。输入的内容将按字节而非Unicode码位读取。输入的内容末尾会被添加-1 (0xFF)
作为EOF。
返回程序的输出。
输出“Hello, World!”。[1]
{{User:あめろ/Brainfuck| +[-->-[>>+>-----<<]<--<---]>-.>>>+.>>..+++[.>]<<<<.+++.------.<<-.>>>>+. }}
执行结果:Hello, World!
花了一夜肝出来的,水平不好。
{{User:あめろ/Brainfuck|1= [由于内存单元初始是0,这对方括号里的代码(+-<>[],.)会被跳过,所以可以当作文档注释。 该程序实现了将输入的内容中的大写字母转换为对应小写字母,而其它字符不变。] MEM: zero zero charIn ^ 0 0 0 >>(charIn),+[- 读取字符,当字符不是EOF时进入循环 将charIn减'A',并复制为两份:charCpy在下一段用,charOut在最终输出的时候用。 MEM: charOut charCpy charIn counter 0 0 ^ X 0 >(counter)++++++++[<-------->-]<- charIn减'A'的ASCII码65 (8 * 负8 减 1) (charIn)[<+<+>>-] 复制charIn到charCpy和charOut中 判断是charCpy否小于等于26,若是,则isLT26非0。 MEM: charOut charCpy isLT26 temp doesDec X X ^ 0 0 0 >(temp)+++++[<+++++>-]<+ isLT26 = 26 (LT: less than) <(charCpy)[ >(isLT26)[>(temp)+>(doesDec)[-]+<<-] >(temp)[<+>-] 上一行和此行:isLT26非0时,使doesDec为1 >(doesDec)[<<->>-] 若doesDec,则isLT26减1、doesDec减1 <<<(charCopy)- charCopy减1 ] 如果是小写字母,输出对应大写字母;否则输出本身。 MEM: charOut counter isLT26 X ^ 0 B >(isLT26)[ isLT26非0时 <(counter)++++[<++++++++>-] charOut加32 (4 * 8) >(isLT26)[-] 将isLT26清零,以退出循环 ] <(counter)++++++++[<++++++++>-]<+ charOut加65 (8 * 8 加 1) (charOut).[-] 输出并清零 MEM: zero zero charIn ^ 0 0 0 >>(charIn),+ 读取下一个字符 ] |2=ABcdEf123}}
去掉注释:
{{User:あめろ/Brainfuck| >>,+[->++++++++[<-------->-]<-[<+<+>>-]>+++++[<+++++>-]<+<[>[>+>[-]+<<-]>[<+>-]>[<<->>-]<<<-]>[<++++[<++++++++>-]>[-]]<++++++++[<++++++++>-]<+.[-]>>,+] |ABcdEf123}}
执行结果:abcdef123