What is it that you are trying to do?<br><br><div class="gmail_quote">On Dec 28, 2007 10:49 PM, Cristian Baboi <<a href="mailto:cristian.baboi@gmail.com">cristian.baboi@gmail.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Here is what I was able to come up with:<br><br><br>module Store where<br><br>data FStore1 a b = Empty1 | FS1 ( a->b , FStore1 a b )<br><br>store1 :: (a->b) -> (FStore1 a b)<br>store1 f = let x = FS1 (f, x) in x
<br><br>data FStore2 a b = Empty2 | FS2 ( a->b , FStore2 a b, FStore2 a b )<br><br>store2 :: (a->b) -> (FStore2 a b)<br>store2 f = let x = FS2 (f,x,x) in x<br><br><br>First I tryed store1, but after a while it went out of business.
<br>Second I tryed other business model with store2. Same result.<br><br>Then I tryed to make a street of stores.<br>After a while, they all went out of business.<br><br>Then I tryed to make several streets of stores.<br>
After a while they all went out of business.<br><br>Then I tryed to make an infinite street of stores.<br>After a while they all went out of business.<br><br>Then, following some rumors that there is a store on that street with some
<br>function in stock that might be willing to give it away, I noticed that<br>the street disappeared, and I cannot go to that store.<br><br>Can you help me find it ?<br>_______________________________________________<br>
Haskell-Cafe mailing list<br><a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br><a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe
</a><br></blockquote></div><br>