出个练习题，看看大神们的代码有多短

sunzhiguolu

1. perl -le 'BEGIN{@a=(3..7)}{while($a[0]<=10){print"@a";redo if(push(@a,$a[-1]+1)&&$a[-1]<=14);@a=@a[1..5]}}'

复制代码

3 4 5 6 7
3 4 5 6 7 8
3 4 5 6 7 8 9
3 4 5 6 7 8 9 10
3 4 5 6 7 8 9 10 11
3 4 5 6 7 8 9 10 11 12
3 4 5 6 7 8 9 10 11 12 13
3 4 5 6 7 8 9 10 11 12 13 14
4 5 6 7 8
4 5 6 7 8 9
4 5 6 7 8 9 10
4 5 6 7 8 9 10 11
4 5 6 7 8 9 10 11 12
4 5 6 7 8 9 10 11 12 13
4 5 6 7 8 9 10 11 12 13 14
5 6 7 8 9
5 6 7 8 9 10
5 6 7 8 9 10 11
5 6 7 8 9 10 11 12
5 6 7 8 9 10 11 12 13
5 6 7 8 9 10 11 12 13 14
6 7 8 9 10
6 7 8 9 10 11
6 7 8 9 10 11 12
6 7 8 9 10 11 12 13
6 7 8 9 10 11 12 13 14
7 8 9 10 11
7 8 9 10 11 12
7 8 9 10 11 12 13
7 8 9 10 11 12 13 14
8 9 10 11 12
8 9 10 11 12 13
8 9 10 11 12 13 14
9 10 11 12 13
9 10 11 12 13 14
10 11 12 13 14