jop 0.0.2

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 3297e329236a8838c0036f086ba8d4a871140ded
+  data.tar.gz: ff32cc6d6f4d0360814b3e16f4a7fdd1563286df
+SHA512:
+  metadata.gz: 83334657122ade4b7cf4e8ccc0a101a10efee6595ffb2d633f3f115a861a7018b2bca42cabfbceeb76a2b1b4132063c52f4a3b163e7d118ab932052ea1e07992
+  data.tar.gz: aca459965e3c6fb141e5171ddccab6ee02eb39d3f4eb73491cdc10adad81202941cf04129f28673948db2505a35e774ee5a874d86c7df152ba225a7c4abf6b94

data/lib/jop.rb

@@ -0,0 +1,308 @@
+
+require 'tokenizer'
+
+class Op
+  def numeric_literal? text
+    text =~ /^_?\d+/
+  end
+
+  def to_numeric text
+     return text.to_i if text =~ /^\d+/
+     -(text[1...text.length]).to_i
+  end
+
+  def integer_args interpreter
+    interpreter.tokens
+               .take_while {|n| numeric_literal?(n) }
+               .reverse
+               .map(&:to_i)
+  end
+
+  def apply_monad_deep element, &block
+    return yield element unless element.kind_of? Array
+    element.map {|e| apply_monad_deep(e, &block) }
+  end
+end
+
+
+class Ceil < Op; REP = '>.'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e.ceil }
+  end
+end
+
+
+class Complement < Op; REP = '-.'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| 1 - e }
+  end
+end
+
+
+class Curtail < Op; REP = '}:'
+  def run ary, interpreter
+      ary.take(ary.count-1)
+  end
+end
+
+
+class Decrement < Op; REP = '<:'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e - 1 }
+  end
+end
+
+
+class Double < Op; REP = '+:'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e * 2 }
+  end
+end
+
+
+class Drop < Op; REP = '}.'
+  def run ary, interpreter
+    if interpreter.tokens.size > 0 && numeric_literal?(interpreter.tokens[0])
+      number = to_numeric(interpreter.tokens[0])
+      interpreter.advance(1)
+      if number >= 0
+        ary.drop(number)
+      else
+        ary.reverse.drop(-number).reverse
+      end
+    else
+      ary.drop(1)
+    end
+  end
+end
+
+
+class Exp < Op; REP = '^'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|n| Math::exp(n) }
+  end
+end
+
+
+class Floor < Op; REP = '<.'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e.floor }
+  end
+end
+
+
+class GradeDown < Op; REP = '\:'
+  def run ary, interpreter
+    GradeUp.new.run(ary, interpreter).reverse
+  end
+end
+
+
+class GradeUp < Op; REP = '/:'
+  def run ary, interpreter
+    ary.zip(0...ary.length).sort_by {|e| e[0] }.map {|e| e[1] }
+  end
+end
+
+
+class Halve < Op; REP = '-:'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e / 2.0 }
+  end
+end
+
+
+class Increment < Op; REP = '>:'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e + 1 }
+  end
+end
+
+
+class Insert < Op; REP = '/'
+  def run ary, interpreter
+    if interpreter.tokens[0] == Plus::REP
+      interpreter.advance(1)
+      box ary.reduce(&method(:add))
+    elsif interpreter.tokens[0] == Sign::REP
+      interpreter.advance(1)
+      box ary.reduce(:*)
+    end
+  end
+
+  private
+
+  def add x, y
+    return x + y unless arrays? [x,y]
+    x.zip(y).map {|x,y| add(x,y) }
+  end
+
+  def box e
+    e.kind_of?(Array) ? e : [e]
+  end
+
+  def arrays? ary
+    ary.all? {|e| e.kind_of? Array }
+  end
+end
+
+
+class NoOp < Op; REP = ''
+  def run ary, interpreter
+  end
+end
+
+
+class Plus < Op; REP = '+'
+  def run ary, interpreter
+    args = integer_args(interpreter)
+    interpreter.advance(args.length)
+    args.empty? ? ary : ary.zip(args).map {|x,y| x + y }
+  end
+end
+
+
+class Reciprocal < Op; REP = '%'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| 1 / e.to_f }
+  end
+end
+
+
+class ReverseRotate < Op; REP = '|.'
+  def run ary, interpreter
+    if interpreter.tokens.size > 0 && numeric_literal?(interpreter.tokens[0])
+      number = to_numeric(interpreter.tokens[0])
+      interpreter.advance(1)
+      segment_length = number % ary.length
+      segment = ary.take(segment_length)
+      ary.drop(segment_length) + segment
+    else
+      ary.reverse
+    end
+  end
+end
+
+
+class Shape < Op; REP = '$'
+  def run ary, interpreter
+    ranges = integer_args(interpreter)
+    interpreter.advance(ranges.length)
+    fill_matrix(ranges, ary.cycle.each)
+  end
+
+  private
+
+  def fill_matrix ranges, elements
+    return elements.next if ranges.size <= 0
+    (0...ranges.first).map { fill_matrix(ranges.drop(1), elements) }
+  end
+end
+
+
+class Sign < Op; REP = '*'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e <=> 0 }
+  end
+end
+
+
+class Square < Op; REP = '*:'
+  def run ary, interpreter
+    apply_monad_deep(ary) {|e| e ** 2 }
+  end
+end
+
+
+class Tail < Op; REP = '{:'
+  def run ary, interpreter
+      ary.drop(ary.count-1)
+  end
+end
+
+
+class Take < Op; REP = '{.'
+  def run ary, interpreter
+    if interpreter.tokens.size > 0 && numeric_literal?(interpreter.tokens[0])
+      number = to_numeric(interpreter.tokens[0])
+      interpreter.advance(1)
+      if number >= 0
+        ary.take(number)
+      else
+        ary.reverse.take(-number).reverse
+      end
+    else
+      ary.take(1)
+    end
+  end
+end
+
+
+class Tally < Op; REP = '#'
+  def run ary, interpreter
+    [ary.count]
+  end
+end
+
+
+class Tilde < Op; REP = '~'
+  def run ary, interpreter
+    if interpreter.tokens[0] == GradeUp::REP
+      interpreter.advance(1)
+      ary.sort
+    elsif interpreter.tokens[0] == GradeDown::REP
+      interpreter.advance(1)
+      ary.sort.reverse
+    end
+  end
+end
+
+
+class Jop
+  attr_reader :tokens
+
+  def initialize command_text
+    @command_text = command_text
+    @tokens = Tokenizer.new(command_text).tokens.reverse
+  end
+
+  def advance amount
+    @tokens = @tokens[amount...@tokens.length]
+  end
+
+  def eval_on ary
+    result = ary
+    while not @tokens.empty?
+      result = eval_op(result)
+    end
+    result
+  end
+
+  private
+
+  def operators
+    if not @operators
+      @operators = []
+      ObjectSpace.each_object(::Class) {|klass| @operators << klass.new if klass < Op }
+    end
+    @operators
+  end
+
+  def eval_op ary
+    token = @tokens[0]
+    advance(1)
+    operators.detect(NoOp.new) {|op | op.class::REP == token }
+             .run(ary, self)
+  end
+end
+
+class Array
+  def j command_text
+    Jop.new(command_text).eval_on(self)
+  end
+end
+
+
+
+
+

data/lib/tokenizer.rb

@@ -0,0 +1,61 @@
+
+
+
+class Tokenizer
+  attr_reader :tokens, :stream
+
+  def operator? char
+    '~^-%*|<>\\{}+/#$'.include?(char)
+  end
+
+  def initialize text
+    @stream = text
+    @tokens = []
+
+    skip_whitespace
+    while tokenizing?
+      if operator?(current_char)
+        if '.:'.include?(next_char)
+          @tokens << current_char + next_char
+          advance(2)
+        else
+          @tokens << current_char
+          advance(1)
+        end
+      else
+        if stream =~ /^_?\d+/
+          match_data = /^_?\d+/.match(stream)
+          @tokens << match_data[0]
+          advance(match_data[0].length)
+        else
+          break
+        end
+      end
+      skip_whitespace
+    end
+  end
+
+  private
+
+  def tokenizing?
+    @stream.length > 0
+  end
+
+  def current_char
+    @stream.length > 0 ? @stream[0] : ' '
+  end
+
+  def next_char
+    @stream.length > 1 ? @stream[1] : ' '
+  end
+
+  def advance amount
+    @stream = @stream[amount..-1]
+  end
+
+  def skip_whitespace
+    @stream.lstrip!
+  end
+
+
+end

metadata

@@ -0,0 +1,46 @@
+--- !ruby/object:Gem::Specification
+name: jop
+version: !ruby/object:Gem::Version
+  version: 0.0.2
+platform: ruby
+authors:
+- Michael Feathers
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-10-19 00:00:00.000000000 Z
+dependencies: []
+description: Jop is a gem that adds operations of the J programming language to Ruby
+  arrays
+email: michael.feathers@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/jop.rb
+- lib/tokenizer.rb
+homepage: http://rubygems.org/gems/jop
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.3
+signing_key: 
+specification_version: 4
+summary: jop
+test_files: []