※ 引述《mikemagic88 (Mikemagic88)》之铭言： : 使用者输入1 印1-9 : 使用者输入2 印1-98 (11, 22, 33等重复的不印) : 使用者输入3 印1-987 (121, 988, 667等有重复的不印) >+>,------------------------------------------------ >>+++++++++++++++++++++++++++++++++++++++++++++++++ <<<[->>>[>]<[><<[>><[->+>+<<]<[->+>-<<]>>>>+<<[[-]>>-<<] <<>>>[-<<<+>>>]>[-<+>]<<<[->>>+<<<]<<]>>>>>[<<<<[->+<]>>>> [-<<<<+>>>>]<[->+<]<>>>]<<<>>[-<+>]<<<[->>>+<<<]>>>[->+<]<<<<] >>>>>[[-<<<<+>>>>]<<[->+<]>>>]<<<<>+>[[-]<->]<[-<<[.<]++++++++++ .---------->[>]>]<<[[->>+<<]<]>><+[->>+[-<+<+>>]<[->+<]+ <---------------------------------------------------------- [[-]>-<]>[-<+>>----------<]<[->+<]>>[-<<+>>]<]>> [[-<<+>>]>]<<<[->+>+<<]>>[-<<+>>]+<-[[-]>-<]> [-<<++++++++++++++++++++++++++++++++++++++++++++++++>>] <<[[->>+<<]>+[-<+>]<<]>[->+<]>>[[-<<+>>]<[->+<]>>]<<<[<] <[->>[>]>>+>+<<<<[<]<]>>[>]>>>[-<<<<[<]<+>>[>]>>>]<<[->-<] >+[-<<<[<]<<[-]+>>>[>]>>]<<<<[<]<<]>> 最下面是说明, 嗯我写的时候也是这样一块一块想的. # 後面的是注解, 然後混有数字的部分表示接下来的符号要重复 N 遍, 因为一长串同样的符号会比较不好读.. 执行器是自己写的 (用 haskell) https://gist.github.com/CindyLinz/241f8296041ee3c9034a92ec1b5ac136 如果有装 ghc 的话, 应该 ghc --make bf 就可以生出执行档 用法是从 stdin 倒给它: 第一行输入一个整数, 表示最大想用到的 memory 长度 第二行输入的东西是 brainfuck 程式要读的 input (嗯我没有考虑如果有换行符号要怎麽输入, 反正这次不用 ^^|) 第三行开始就是 brainfuck 程式.. 可以输入标准的 brainfuck 语法, 也可以混有 空白, #号, 数字.. 也就是下面这个说明版的语法也可以吃.. 执行的时候会先印出符合 brainfuck 语法的程式再开始执行. 额外地, 如果程式码里面混有 @ 符号的话, 遇到的时候就会把 memory 和磁头位置 dump 出来, 方便 debug (可以在程式段落的开头与结尾各放一个 @ 以观察记忆体变化) brainfuck 真是超难写的, 我觉得比 Turing machine 还难搞 ~_~ 它没有 if, 只有 while, 而且没有 break, continue 这些可以配合... 想弄个 && 或 || 或 < 都很麻烦.. 写到一半发现空间没有预留够, 要把整段资料往旁边搬就要改好多好多 code.. orz I've fucked my brain. I wish you would fuck yours too. XD # format: # zero continue_bit input_length zero target*(digits) zero >+>,48->>49+< # main loop <<[->> >[>] # ne-cmp all diff: # zero target* [zero] zero same_count(0) zero # zero target* [zero] zero same_count zero zero <[> # ne-cmp left to all: # zero target* answer [zero] zero same_count zero # zero target* [zero] zero same_count answer zero <<[>> # ne-cmp left twin: # target answer [zero] zero same_count # answer [zero] zero same_count target <[->+>+<<] <[->+>-<<] >>>>+<<[[-]>>-<<]<< >>>[-<<<+>>>] >[-<+>] <<<[->>>+<<<] # ne-cmp left twin (end) <<]>> # (current format) zero answer [zero] zero same_count target* zero >>>[<<< <[->+<] >>>>[-<<<<+>>>>] <[->+<] < >>>]<<< >>[-<+>] <<<[->>>+<<<] # ne-cmp left to all (end) >>>[->+<]<<< <]> # (current format) zero [zero] zero same_count zero target* zero >>>>[ [-<<<<+>>>>] <<[->+<]>>> ]<<<< # ne-cmp all diff (end) # then print if cmp ne = 0 >+>[[-]<->] # not <[- <<[.<] 10+.10- >[>]> ]< # inc: # zero target* [zero] zero # zero target*(+1) [zero] zero # shift target right (2 bits) <[ [->>+<<]< ]>> # zero zero [zero] target* zero <+[-> #<+-> >+ [-<+<+>>] <[->+<] +< 58- [[-]>-<] # (current format) [zero] continue_inc target* >[-<+>>10-<]<[->+<] >>[-<<+>>] # (current format) target' continue_inc [zero] target* <]> >[ [-<<+>>]> ] <<< [->+>+<<] >>[-<<+>>] +<- [[-]>-<] # (current format) target* [zero] overflow_flag >[-<<48+>>]< # inc (end) # count length: # target* [zero] zero zero # target* [zero] length zero <[ [->>+<<] >+[-<+>]< < ]> [->+<]> >[ [-<<+>>] <[->+<]> > ]<< # count length (end) # copy input length <[<]< [->>[>]>>+>+<<<<[<]<] >>[>]>>> [-<<<<[<]<+>>[>]>>>] # cmp curr length <= input length <<[->-<]> + [-<<<[<]<<[-]+>>>[>]>>] <<< <[<] <<]>> # main loop (end) --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.121.78.5 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Programming/M.1481287760.A.ECC.html ※ 编辑: CindyLinz (112.121.78.5), 12/09/2016 21:01:07