列转行时，如何控制列数递增

bulletmarquis

输入$(seq 10)
输出：
1
2 3
4 5 6
7 8 9 10

求大神们指点，如何能用awk实现这个操作？(不用for循环来写)

想的脑袋都疼了。。。总觉得抓到一点灵感，但写下来总是有问题。。。

ly5066113

回复 1# bulletmarquis


try:

1. seq 10 | awk 'BEGIN{n=1;i=1}{printf $0" "}NR==n{n+=++i;print ""}'

复制代码

bulletmarquis

回复 2# ly5066113


    哎呀就是想要这个思路，大神给力啊

    之前被这几个变量的关系绕的晕头转向。。。

zerostudy

1. seq 10 | awk 'BEGIN{row=1;mod=1}{if(mod % row == 0){print $0;row++;mod=0}else{printf("%s ",$0)};mod=mod+1}'

复制代码

Herowinter

回复 1# bulletmarquis

决定向黑哥学习,另辟蹊径.
观察序列:
1
2 3
4 5 6
7 8 9 10
...
每一行最后一个数字,得以下递推公式:
a0=1
a1=a0+2
a2=a1+3
...
an=an-1+(n+1)

累加等式左边和右边,计算出公式:
an=(n+1)(n+2)/2
带入验算得a0=1;a1=3;a2=6;a3=10;结果正确.

于是,得到如下代码:

1. seq 10|awk '{s=length(s)?s" "$0:$0;if(NR==(n+1)*(n+2)/2){print s;s="";n++}}'
   
2. 1
   
3. 2 3
   
4. 4 5 6
   
5. 7 8 9 10

复制代码

这个冬天不冷

1. seq 10 | awk 'BEGIN{n=1;i=1}{printf $0" "}NR==n{n+=++i;print ""}'

复制代码

回复 5# Herowinter


   2楼的代码  仔细分析下是不是 差不多

Herowinter

我的代码还有bug,要加end输出最后非空的s，要不输入seq 12只会得到1-10，向Tim大师学习吧。

blackold

1. seq 10|awk '{printf $0" "}NR==(i+2)*(i+1)/2{print "";i++}'

复制代码

blackold

回复 5# Herowinter


    等差数列，就是这样

yestreenstars

1. awk 'BEGIN{i=j=1}{if(!(i%j)){ORS="\n";i=1;j++}else{ORS=" ";i++}}1'

复制代码