q-language 1.0.0

data/lib/q-language/methods/array.rb

@@ -0,0 +1,523 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+class QArray < QObject
+  def add (array)
+    value + array
+  end
+  
+  def add_all (*every_array)
+    value + every_array.inject([]) {|t,a| t + a }
+  end
+  
+  def array?
+    value
+  end
+  
+  def at (number)
+    value.at(number)
+  end
+  
+  def clear
+    value.clear
+  end
+  
+  def combination (number, &block)
+    value.combination(number) do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def compact
+    value.compact
+  end
+  
+  def compact!
+    value.compact!
+    value
+  end
+  
+  def concat (array)
+    value.concat(array)
+  end
+  
+  def count (object)
+    value.count(object)
+  end
+  
+  def count_by (&block)
+    value.count do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def cycle (&block)
+    value.cycle do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def cycle_n (number, &block)
+    value.cycle(number) do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def delete (object)
+    value.delete(object)
+  end
+  
+  def delete_at (number)
+    value.delete_at(number)
+  end
+  
+  def delete_if (&block)
+    value.delete_if do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def drop (number)
+    return value.dup if number < 0
+    value.drop(number)
+  end
+  
+  def drop_while (&block)
+    value.drop_while do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def each (&block)
+    value.each do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def each_cons (number, &block)
+    return nil unless number > 0
+    
+    value.each_cons(number) do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def each_index (&block)
+    value.each_index do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def each_slice (number, &block)
+    return nil unless number > 0
+    
+    value.each_slice(number) do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def each_with_index (&block)
+    value.each_with_index do |obj, i|
+      result = yield [obj, i]
+      break result if env::break?
+    end
+  end
+  
+  def each_with_object (object, &block)
+    value.each_with_object(object) do |obj, o|
+      result = yield [obj,o]
+      break result if env::break?
+    end
+    
+    object
+  end
+  
+  def empty?
+    value.empty?
+  end
+  
+  def find (&block)
+    value.find do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def first
+    value.first
+  end
+  
+  def flatten
+    value.flatten
+  rescue ArgumentError
+    # Array is recursive
+    value.dup
+  end
+  
+  def flatten!
+    value.flatten!
+  rescue ArgumentError
+    # Array is recursive
+    value
+  end
+  
+  def group_by (&block)
+    value.group_by do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def include? (object)
+    value.include?(object)
+  end
+  
+  def index (object)
+    value.index(object)
+  end
+  
+  def index_by (&block)
+    value.index do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def inject (object, &block)
+    value.inject(object) do |o, obj|
+      result = yield [o,obj]
+      break result if env::break?
+      result
+    end
+  end
+  
+  def intersection (array)
+    value & array
+  end
+  
+  def join (string)
+    value.join(string)
+  rescue ArgumentError
+    # Array is recursive
+    value.dup
+  end
+  
+  def last
+    value.last
+  end
+  
+  def last_n (number)
+    return value.dup if number < 0
+    value.last(number)
+  end
+  
+  def length
+    value.length
+  end
+  
+  def many? (&block)
+    value.count do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end > 1
+  end
+  
+  def map (&block)
+    value.map do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def map! (&block)
+    value.map! do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def max
+    value.max
+  rescue ArgumentError
+    # Array elements cannot be compared
+    nil
+  end
+  
+  def max_by (&object)
+    value.max_by do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  rescue ArgumentError
+    # Array elements cannot be compared
+    nil
+  end
+  
+  def min
+    value.min
+  rescue ArgumentError
+    # Array elements cannot be compared
+    nil
+  end
+  
+  def min_by (&object)
+    value.min_by do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  rescue ArgumentError
+    # Array elements cannot be compared
+    nil
+  end
+  
+  def minmax
+    value.minmax
+  rescue ArgumentError
+    # Array elements cannot be compared
+    nil
+  end
+  
+  def minmax_by (&object)
+    value.minmax_by do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  rescue ArgumentError
+    # Array elements cannot be compared
+    nil
+  end
+  
+  def none? (&block)
+    value.none? do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def one? (&block)
+    value.one? do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def partition (&block)
+    value.partition do |obj|
+      result = yield obj
+      return result if env::break?
+      result
+    end
+  end
+  
+  def permutation (number, &block)
+    value.permutation(number) do |obj|
+      result = yield obj
+      break result if env::break?
+    end
+  end
+  
+  def pop
+    value.pop
+  end
+  
+  def pop_n (number)
+    return value.dup if number < 0
+    value.pop(number)
+  end
+  
+  # May cause segfault in Ruby 1.9.2-p290
+  #def product (array)
+  #  value.product(array)
+  #end
+  
+  def push (object)
+    value << object unless value.length >= env::max_array_length
+  end
+  
+  def push_all (*every_object)
+    value.concat(every_object)
+  end
+  
+  def reject (&block)
+    value.reject do |obj|
+      result = yield obj
+      break if env::break?
+      result
+    end
+  end
+  
+  def reject! (&block)
+    value.reject! do |obj|
+      result = yield obj
+      break if env::break?
+      result
+    end
+  end
+  
+  def replace (array)
+    value.replace(array)
+  end
+  
+  def reverse
+    value.reverse
+  end
+  
+  def reverse!
+    value.reverse!
+  end
+  
+  def reverse_each (&block)
+    value.reverse_each do |obj|
+      result = yield obj
+      break if env::break?
+      result
+    end
+  end
+  
+  def rindex (object)
+    value.rindex(object)
+  end
+  
+  def rotate
+    value.rotate
+  end
+  
+  def rotate!
+    value.rotate!
+  end
+  
+  def rotate_n (number)
+    value.rotate(number)
+  end
+  
+  def rotate_n! (number)
+    value.rotate!(number)
+  end
+  
+  def sample
+    value.sample
+  end
+  
+  def sample_n (number)
+    return value.dup if number < 0
+    value.sample(number)
+  end
+  
+  def second
+    value[1]
+  end
+  
+  def select (&block)
+    value.select do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def select! (&block)
+    value.select! do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def shift
+    value.shift
+  end
+  
+  def shift_n (number)
+    return value.dup if number < 0
+    value.shift(number)
+  end
+  
+  def shuffle
+    value.shuffle
+  end
+  
+  def shuffle!
+    value.shuffle!
+  end
+  
+  def sort
+    value.sort
+  rescue ArgumentError
+    # Array elements cannot be compared
+    value.dup
+  end
+  
+  def sort!
+    value.sort!
+  rescue ArgumentError
+    # Array elements cannot be compared
+    value.dup
+  end
+  
+  def subtract (array)
+    value - array
+  end
+  
+  def take (number)
+    return value.dup if number < 0
+    value.take(number)
+  end
+  
+  def take_while (&block)
+    value.take_while do |obj|
+      result = yield obj
+      break result if env::break?
+      result
+    end
+  end
+  
+  def third
+    value[2]
+  end
+  
+  def union (array)
+    value | array
+  end
+  
+  def uniq
+    value.uniq
+  end
+  
+  def uniq!
+    value.uniq!
+  end
+  
+  def unshift (object)
+    value.unshift(object)
+  end
+  
+  def unshift_all (*every_object)
+    value.unshift(*every_object)
+  end
+end