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,设计一个算法,计算该解释器输出给定字符串所需的最优源代码(时间消耗最低,代码最少)

你可能感兴趣的:(coffeescrip)