prelude 0.0.1 → 0.0.2

data/lib/prelude/monad.rb

@@ -6,34 +6,46 @@
 #     
 #     Copyright (C) 2006 APP Design, Inc.
 #
-#     This program is free software; you can redistribute it and/or modify
-#     it under the terms of the GNU General Public License as published by
-#     the Free Software Foundation; either version 2 of the License, or
-#     (at your option) any later version.
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
 #
-#     This program is distributed in the hope that it will be useful,
+#     This library is distributed in the hope that it will be useful,
 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
-#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#     GNU General Public License for more details.
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
 #
-#     You should have received a copy of the GNU General Public License along
-#     with this program; if not, write to the Free Software Foundation, Inc.,
-#     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
 module Prelude
 
-  # $Id: monad.rb 2 2006-08-25 00:11:17Z prelude $
+  # $Id: monad.rb 7 2006-09-06 17:03:26Z prelude $
   #
-  # Monad implementation is inspired by the following sources: 
-  #
-  # * article "Late to the Party" posted at http://cwilliams.textdriven.com/pages/monads, I could not detect
-  #   the author's name
-  # * writings by MenTaLguY, see http://moonbase.rydia.net/mental/writings/programming/monads-in-ruby/00introduction.html
-  #
-  class Monad
+  # The Monad is an Array only in an implementation sence of the word
+  class Monad < Array
+
+    def wrap(v)
+      [v]
+    end
+
+    def empty
+      []
+    end
+    
+    def join
+      r = []
+      each {|a| r.push *a}
+      r
+    end
+
     def bind(&block)
-      collect(&block).flatten
+      map(&block).join
     end
+
   end # Monad
+
 end # Prelude

data/lib/prelude/tuple.rb

@@ -6,40 +6,44 @@
 #     
 #     Copyright (C) 2006 APP Design, Inc.
 #
-#     This program is free software; you can redistribute it and/or modify
-#     it under the terms of the GNU General Public License as published by
-#     the Free Software Foundation; either version 2 of the License, or
-#     (at your option) any later version.
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
 #
-#     This program is distributed in the hope that it will be useful,
+#     This library is distributed in the hope that it will be useful,
 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
-#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#     GNU General Public License for more details.
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
 #
-#     You should have received a copy of the GNU General Public License along
-#     with this program; if not, write to the Free Software Foundation, Inc.,
-#     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
 module Prelude
 
-  # $Id: tuple.rb 2 2006-08-25 00:11:17Z prelude $
-  #
+  # $Id: tuple.rb 7 2006-09-06 17:03:26Z prelude $
+  # 
+  # The Tuple's being an Array should be considered an implementation inheritance.
   class Tuple < Array
 
-    def new(*args)
+    def initialize(*args)
       case
       when args.nil? || args.empty? :
-          super.new([nil, nil])
-      when args.lengh == 1 && args[0].kind_of(Array) :
-          super.new(args[0][0])
-          self << super.new([args[0][1..-1]])
-      when args.lengh == 1 :
-          super.new([args[0], nil])
-      when args.lengh == 2          :
-          super.new(args)
-      when args.lengh  > 2          :
-          super.new([args[0], args[1..-1]])
+          self[0] = self[1] = nil
+      when args.length == 1 && args[0].kind_of?(Array) :
+          self[0] = args[0][0]
+          self[1] = args[0][1..-1]
+      when args.length == 1         :
+          self[0] = args[0]
+          self[1] = nil
+      when args.length == 2         :
+          self[0] = args[0]
+          self[1] = args[1]
+      when args.length  > 2         :
+          self[0] = args[0]
+          self[1] = args[1..-1]
       end # case
     end
 
@@ -51,14 +55,6 @@ module Prelude
       self[1]
     end
 
-    def fst=(o)
-      self[0] = o
-    end
-
-    def snd=(o)
-      self[1] = o
-    end
-
   end # Tuple
 
 end # Prelude

data/test/tc_higher.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: tc_higher.rb 1 2006-08-24 20:34:21Z prelude $
+# $Id: tc_higher.rb 7 2006-09-06 17:03:26Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -9,19 +9,19 @@
 #     
 #     Copyright (C) 2006 APP Design, Inc.
 #
-#     This program is free software; you can redistribute it and/or modify
-#     it under the terms of the GNU General Public License as published by
-#     the Free Software Foundation; either version 2 of the License, or
-#     (at your option) any later version.
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
 #
-#     This program is distributed in the hope that it will be useful,
+#     This library is distributed in the hope that it will be useful,
 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
-#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#     GNU General Public License for more details.
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
 #
-#     You should have received a copy of the GNU General Public License along
-#     with this program; if not, write to the Free Software Foundation, Inc.,
-#     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
 class TestHigher < Test::Unit::TestCase

data/test/tc_list.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: tc_list.rb 1 2006-08-24 20:34:21Z prelude $
+# $Id: tc_list.rb 7 2006-09-06 17:03:26Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -9,19 +9,19 @@
 #     
 #     Copyright (C) 2006 APP Design, Inc.
 #
-#     This program is free software; you can redistribute it and/or modify
-#     it under the terms of the GNU General Public License as published by
-#     the Free Software Foundation; either version 2 of the License, or
-#     (at your option) any later version.
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
 #
-#     This program is distributed in the hope that it will be useful,
+#     This library is distributed in the hope that it will be useful,
 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
-#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#     GNU General Public License for more details.
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
 #
-#     You should have received a copy of the GNU General Public License along
-#     with this program; if not, write to the Free Software Foundation, Inc.,
-#     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
 class TestList < Test::Unit::TestCase
@@ -114,13 +114,27 @@ class TestList < Test::Unit::TestCase
     assert_equal(expect, result)
   end
 
-
-  #    -- * List transformations
   #    , map               -- :: (a -> b) -> [a] -> [b]
-  # already defined by the Array
+  def test_map
+    result = @a.map{|x| x+1}
+    expect = [2, 3, 4, 5, 6]
+
+    assert_equal(expect, result)
+
+    p = proc {|x| x+1}
+    result = @a.map(&p)
+    expect = [2, 3, 4, 5, 6]
+
+    assert_equal(expect, result)
+  end
 
   #    , reverse           -- :: [a] -> [a]
-  # already defined by the Array
+  def test_reverse
+    result = @a.reverse
+    expect = [5, 4, 3, 2, 1]
+
+    assert_equal(expect, result)
+  end
 
   #    , intersperse       -- :: a -> [a] -> [a]
   def test_intersperse

data/test/tc_tuple.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: tc_tuple.rb 1 2006-08-24 20:34:21Z prelude $
+# $Id: tc_tuple.rb 7 2006-09-06 17:03:26Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -9,19 +9,19 @@
 #     
 #     Copyright (C) 2006 APP Design, Inc.
 #
-#     This program is free software; you can redistribute it and/or modify
-#     it under the terms of the GNU General Public License as published by
-#     the Free Software Foundation; either version 2 of the License, or
-#     (at your option) any later version.
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
 #
-#     This program is distributed in the hope that it will be useful,
+#     This library is distributed in the hope that it will be useful,
 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
-#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#     GNU General Public License for more details.
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
 #
-#     You should have received a copy of the GNU General Public License along
-#     with this program; if not, write to the Free Software Foundation, Inc.,
-#     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
 class TestTuple < Test::Unit::TestCase
@@ -35,10 +35,48 @@ class TestTuple < Test::Unit::TestCase
   end # teardown
 
   def test_tuple
+    result = Tuple.new()
+    expect = [nil, nil]
+    
+    assert_equal(expect, result)
+
+    result = Tuple.new(1)
+    expect = [1, nil]
+    
+    assert_equal(expect, result)
+
+    result = Tuple.new(1, 2)
+    expect = [1, 2]
+    
+    assert_equal(expect, result)
+
+    result = Tuple.new(1, 2, 3)
+    expect = [1, [2, 3]]
+    
+    assert_equal(expect, result)
+
+    result = Tuple.new([1, 2])
+    expect = [1, [2]]
+    
+    assert_equal(expect, result)
+
     result = Tuple.new([1, 2, 3, 4, 5])
     expect = [1, [2, 3, 4, 5]]
     
     assert_equal(expect, result)
   end
 
+  def test_fst
+    result = Tuple.new(1, 2, 3).fst
+    expect = 1
+    
+    assert_equal(expect, result)
+  end
+
+  def test_snd
+    result = Tuple.new(1, 2, 3).snd
+    expect = [2, 3]
+    
+    assert_equal(expect, result)
+  end
 end # TestTuple

data/test/ts_prelude.rb

@@ -1,5 +1,5 @@
 #--
-# $Id: ts_prelude.rb 1 2006-08-24 20:34:21Z prelude $
+# $Id: ts_prelude.rb 7 2006-09-06 17:03:26Z prelude $
 #
 #
 #     This file is part of the Prelude library that provides tools to
@@ -9,19 +9,19 @@
 #     
 #     Copyright (C) 2006 APP Design, Inc.
 #
-#     This program is free software; you can redistribute it and/or modify
-#     it under the terms of the GNU General Public License as published by
-#     the Free Software Foundation; either version 2 of the License, or
-#     (at your option) any later version.
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
 #
-#     This program is distributed in the hope that it will be useful,
+#     This library is distributed in the hope that it will be useful,
 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
-#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#     GNU General Public License for more details.
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
 #
-#     You should have received a copy of the GNU General Public License along
-#     with this program; if not, write to the Free Software Foundation, Inc.,
-#     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 #++
 
 $:.unshift File.join(File.dirname(__FILE__), "..", "lib")

metadata

@@ -3,15 +3,15 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: prelude
 version: !ruby/object:Gem::Version 
-  version: 0.0.1
-date: 2006-08-24 00:00:00 -05:00
+  version: 0.0.2
+date: 2006-09-06 00:00:00 -05:00
 summary: Haskell-like functional library
 require_paths: 
 - lib
 email: prelude@rubyforge.org
 homepage: http://prelude.rubyforge.org
 rubyforge_project: prelude
-description: Enables Ruby programmers to use higher functions, monads, and other Haskell features.
+description: Enables Ruby programmers to use higher-order functions, monads, and other Haskell features.
 autorequire: prelude
 default_executable: 
 bindir: bin
@@ -34,6 +34,30 @@ files:
 - TODO
 - CHANGELOG
 - COPYING
+- doc/classes
+- doc/created.rid
+- doc/files
+- doc/fr_class_index.html
+- doc/fr_file_index.html
+- doc/fr_method_index.html
+- doc/index.html
+- doc/rdoc-style.css
+- doc/classes/Prelude
+- doc/classes/Prelude.html
+- doc/classes/Proc.html
+- doc/classes/Symbol.html
+- doc/classes/Prelude/List.html
+- doc/classes/Prelude/Monad.html
+- doc/classes/Prelude/Tuple.html
+- doc/files/CHANGELOG.html
+- doc/files/lib
+- doc/files/README.html
+- doc/files/TODO.html
+- doc/files/lib/prelude
+- doc/files/lib/prelude_rb.html
+- doc/files/lib/prelude/list_rb.html
+- doc/files/lib/prelude/monad_rb.html
+- doc/files/lib/prelude/tuple_rb.html
 - lib/prelude
 - lib/prelude.rb
 - lib/prelude/list.rb