GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it
// reads a matrix in Normalizz format and prints the transpose to stdout1// again in Normaliz format23#include <stdlib.h>4#include <vector>5#include <list>6#include <map>78#include <sstream>9#include <fstream>10#include <iostream>11#include <algorithm>12using namespace std;131415vector<vector<int> > readMat(const string& project){16// reads one matrix from .in file1718string name_in=project;19const char* file_in=name_in.c_str();20ifstream in;21in.open(file_in,ifstream::in);22if (in.is_open()==false){23cerr << "Cannot find input file" << endl;24exit(1);25}2627int nrows,ncols;28in >> nrows;29in >> ncols;3031if(nrows==0 || ncols==0){32cerr << "Matrix empty" << endl;33exit(1);34}353637int i,j,entry;38vector<vector<int> > result(nrows);3940for(i=0;i<nrows;++i)41for(j=0;j<ncols;++j){42in >> entry;43result[i].push_back(entry);44}45return(result);46}4748int main(int argc, char* argv[])49{5051if(argc<2){52cerr << "No input file given" << endl;53exit(1);54}55string input_name=argv[1];56vector< vector<int > > M;57M=readMat(input_name);58cout << M[0].size() << " " << M.size() << endl;59for(size_t i=0;i<M[0].size();++i){60for(size_t j=0;j<M.size();++j)61cout << M[j][i] << " ";62cout << endl;63}64return(0);65}666768