Problem Statement

Write two equal-sized numerical arrays 'x' and 'y' to a two-column text file named 'filename'. The first column of the file contains values from an 'x'-array with a given 'xprecision', the second -- values from 'y'-array with 'yprecision'. For example, considering: The file should look like: This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.

Let's start with the solution:

#include 

DEF-MAIN(argv,argc)
   
   VOID( x ), MSET( y, f )

   MEM(1,2,3,1.0e11), APND-LST(x), SET( y, x )
   SET-ROUND(5), SQRT(y), MOVE-TO(y)
   UNSET-ROUND
   
   CAT-COLS( f, y, x )
   TOK-SEP( TAB ), SAVE-MAT(f, "filename.txt" )
END