codepad
[
create a new paste
]
login
|
about
Link:
http://codepad.org/qN3IkQrJ
[
raw code
|
output
|
fork
]
skeletonkey
-
Perl
,
pasted on Feb 18:
1
2
3
4
my
$n
=
5
;
my
@a
=
(
0
)
x
$n
;
print
join
(
"\n"
,
@a
)
.
"\n"
;
Output:
1
2
3
4
5
0 0 0 0 0
Create a new paste based on this one
Comments: