CoffeeScript实现BF解释器

今天一大早天气很好，翻了几页《Go语言·云动力》，1.5节讲到下面的脑操编程语言

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

额，这不是大名鼎鼎的BF么？终于明白上面的"脑操"不是印刷错误，只是这翻译真不给力，感觉用"脑残"会合适点。(PS: 用BF来讲述图灵机似乎不太合适，虽然BF里有存储/跳转/输出，但是缺少了外部输入，唯一的输入就是代码本身。)

虽然之前知道BF解释器很简单，但毕竟从没亲手写过。闲来O疼便打算写个，练习下CoffeeScript也熟悉下github。还好一个小时就测好了，不到30行。为了行数更少，合并了一些赋值语句，可能是个人水平问题，很难再短了。

关于BrainFuck的介绍可以查看这个网页，这里就不多说了，实在是，很坑爹。

 1 exports.run = (source) ->
 2   throw new Error 'invalid source' unless typeof(source) is 'string'
 3   throw new Error "invalid char '#{m[0]}'" if (m=/[^+-.<>[\]]/.exec source)?
 4   [i,buf,jmp] = [0,[],[]]
 5   for ch,p in source when ch is '[' or ch is ']'
 6     switch ch
 7       when '[' then buf[i++]=p
 8       when ']'
 9         if buf[i-1]?
10           jmp[buf[--i]]=p
11           jmp[p]=buf[i]
12           delete buf[i]
13         else
14           throw new Error "unexpect ']' at pos #{p}"
15   unless i is 0
16     throw new Error "expect ']' to match '[' at pos #{buf[i-1]}"
17   [p,len]=[-1,source.length]
18   while ++p<len
19     ch = source[p]
20     switch ch
21       when '+' then buf[i]=(buf[i] ? 0)+1
22       when '-' then buf[i]=(buf[i] ? 0)-1
23       when '>' then ++i
24       when '<' then --i
25       when '.' then process.stdout.write String.fromCharCode buf[i] ? 0x30
26       when '[' then p=jmp[p] if not buf[i]? or buf[i] is 0
27       when ']' then p=jmp[p] if buf[i]? and buf[i] isnt 0
28 
29 exports.run "++++++++++[>++++++++++<-]>++++.+."  # print "hi"

 

然后有个问题：假设已知某种BF解释器对7种指令的时间消耗分别为T1~T7，设计一个算法，计算该解释器输出给定字符串所需的最优源代码（时间消耗最低，代码最少）

转载于:https://www.cnblogs.com/neutra/archive/2012/07/08/2581179.html