What kind of world do you want?
Think Anything
Let's start at the start
Build a masterpiece
Be careful what you wish for
History starts now...
Walter Blyss 發表在
痞客邦
留言(2)
人氣()
my $b1 = qq(2 1 2 6
3
3
3
4
6
4
2
4 2); my $a1 = qq( s
u
n
i
o
j
o
t
e
m o c y l i s a e l
r e
p e
s u
n a
c u
o y
r e
t l
a w
m a
i i h); my @a2=split
(
" ",
$a1
);
my
@b2
=
split
(
" "
,
$b1
)
;
LOOP:for(my $i = $#a2
, my
$z = 0
; $i
>= 0
; $z++
) {
for (
my $j
= $b2
[ $z
] ;
$j >
0; $j--
, $i-- ){ last LOOP
if
($i ==
-1) ;
unless ($j ==
$b2 [$z])
{print $a2
[$i] ;}
else {print
uc ($a2
[$i]) ;}}
print " "
;}
my $b1 = qq(2 1 2
6
3
3 3 4 6 4 2 4 2);
my
$a1
=
qq(s u n i o j o
t e
m o
c y
l i
s a
e l
r e
p e
s u
n a
c u
o y
r e t l a w m a
i
i
h
)
;
my
@a2
=
split
(
" ",
$a1
);
my @b2 = split(" ",
$b1);
LOOP:
for
(my
$i =
$#a2,
my
$z
=
0;
$i
>=
0;
$z++)
{ for (my $j = $b2[$z]
; $j
> 0;
$j--,
$i--
){
last
LOOP if
( $i
== -1);
print $a2[$i];
} print
" "
;}
Walter Blyss 發表在
痞客邦
留言(0)
人氣()
Walter Blyss 發表在
痞客邦
留言(0)
人氣()
Hello, everybody,
welcome to learning Perl , that is a very nice programming language.
And maybe you will say, what is Perl,
let me show you , see below:
Walter Blyss 發表在
痞客邦
留言(1)
人氣()
Walter Blyss 發表在
痞客邦
留言(4)
人氣()
自從退伍一年後，胖了20公斤，就一直瘦不回來了，鳴鳴~~~
好不容易瘦了10公斤了，但再瘦不下去了，哇哇~~
我的目標距離只差2公斤了，加油啊~~~~~~
哈哈^^
Walter Blyss 發表在
痞客邦
留言(7)
人氣()
響應環保，
請大家告訴大家，為地球盡一分心力，
please, thanks.
Walter Blyss 發表在
痞客邦
留言(3)
人氣()
分享一下我的桌面
Walter Blyss 發表在
痞客邦
留言(5)
人氣()
Walter Blyss 發表在
痞客邦
留言(0)
人氣()
Walter Blyss 發表在
痞客邦
留言(6)
人氣()
Walter Blyss 發表在
痞客邦
留言(2)
人氣()
Walter Blyss 發表在
痞客邦
留言(1)
人氣()
