gap-system - 如何在没有换行符的情况下打印到 GAP 中的文本文件？

Question

最低工作示例:

x:=Indeterminate(Rationals,"x");
f:=Sum([1..1000],i->x^i);
PrintTo("~/temp.txt",f);

它打印到 temp.txt下列:

x^1000+x^999+x^998+x^997+x^996+x^995+x^994+x^993+x^992+x^991+x^990+x^989+x^988\
+x^987+x^986+x^985+x^984+x^983+x^982+x^981+x^980+x^979+x^978+x^977+x^976+x^975\
+x^974+x^973+x^972+x^971+x^970+x^969+x^968+x^967+x^966+x^965+x^964+x^963+x^962\
+x^961+x^960+x^959+x^958+x^957+x^956+x^955+x^954+x^953+x^952+x^951+x^950+x^949\

[snip]

我怎样才能让它在文本文件的单行上打印？

Answer 1

这是一个常见的需求，解决方案称为 SetPrintFormattingStatus .见 its documentation online
或只需输入 ?SetPrintFormattingStatus在 GAP 提示中查看文档。
请注意，在这种情况下您必须使用流，它不起作用
直接使用文本文件。 OutputTextFile (记录在SetPrintFormattingStatus ) 是您需要使用的。
在上面的例子中，使用

x:=Indeterminate(Rationals,"x");
f:=Sum([1..1000],i->x^i);
output := OutputTextFile( "poly", false );;
SetPrintFormattingStatus(output, false);
PrintTo(output,f);