missinglisp 0.0.1 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2d943518d524706f9cac981ad41c1cb031a87016e286c12804d424af0528c121
-  data.tar.gz: bbc3ce8ab2de2fa384444a4b00c1cb3fbe1ea16fbc37470a56cf0e0828746134
+  metadata.gz: 3d439126ef5936974b06ea17de05495349e19c0a11118edc19092e873a736436
+  data.tar.gz: f132a6e170876980329bd8b84d20aa1bd7e06f100bf3872b0c0e763535b30505
 SHA512:
-  metadata.gz: 7f1ab35b50356a81b4a146424a254eec5d9bf0e54ed3d7641ca38d25bacc5e96e75d0ac0522e5a91d013745c242118c28d0ea8922bcd037f210b499d1996b98d
-  data.tar.gz: 474e2c0137ebcab5b129088d9c4cdeaa06abf47f1f17ad173deccb4e86c800956f73f513d2df8b8a41cf7d5ebaf125a0421d54e15fafe1f87a0dd032a0691ccf
+  metadata.gz: 84dc4fadf2b03da0d3c6e155b8eacc056bd6565438a4dd08d32bfbdcb4197727ac3000317f8f0b612808af346fd77771385c7731be852a06af7de72f8fe170cb
+  data.tar.gz: 9995f555865a9813a2505c79f2abd9f6823fda4b81311ed312f314f3537f0020d2fe8162067b9bc3740726abc86c4753f02d7544ca990ef066a9584f7e2ca5c0

data/lib/missinglisp.rb

@@ -16,7 +16,18 @@ class Lisp
       gt: ->(a, b, *) { a > b },
       geq: ->(a, b, *) { a >= b },
 
+      # string
+      aref: ->(s, at, *) { s[at] },
+      concatenate: ->(_type, *ls) { ls.reduce(:+) },
+
+      # char
+      codeChar: ->(c, *) { c.chr },
+
+      readLine: ->(*) { $stdin.readline.chomp },
+
       p: ->(*ls) { p ls },
+      print: ->(*ls) { p ls },
+      writeLine: ->(s, *) { puts s },
 
       t: true,
       nil: []
@@ -25,6 +36,7 @@ class Lisp
 
   def eval(exp, env)
     return exp if exp.is_a? Numeric
+    return exp if exp.is_a? String
     return env[exp] if exp.is_a? Symbol
 
     # list
@@ -64,7 +76,6 @@ class Lisp
 
     res = nil
     exp.each do |stmt|
-      # p stmt
       res = self.eval(stmt, env)
     end
 
@@ -113,9 +124,12 @@ class Lisp
     res = []
     cur = ''
     is_reading_digit = false
+    is_reading_string = false
     s.each_char do |c|
       case c
       when '_'
+        cur += ' ' and next if is_reading_string
+
         if cur != ''
           if is_reading_digit
             res.push cur.to_i
@@ -154,6 +168,25 @@ class Lisp
         end
 
         res.push :J
+      when 'Q'
+        if is_reading_string
+          res.push cur
+          cur = ''
+          is_reading_string = false
+          next
+        elsif is_reading_digit
+          res.push cur.to_i
+          cur = ''
+          is_reading_digit = false
+          is_reading_string = true
+          next
+        end
+
+        if cur != ''
+          cur += 'Q'
+        else
+          is_reading_string = true
+        end
       when '0'..'9'
         cur += c and next if cur != ''
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: missinglisp
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors:
 - Yajima Soichi