i_ching 0.1.1 → 0.1.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 531d9ba9e9ea652115bc43e588d987de585c14b9
-  data.tar.gz: bcbd208b4cde44b40bcf3990336bd1ad27efbb31
+  metadata.gz: 659be3dc9e13bf0554d94913f7a5dc605aff503a
+  data.tar.gz: ae844f40d018e5d1b16fef8481ee6a4ae98e2598
 SHA512:
-  metadata.gz: c2ba838d3924b345b836f862020b7ca9ed6fdf0cd100ca90bbc93c9bfbacaa93e265154959bdae0136e9a7f8cc90fe7cdf2583d991f6d880ae444f7b2bb494bb
-  data.tar.gz: 16943c0cdf2cc4adc18ab1a3a6b7742c6a6b7a3b06124a721535da7203e6fc4a12c05f0ea692fd7403d3afb0e7d132d3ca5c6c3030bd19099d4eafb953c2f7f8
+  metadata.gz: d055ff4d53c1223b1213525e56f5b2871655937872941bf285e5f0094701d3d05167786adc039288569a76e4cbcb5e618fb4e8028bb6013cd1c2a77ec90efc72
+  data.tar.gz: 2f7456e3983607f35a4fc6de8711db9ca5cc3e0d5cdf8f0229b26582b98a9518856ac43e8fc46542a1fa02f588880176fd06b36cea29ac78dfcab75d2b0d332d

data/lib/i_ching.rb

@@ -1,13 +1,26 @@
 require "sequel"
+require "json"
 
 require "i_ching/has_attributes"
+require "i_ching/cast_hexagram"
+require "i_ching/caster"
+require "i_ching/casters/base"
+require "i_ching/casters/coins"
+require "i_ching/casters/random"
+require "i_ching/casters/yarrow"
 require "i_ching/hexagram"
 require "i_ching/line"
 require "i_ching/trigram"
 require "i_ching/version"
 
 module IChing
-  # Your code goes here...
+  extend self
+
+  def cast_hexagram(method=:yarrow)
+    caster = IChing::Caster.with_method(method)
+    caster.cast_hexagram
+  end
+
   module DB
     extend self
 

data/lib/i_ching/cast_hexagram.rb

@@ -0,0 +1,58 @@
+module IChing
+  class CastHexagram
+    class InvalidCast < ArgumentError; end
+
+    CHANGES = {
+      6 => 7,
+      9 => 8
+    }
+
+    STABILIZATIONS = {
+      6 => 8,
+      9 => 7
+    }
+
+    BINARY = {
+      7 => 1,
+      8 => 0
+    }
+
+    attr_reader :lines
+
+    def initialize(*lines)
+      @lines = lines
+      validate
+    end
+
+    def change
+      CastHexagram.new(*process(CHANGES))
+    end
+
+    def stabilize
+      CastHexagram.new(*process(STABILIZATIONS))
+    end
+
+    def binary
+      stabilize.lines.map { |line| BINARY[line] }.join("").to_i(2)
+    end
+
+    def hexagram
+      Hexagram.get_by_binary(self.binary)
+    end
+
+    def changed_hexagram
+      change.hexagram
+    end
+
+    private
+
+    def process(conversion_hash)
+      lines.map { |line| conversion_hash.fetch(line, line) }
+    end
+
+    def validate
+      raise InvalidCast unless @lines.count == 6
+      raise InvalidCast unless @lines.all? { |line| line.between?(6, 9) }
+    end
+  end
+end

data/lib/i_ching/caster.rb

@@ -0,0 +1,24 @@
+module IChing
+  module Caster
+    extend self
+    class InvalidCaster < Exception
+    end
+
+    def with_method(method)
+      if casting_method = available_casting_method(method)
+        casting_method.new
+      else
+        raise InvalidCaster
+      end
+    end
+
+    def available_casting_method(method)
+      case method.to_sym
+      when :yarrow then IChing::Casters::Yarrow
+      when :coins then IChing::Casters::Coins
+      when :random then IChing::Casters::Random
+      else nil
+      end
+    end
+  end
+end

data/lib/i_ching/casters/base.rb

@@ -0,0 +1,17 @@
+module IChing
+  module Casters
+    class Base
+      def cast_hexagram
+        CastHexagram.new(*generate_lines)
+      end
+
+      def generate_lines
+        6.times.map { generate_line }
+      end
+
+      def generate_line
+        raise NotImplementedError
+      end
+    end
+  end
+end

data/lib/i_ching/casters/coins.rb

@@ -0,0 +1,12 @@
+module IChing
+  module Casters
+    class Coins < Base
+
+      private
+
+      def generate_line
+        3.times.map { rand(2) + 2 }.inject(0) { |t, n| t + n }
+      end
+    end
+  end
+end

data/lib/i_ching/casters/random.rb

@@ -0,0 +1,12 @@
+module IChing
+  module Casters
+    class Random < Base
+
+      private
+
+      def generate_line
+        rand(4) + 6
+      end
+    end
+  end
+end

data/lib/i_ching/casters/yarrow.rb

@@ -0,0 +1,82 @@
+module IChing
+  module Casters
+    class Yarrow < Base
+
+      private
+
+      def generate_line
+        @remainder_sets = []
+        @stalks = 50
+        @remainder = 0
+
+        put_single_stalk_aside
+
+        3.times do
+          divide_stalks
+          take_one_stalk_from_right_hand_pile
+          take_least_mod_four_from_left
+          take_least_mod_four_from_right
+          set_remainder_aside
+
+          reset_stalks
+        end
+
+        convert_remainders_to_line
+      end
+
+      def put_single_stalk_aside
+        @stalks -= 1
+      end
+
+      def divide_stalks
+        @left = (@stalks / 2) + (rand(20) - 10)
+        @right = @stalks - @left
+      end
+
+      def take_one_stalk_from_right_hand_pile
+        @remainder += 1
+        @right -= 1
+      end
+
+      def take_least_mod_four_from_left
+        r = @left % 4
+        r = case r
+            when 0 then 4
+            else r
+            end
+        @left -= r
+        @remainder += r
+      end
+
+      def take_least_mod_four_from_right
+        r = @right % 4
+        r = case r
+            when 0 then 4
+            else r
+            end
+        @right -= r
+        @remainder += r
+      end
+
+      def set_remainder_aside
+        @remainder_sets << @remainder
+      end
+
+      def reset_stalks
+        @remainder = 0
+        @stalks = @left + @right
+        @left = 0
+        @right = 0
+      end
+
+      def convert_remainders_to_line
+        @remainder_sets.map do |r|
+          case r
+          when 8, 9 then 2
+          when 4, 5 then 3
+          end
+        end.inject(0) { |t, n| t + n }
+      end
+    end
+  end
+end

data/lib/i_ching/has_attributes.rb

@@ -16,4 +16,14 @@ module HasAttributes
       instance_variable_set("@#{k}", v)
     end
   end
+
+  def to_h
+    Hash[self.class.attributes.map do |key|
+      [key, self.send(key)]
+    end]
+  end
+
+  def to_json(*args)
+    JSON.generate(self.to_h)
+  end
 end

data/lib/i_ching/hexagram.rb

@@ -8,6 +8,14 @@ module IChing
         new(table[king_wen_number: king_wen_number])
       end
 
+      def get_by_binary(binary)
+        new(table[binary: binary])
+      end
+
+      def all
+        table.map { |hexagram| new(hexagram) }
+      end
+
       private
 
       def table

data/lib/i_ching/line.rb

@@ -4,14 +4,14 @@ module IChing
     has_attributes :king_wen_number, :place, :meaning
 
     class << self
-      def get(king_wen_number, place)
-        new(table[king_wen_number: king_wen_number, place: place])
-      end
-
       def all(king_wen_number)
         table.where(king_wen_number: king_wen_number).order(:place).map { |line| new(line) }
       end
 
+      def get(king_wen_number, place)
+        new(table[king_wen_number: king_wen_number, place: place])
+      end
+
       private
 
       def table

data/lib/i_ching/trigram.rb

@@ -4,6 +4,10 @@ module IChing
     has_attributes :english_name, :chinese_name, :number, :characters, :binary
 
     class << self
+      def all
+        table.map { |trigram_data| new(trigram_data) }
+      end
+
       def get(number)
         new(table[number: number])
       end

data/lib/i_ching/version.rb

@@ -1,3 +1,3 @@
 module IChing
-  VERSION = "0.1.1"
+  VERSION = "0.1.2"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: i_ching
 version: !ruby/object:Gem::Version
-  version: 0.1.1
+  version: 0.1.2
 platform: ruby
 authors:
 - Michael Berkowitz
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2015-11-05 00:00:00.000000000 Z
+date: 2015-11-24 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: sequel
@@ -84,6 +84,12 @@ files:
 - i_ching.gemspec
 - lib/i_ching.db
 - lib/i_ching.rb
+- lib/i_ching/cast_hexagram.rb
+- lib/i_ching/caster.rb
+- lib/i_ching/casters/base.rb
+- lib/i_ching/casters/coins.rb
+- lib/i_ching/casters/random.rb
+- lib/i_ching/casters/yarrow.rb
 - lib/i_ching/has_attributes.rb
 - lib/i_ching/hexagram.rb
 - lib/i_ching/line.rb