亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 用 Ruby 進行簡單的 lisp 表達式的解析 [打印本頁]
作者: Lexus    時間: 2015-06-30 10:12
標題: 用 Ruby 進行簡單的 lisp 表達式的解析
就是lisp用的s表達式，可以向json一樣用來讀取保存的數(shù)據(jù)，也可以用來做DSL什么的。
代碼的各種情況還考慮得不是很完全，等用到一種測試用例再來補充對應的實現(xiàn)吧。
這個實現(xiàn)對S表達式的格式以及這個解析函數(shù)在各方面都暫且以簡單能用首要目的來著。

[Ruby]代碼
  1. def parse(line)
  2.   s = line.scan(/\(|\)|"(?:\\.|[^"])*"|[^()" \n]+/)
  3.   f = ->(t=nil){
  4.     case x = t || s.shift
  5.     when ?(
  6.       y = []
  7.       while x = s.shift
  8.         return y if x==?)
  9.         y << f[x]
  10.       end
  11.       fail ")?"
  12.     when nil
  13.       nil
  14.     when /^#(.*)$/
  15.       {?t=>true,?f=>false}[$~[1]]
  16.     when /\d+/
  17.       x.to_i
  18.     when /^\"(.*)\"$/m
  19.       $~[1].gsub(/\\./,'\n'=>"\n","\\\\"=>"\\","\\\""=>'"')
  20.     else
  21.       x.to_sym
  22.     end
  23.   }
  24.   f[]
  25. end

  27. $tests = {
  28.   "" => nil,
  29.   "1" => 1,
  30.   "(a b)" => [:a,:b],
  31.   "(1 2(2 3))" => [1,2,[2,3]],
  32.   '(a"b"c"d"(ef))' => [:a,"b",:c,"d",[:ef]],
  33.   '("a b" (c d-e))' => ["a b",[:c,:"d-e"]],
  34.   "(\"a\nb\"\nb\nc (d))" => ["a\nb",:b,:c,[:d]],
  35.   ' "a\nb"' => "a\nb",
  36.   '"a\\"b"'=>'a"b',
  37.   "\"\\\\\""=> "\\",
  38.   "(#t #f)" => [true,false],
  39.   "(define (f x) (if (zero? x) 0 (+ x (f (- x 1)))))" =>
  40.     [:define,[:f,:x],[:if,[:zero?,:x],0,[:+,:x,[:f,[:-,:x,1]]]]],
  41. }

  43. p $tests.all?{|x,y|parse(x)==y}
復制代碼




歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2