两个问题

haokanwk

在《JAVA语言程序设计 基础篇》中有如下两个基础题，请改用perl实现。基本上跟语言无关。但也可以练练手！
题1：

1.           1
   
2.         2 1 2
   
3.       3 2 1 2 3
   
4.     4 3 2 1 2 3 4
   
5.   5 4 3 2 1 2 3 4 5
   
6. 6 5 4 3 2 1 2 3 4 5 6

复制代码

题2：

1.                     1
   
2.                   1 2 1
   
3.                 1 2 4 2 1
   
4.               1 2 4 8 4 2 1
   
5.             1 2 4 816 8 4 2 1
   

复制代码

2gua

帮做作业吧。

ziyunfei

perl -e 'for(1..6){printf "%@{[11+2*$_]}s","@{[reverse 1..$_]}@{[\"\",2..$_]}\n"}'

perl -e 'for(1..5){push(@a,2**($_-1));printf "%@{[11+2*$_]}s","@a@{[\"\",reverse @a[0..($_-2)]]}\n"}'

haokanwk

回复 2# 2gua


    已经过了 做 作业的年代，可惜！

haokanwk

回复 3# ziyunfei


    恩，和java代码相比，这个短多了.

ttcn_cu

第一个还能再短点
perl -e "for(1..6){print ' 'x((6-$_)*2),join ' ',reverse (2..$_),1..$_,\"\n\"}"
肯定有更变态的。。。