IFS: Standardize output files

contents/IFS/code/c/IFS.c

@@ -29,21 +29,22 @@ void chaos_game(struct point *in, size_t in_n, struct point *out,
 }
 
 int main() {
+    const int point_count = 10000;
+
     struct point shape_points [3] = {{0.0,0.0}, {0.5,sqrt(0.75)}, {1.0,0.0}};
-    struct point out_points[1000];
+    struct point out_points[point_count];
 
     srand(time(NULL));
 
-    chaos_game(shape_points, 3, out_points, 1000);
+    chaos_game(shape_points, 3, out_points, point_count);
 
     FILE *fp = fopen("sierpinksi.dat", "w+");
 
-    for (int i = 0; i < 1000; ++i) {
+    for (int i = 0; i < point_count; ++i) {
         fprintf(fp, "%f\t%f\n", out_points[i].x, out_points[i].y);
     }
 
     fclose(fp);
 
     return 0;
 }
-

contents/IFS/code/clisp/ifs.lisp

@@ -21,7 +21,7 @@
     `((0 0) (0.5 ,(sqrt 0.75)) (1 0))))
 
 ;; output the data to the "out.dat" file
-(with-open-file (out "out.dat" :direction :output :if-exists :supersede)
+(with-open-file (out "sierpinski.dat" :direction :output :if-exists :supersede)
   (flet ((format-point (p)
            ;; this is not very clean, but it's the simplest way to insert a tab into a string.
            (format nil "~f~c~f" (point-x p) #\tab (point-y p))))

contents/IFS/code/haskell/IFS.hs

@@ -27,4 +27,4 @@ main = do
       points = chaosGame g 10000 sierpinski
       showPoint (Point x y) = show x ++ "\t" ++ show y
 
-  writeFile "out.dat" $ intercalate "\n" $ map showPoint points
+  writeFile "sierpinski.dat" $ intercalate "\n" $ map showPoint points