@@ -1,4 +1,3 @@ - FibSequence = Sequence with( initialize: method( @index = 0 @@ -25,6 +24,10 @@ fib = method("Returns a sequence that generates all the fibonacci numbers", FibSequence mimic ) +fib2 = method( + fn(a, b, [b, a + b]) iterate(0, 1) mapped(first) +) + ; find the index of the first fibonacci number larger than a thousand (fib indexed(from: 1) takeWhile(second < 1000) last first + 1) println fib indexed(from: 1) droppedWhile(second < 1000) first first println examples/misc/lastFib.ik @@ -40,3 +40,18 @@ cell(:LexicalBlock) complement = method( if(cell?(:activatable) && activatable, fnx(arg, !(cell(:outsideSelf) call(arg))), fn(arg, !(cell(:outsideSelf) call(arg))))) + +Sequence Iterate = Sequence mimic do( + next? = true + next = method( + v = @currentValue + @currentValue = @ cell(:code) call(*v) + v + ) +) + +cell(:LexicalBlock) iterate = method( + "Returns an infinite sequence that will in turn yield args, self(args), self(self(args)), etc", + +args, + Sequence Iterate with(currentValue: args, code: self) +) src/builtin/H10_lexicalBlock.ik @@ -245,6 +245,30 @@ describe(LexicalBlock, ) ) + describe("iterate", + it("should return a sequence", + fn() iterate should mimic(Sequence) + ) + + it("should be possible to define a sequence of fibonacci", + fibseq = fn(a, b, [b, a + b]) iterate(0, 1) mapped(first) + fibseq next should == 0 + fibseq next should == 1 + fibseq next should == 1 + fibseq next should == 2 + fibseq next should == 3 + fibseq next should == 5 + fibseq next should == 8 + fibseq next should == 13 + fibseq next should == 21 + fibseq next should == 34 + fibseq next should == 55 + fibseq next should == 89 + fibseq next should == 144 + fibseq next should == 233 + ) + ) + it("should report arity failures with regular arguments", noargs = fnx(nil) onearg = fnx(x, nil) test/fn_spec.ik 185391fb22028c44a25ef9b61fea1bcc5c13ab2d Ola Bini ola.bini@gmail.com http://github.com/olabini/ioke/commit/00f4e8955a42ce7d38fa3913bd905bfcbebcee38 00f4e8955a42ce7d38fa3913bd905bfcbebcee38 2009-11-06T06:53:27-08:00 2009-11-06T06:53:27-08:00 Add support for iterate on LexicalBlock 81f6a6b482e3d3deafe3323f3f09e310a25ee9d0 Ola Bini ola.bini@gmail.com