r9818 - trunk/examples/shootout

Author: andreas
Date: Sun Mar 20 20:12:25 2005
New Revision: 9818

Added:
   trunk/examples/shootout/fannkuch.dylan
      - copied, changed from r9817, trunk/examples/shootout/funnkuch.dylan
Removed:
   trunk/examples/shootout/funnkuch.dylan
Log:
job: 7045

It is called fannkuch after all.


Copied: trunk/examples/shootout/fannkuch.dylan (from r9817, 
trunk/examples/shootout/funnkuch.dylan)
==============================================================================
--- trunk/examples/shootout/funnkuch.dylan      (original)
+++ trunk/examples/shootout/fannkuch.dylan      Sun Mar 20 20:12:25 2005
@@ -1,8 +1,8 @@
-module: funnkuch
+module: fannkuch
 
 define constant <int-vector> = limited(<vector>, of: <integer>);
 
-define function funnkuch (n :: <integer>)
+define function fannkuch (n :: <integer>)
  => result :: <integer>;
   let perm :: <int-vector> = make(<int-vector>,size: n,fill: 0);
   let perm1 = make(<int-vector>,size: n,fill: 0);
@@ -70,9 +70,9 @@
 
     end while;
   end block;
-end function funnkuch;
+end function fannkuch;
 
 begin
   let arg = application-arguments()[0].string-to-integer;
-  format-out("%d\n",funnkuch(arg));
+  format-out("%d\n",fannkuch(arg));
 end;
-- 
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter