[pure-lang-svn] SF.net SVN: pure-lang: [68] pure/trunk/test

[<ag...@us...>]

Revision: 68
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=68&view=rev
Author:   agraef
Date:     2008-05-08 15:20:08 -0700 (Thu, 08 May 2008)

Log Message:
-----------
Cosmetic changes.

Modified Paths:
--------------
    pure/trunk/test/test2.log
    pure/trunk/test/test2.pure

Modified: pure/trunk/test/test2.log
===================================================================
--- pure/trunk/test/test2.log	2008-05-08 22:00:36 UTC (rev 67)
+++ pure/trunk/test/test2.log	2008-05-08 22:20:08 UTC (rev 68)
@@ -31,8 +31,8 @@
 	<var> state 1
   state 1: #0 #1
 } end;
-fib2 n/*0:1*/ = a/*0:01*/ when a/*0:01*/,b/*0:1*/ = fibs/*0*/ (0,1) n/*0:1*/ {
-  rule #0: a,b = fibs (0,1) n
+fib2 n/*0:1*/ = a/*0:01*/ when a/*0:01*/,b/*0:1*/ = fibs/*0*/ (0L,1L) n/*0:1*/ {
+  rule #0: a,b = fibs (0L,1L) n
   state 0: #0
 	<app> state 1
   state 1: #0
@@ -44,9 +44,9 @@
   state 4: #0
 	<var> state 5
   state 5: #0
-} end with fibs (a/*0:0101*/,b/*0:011*/) n/*0:1*/ = a/*0:0101*/,b/*0:011*/ if n/*0:1*/<=0; fibs (a/*0:0101*/,b/*0:011*/) n/*0:1*/ = fibs/*1*/ (b/*0:011*/,bigint a/*0:0101*/+b/*0:011*/) (n/*0:1*/-1) {
+} end with fibs (a/*0:0101*/,b/*0:011*/) n/*0:1*/ = a/*0:0101*/,b/*0:011*/ if n/*0:1*/<=0; fibs (a/*0:0101*/,b/*0:011*/) n/*0:1*/ = fibs/*1*/ (b/*0:011*/,a/*0:0101*/+b/*0:011*/) (n/*0:1*/-1) {
   rule #0: fibs (a,b) n = a,b if n<=0
-  rule #1: fibs (a,b) n = fibs (b,bigint a+b) (n-1)
+  rule #1: fibs (a,b) n = fibs (b,a+b) (n-1)
   state 0: #0 #1
 	<app> state 1
   state 1: #0 #1

Modified: pure/trunk/test/test2.pure
===================================================================
--- pure/trunk/test/test2.pure	2008-05-08 22:00:36 UTC (rev 67)
+++ pure/trunk/test/test2.pure	2008-05-08 22:20:08 UTC (rev 68)
@@ -6,7 +6,7 @@
 
 // tail-recursive version, using bigints
 
-fib2 n = a when a, b = fibs (0, 1) n end
+fib2 n = a when a, b = fibs (0L, 1L) n end
            with fibs (a, b) n = a, b if n<=0;
-                              = fibs (b, bigint a+b) (n-1) otherwise;
+                              = fibs (b, a+b) (n-1) otherwise;
            end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.