Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Sea
#perl 5.22.1 @sea = qw/She sells sea shells on the sea shore/; @core = (3,2,5,6,7,5,4,3,6,8,7,6); print "Before : @sea\n"; print "Before : @core\n"; @sea = sort(@sea); @core = sort(@core); print "-+-+-+-+-+-+-+-+-+-+-+\n"; print "After : @sea\n"; print "After : @core\n";
run
|
edit
|
history
|
help
0
test hello worl perl
size_of_array
perl circle plot
grid
bitSum 059-1
Perl
Quotes
Toy singleton class
OSTL
Arrayop