arrays 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 10644639116d6dabbe13a4ff4aea0b9b096a12ff
+  data.tar.gz: 80b948385a8bfcee4cd1a8660aa313d1f7763c3b
+SHA512:
+  metadata.gz: c06a24e7b1e3ef299ce0f39fd71dc04981384d25ea0f5e2ca7c24043fd2ffc38e2c89c6472c023012bb255688e19605e9d2f1163933caeb93e248abf8852ebe7
+  data.tar.gz: d7fd728eb22770cf0357e33be3b329ee13e0f31f396a9b2952043684fa18a9254c31644841d37b29a50165ed590006d05afbd2becafd2adebe2dc3f59cde17f8

data/RakeFile

@@ -0,0 +1,8 @@
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.libs << 'test'
+end
+
+desc "Run tests"
+task :default => :test

data/arrays.gemspec

@@ -0,0 +1,14 @@
+Gem::Specification.new do |s|
+  s.name = 'arrays'
+  s.version = '0.0.1'
+  s.date = '2013-07-23'
+  s.summary = "useful method for array like list"
+  s.description = "array extensions for functional programming"
+  s.authors = ["daewon"]
+  s.email = "blueiur@gmail.com"
+  s.files = Dir.glob("**/**/**")
+  s.homepage = 'http://daewon.github.com'
+end
+
+
+

data/lib/arrays.rb

@@ -0,0 +1,51 @@
+# Array extension
+class Array
+  
+  # cluster element with keep order
+  # accept binary predicate function
+  # [1, 2, 2, 2].cluster { |a, b| a == b }
+  # => [[1], [2, 2, 2]]
+  def cluster &block
+    self.inject([]) { |acc, item|
+      if acc.empty?
+        [[item]]
+      else
+        if block.call(acc[-1][-1], item)
+          acc[-1] << item
+        else
+          acc << [item]
+        end
+        acc
+      end
+    }
+  end
+
+  # throw exception if list is empty
+  def check_empty_list
+    throw ":empty list" if self.empty?
+  end
+
+  # drop last one element 
+  # [1, 2].tail 
+  # => [2]
+  def init
+    check_empty_list
+    self.take(self.length-1)
+  end
+  
+  # drop one element 
+  # [1, 2].tail 
+  # => [2]
+  def tail
+    check_empty_list
+    self.drop(1)
+  end
+  
+  # take one element
+  # [1, 2].head 
+  # => 1
+  def head
+    self.first
+  end
+end
+

data/lib/arrays.rb~

@@ -0,0 +1,65 @@
+#!`which ruby`
+
+# Array extension
+class Array
+  # cluster element with keep order
+  # accept binary predicate function
+  # [1, 2, 2, 2].cluster { |a, b| a == b }
+  # => [[1], [2, 2, 2]]
+  def cluster &block
+    self.inject([]) { |acc, item|
+      if acc.empty?
+        [[item]]
+      else
+        if block.call(acc[-1][-1], item)
+          acc[-1] << item
+        else
+          acc << [item]
+        end
+        acc
+      end
+    }
+  end
+
+  # throw exception if list is empty
+  def check_empty_list
+    throw ":empty list" if self.empty?
+  end
+
+  # drop last one element 
+  # [1, 2].tail 
+  # => [2]
+  def init
+    check_empty_list
+    self.take(self.length-1)
+  end
+  
+  # drop one element 
+  # [1, 2].tail 
+  # => [2]
+  def tail
+    check_empty_list
+    self.drop(1)
+  end
+  
+  # take one element
+  # [1, 2].head 
+  # => 1
+  def head
+    self.first
+  end
+  
+end
+
+# test 
+cluster = [1, 2, 3, 3, 3, 5, 5, 6].cluster {|a, b| a == b }
+p cluster.inspect
+
+init = [1, 2].init
+p init.inspect
+
+tail = [1, 2].tail
+p tail.inspect
+
+head = [1, 2].head
+p head.inspect

data/test/test_arrays.rb

@@ -0,0 +1,21 @@
+require 'test/unit'
+require 'arrays'
+
+class ArraysTest < Test::Unit::TestCase
+  def test_head
+    assert_equal(1, [1, 2, 3].head)
+    assert_equal(nil, [].head)
+  end
+
+  def test_init
+    assert_equal([1, 2], [1, 2, 3].init)
+  end
+  
+  def test_tail
+    assert_equal([2, 3], [1, 2, 3].tail)
+  end
+  
+  def test_cluster
+    assert_equal([[1], [2], [3]], [1, 2, 3].cluster { |a, b| a == b })
+  end
+end

data/test/test_arrays.rb~

@@ -0,0 +1,19 @@
+require 'test/unit'
+require 'hola'
+
+class HolaTest < Test::Unit::TestCase
+  def test_english_hello
+    assert_equal "hello world",
+    Hola.hi("english")
+  end
+
+  def test_any_hello
+    assert_equal "hello world",
+    Hola.hi("ruby")
+  end
+
+  def test_spanish_hello
+    assert_equal "hola mundo",
+    Hola.hi("spanish")
+  end
+end

metadata

@@ -0,0 +1,49 @@
+--- !ruby/object:Gem::Specification
+name: arrays
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- daewon
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-07-23 00:00:00.000000000 Z
+dependencies: []
+description: array extensions for functional programming
+email: blueiur@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- arrays-0.0.1.gem
+- arrays.gemspec
+- lib/arrays.rb
+- lib/arrays.rb~
+- RakeFile
+- test/test_arrays.rb
+- test/test_arrays.rb~
+homepage: http://daewon.github.com
+licenses: []
+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.5
+signing_key: 
+specification_version: 4
+summary: useful method for array like list
+test_files: []