rasel 0.1.0 → 1.0.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 77212c7620ca6230ba0c4562b45787671cffbb21
-  data.tar.gz: ebdcac80864dffb0df2bebb02d2a7f15b5362f89
+  metadata.gz: 587ff1f458d557603238203069109e7515486684
+  data.tar.gz: 847fabdaaf7016f1b8992004ab1fc7b965e4addb
 SHA512:
-  metadata.gz: 3bb914dd708affb43b1e49464e6309cfc1efc63a6836f32cde276cf84b6a2366a75832cf1eb25f84f15e48f5921427be7a36c2f32dcc871b6e70f83659927123
-  data.tar.gz: 128a0eb852b51f588cc7d4eb9461e9be0321a9983a24bcc8e33ba0ce5e2a057102702ce052fcbb027239932d742a68f3d40dc3ecc039219a19b2e1e2c8fd886d
+  metadata.gz: 6594fb5176f5cf7e21d06bbc5cc1f376ad97917d1ff6a844ba850a5930350c893886176a1c5df904cbf6f212864ce77a138249a62ad934e66937affc48ef0633
+  data.tar.gz: 566dbc8e76fe9afa54a181051981a5f67f8009c75e67eb255f42caaf8086b10d43968ea54123173604b785717873e2473514970bc91fe780c3c4281404ceae5e

data/lib/rasel.rb

@@ -5,7 +5,7 @@ def RASEL source, stdout = StringIO.new, stdin = STDIN
   lines = source.tap{ |_| fail "empty source" if _.empty? }.gsub(/ +$/,"").split(?\n)
   code = lines.map{ |_| _.ljust(lines.map(&:size).max).bytes }
   stack = []
-  pop = ->{ stack.pop || 0r }
+  pop = ->{ stack.pop || 0 }
   dx, dy = 1, 0
   x, y = -1, 0
 
@@ -49,24 +49,24 @@ def RASEL source, stdout = StringIO.new, stdin = STDIN
     case char
       when ?\s
 
-      when ?0..?9, ?A..?Z ; stack.push char.to_i(36).to_r
+      when ?0..?9, ?A..?Z ; stack.push char.to_i 36
       when ?" ; stringmode ^= true
       when ?# ; move[]
       when ?$ ; pop[]
       when ?: ; stack.concat [pop[]] * 2
       when ?- ; stack.push -(pop[] - pop[])
-      when ?\\ ; stack.concat [pop[], pop[]]
-      when ?/ ; b, a = pop[], pop[]; stack.push (b.zero? ? 0 : a / b)
-      when ?% ; b, a = pop[], pop[]; stack.push (b.zero? ? 0 : a % b)
+      when ?/ ; b, a = pop[], pop[]; stack.push (b.zero? ? 0 : Rational(a) / b)
+      when ?% ; b, a = pop[], pop[]; stack.push (b.zero? ? 0 : Rational(a) % b)
       when ?v ; dx, dy =  0,  1
       when ?> ; dx, dy =  1,  0
       when ?^ ; dx, dy =  0, -1
       when ?< ; dx, dy = -1,  0
       when ?? ; move[] if pop[] > 0
-      when ?a
+      when ?\\
         t = pop[]
-        error[] if 0 > t || 1 != t.denominator
-        stack.push t.zero? ? 0 : stack[-t] || 0
+        error[] if 1 != t.denominator
+        stack.unshift 0 until stack.size > t
+        stack[-t-1], stack[-1] = stack[-1], stack[-t-1] unless 0 > t
       when ?. ; stdout.print "#{_ = pop[]; 1 != _.denominator ? _.to_f : _.to_i} "
       when ?, ; stdout.print "#{_ = pop[]; 1 != _.denominator ? error[] : _ < 0 || _ > 255 ? error[] : _.to_i.chr}"
       when ?~ ; if _ = stdin.getbyte then stack.push _; move[] end

data/rasel.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |spec|
   spec.name         = "rasel"
-  spec.version      = "0.1.0"
+  spec.version      = "1.0.0"
   spec.summary      = "Random Access Stack Esoteric Language"
 
   spec.author       = "Victor Maslov aka Nakilon"

data/test.rb

@@ -6,27 +6,33 @@ require_relative "lib/rasel"
 
 # TODO: assert that all RASEL() return with 0 exit code unless the opposite is expected
 
-describe "tests" do
-  around{ |test| Timeout.timeout(1){ test.call } }
-  def assert_stack expectation, *args
-    result = RASEL *args
-    assert_equal expectation.map(&:to_r), [*result.stack, result.exitcode]
-  end
-
+describe "bin" do
+  around{ |test| Timeout.timeout(RUBY_PLATFORM == "java" ? 4 : 1){ test.call } }
   describe "executable" do
     require "open3"
     [
+      ["cat.rasel < examples/cat.rasel", 0, File.read("examples/cat.rasel")],
       ["helloworld.rasel", 0, "Hello, World!\n"],
       ["naive_if_zero.rasel", 0, "false\nfalse\ntrue\nfalse\nfalse\n"],
       ["short_if_zero.rasel", 0, "false\nfalse\ntrue\nfalse\nfalse\n"],
-      ["cat.rasel < examples/cat.rasel", 0, File.read("examples/cat.rasel")],
-    ].each do |cmd, expected_status, expected_stdout|
+      ["factorial.rasel", 0, "120 ", "echo 5 | "],
+      ["fibonacci.rasel", 5, "3 ", "echo 5 | "],
+      ["project_euler/1.rasel", 0, "233168 ", "echo 1000 | "],
+    ].each do |cmd, expected_status, expected_stdout, prefix|
       it cmd do
-        string, status = Open3.capture2e "./bin/rasel examples/#{cmd}"
+        string, status = Open3.capture2e "#{prefix}./bin/rasel examples/#{cmd}"
         assert_equal [expected_status, expected_stdout], [status.exitstatus, string]
       end
     end
   end
+end
+
+describe "lib" do
+  around{ |test| Timeout.timeout(1){ test.call } }
+  def assert_stack expectation, *args
+    result = RASEL *args
+    assert_equal expectation, [*result.stack, result.exitcode]
+  end
 
   describe "non-instructional" do
     it "trim spaces and empty lines" do
@@ -84,7 +90,6 @@ describe "tests" do
       it "0..9, A..Z" do assert_stack [*0..35], "#{[*0..9].join}#{[*?A..?Z].join}@" end
       it "$"  do assert_stack [1], "$12$@" end
       it ":" do assert_stack [0, 0, 1, 1], ":1:@" end
-      it ?\\ do assert_stack [0, 1, 0], "\\1\\@" end
       it "><^v" do
         assert_stack [1, 2, 3, 4],
           <<~HEREDOC
@@ -141,6 +146,12 @@ describe "tests" do
           assert_stack expectation, "^@1?#{code.reverse}".chars.zip.transpose.join(?\n)
         end
       end
+      it "\\" do assert_stack [2, 0, 4, 0], "4321001-02-\\\\\\\\\\@" end
+      it "exit status code 255 on non-integer \\ index" do
+        assert_equal 0, RASEL("01/\\@").exitcode
+        assert_equal 255, RASEL("12/\\@").exitcode
+        assert_equal 255, RASEL("12/-\\@").exitcode
+      end
     end
 
     describe "new" do
@@ -151,11 +162,6 @@ describe "tests" do
       it "exit status code 255 on non-integer jump" do
         assert_equal 255, RASEL("12/j@").exitcode
       end
-      it "a:." do assert_equal "2 0 0 ", RASEL("21a:.a:.a:.@").stdout.string end
-      it "exit status code 255 on negative 'take at' argument" do
-        assert_equal 255, RASEL("1-a@").exitcode
-        assert_equal 255, RASEL("12/a@").exitcode
-      end
     end
 
   end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rasel
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 1.0.0
 platform: ruby
 authors:
 - Victor Maslov aka Nakilon
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2020-12-17 00:00:00.000000000 Z
+date: 2021-05-25 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: minitest-around