用 Ruby 进行简单的 lisp 表达式的解析

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

word左右居中纵向分布 word左右居中对齐 word左右居中对齐怎么设置 word标题回车后为正文 word标题回车后直接分页 word标题回车后中间空了好大一段 word里面行距怎么调整无法缩小 word里面行距一直很大 word里面行距怎么设置在哪里 word试卷格式文档怎么打印 word试卷格式排版 word中隐藏文字打印 word中隐藏文字快捷键 word中隐藏文字在哪里

专题更多>>

最新文章更多>>

我本善良8584314

用 Ruby 进行简单的 lisp 表达式的解析

def parse(line)
  s = line.scan(/\(|\)|"(?:\\.|[^"])*"|[^()" \n]+/)
  f = ->(t=nil){
    case x = t || s.shift
    when ?(
      y = []
      while x = s.shift
        return y if x==?)
        y << f[x]
      end
      fail ")?"
    when nil
      nil
    when /^#(.*)$/
      {?t=>true,?f=>false}[$~[1]]
    when /\d+/
      x.to_i
    when /^\"(.*)\"$/m
      $~[1].gsub(/\\./,'\n'=>"\n","\\\\"=>"\\","\\\""=>'"')
    else
      x.to_sym
    end
  }
  f[]
end

$tests = {
  "" => nil,
  "1" => 1,
  "(a b)" => [:a,:b],
  "(1 2(2 3))" => [1,2,[2,3]],
  '(a"b"c"d"(ef))' => [:a,"b",:c,"d",[:ef]],
  '("a b" (c d-e))' => ["a b",[:c,:"d-e"]],
  "(\"a\nb\"\nb\nc (d))" => ["a\nb",:b,:c,[:d]],
  ' "a\nb"' => "a\nb",
  '"a\\"b"'=>'a"b',
  "\"\\\\\""=> "\\",
  "(#t #f)" => [true,false],
  "(define (f x) (if (zero? x) 0 (+ x (f (- x 1)))))" =>
    [:define,[:f,:x],[:if,[:zero?,:x],0,[:+,:x,[:f,[:-,:x,1]]]]],
}

p $tests.all?{|x,y|parse(x)==y}