UC知道我的perl写的好衰啊 帮忙看看
来源：百度知道 编辑：UC知道 时间：2024/07/09 01:12:36
有段时间没碰C了 都有点遗忘了
最近又看起了perl 几年想写个很简单的排序
就是输入一串数字从小到大排列起来
可是就是不行 帮忙看看
perl 版
@num;
$input;
while(1)
{
print "请输入数字！\n";
$input=<STDIN>;
if ($input eq "\n")
{
print "结束！";
last;
}
chomp($input);
push(@num,$input);
}
print "@num\n";
for($i=0;$i<=$#num+1;$i++)
{
for($j+=$i;$j<=$#num+1;$j++)
{
if($num[$i]<$num[$j])
{
@num[$i,$j]=@num[$j,$i];
}
}
}
print "@num";
==============================
C 版
#include <iostream>
int main(void)
{
int arry[10]={4,33,1,222,7,433,5522,2,112,9};
for(int i=0;i<sizeof(arry)/sizeof(int);i++)
{
for(int j=i+1;j<=sizeof(arry)/sizeof(int);j++)
{
if(arry[i]>arry[j])
最近又看起了perl 几年想写个很简单的排序
就是输入一串数字从小到大排列起来
可是就是不行 帮忙看看
perl 版
@num;
$input;
while(1)
{
print "请输入数字！\n";
$input=<STDIN>;
if ($input eq "\n")
{
print "结束！";
last;
}
chomp($input);
push(@num,$input);
}
print "@num\n";
for($i=0;$i<=$#num+1;$i++)
{
for($j+=$i;$j<=$#num+1;$j++)
{
if($num[$i]<$num[$j])
{
@num[$i,$j]=@num[$j,$i];
}
}
}
print "@num";
==============================
C 版
#include <iostream>
int main(void)
{
int arry[10]={4,33,1,222,7,433,5522,2,112,9};
for(int i=0;i<sizeof(arry)/sizeof(int);i++)
{
for(int j=i+1;j<=sizeof(arry)/sizeof(int);j++)
{
if(arry[i]>arry[j])
###### perl #################
my @num;
print "请输入数字！\n";
while (<STDIN>) { last if /^\n$/; push @num,$_;}
print "结束！\n".sort {$a <=> $b } @num;
#############################
my @num;
my $input;
while(1)
{
print "please input number\n";
$input=<STDIN>;
if ($input eq "\n")
{
print "END";
last;
}
chomp($input);
push(@num,$input);
}
print "@num\n";
for($i=0;$i<=$#num;$i++)
{
for($j=$i+1;$j<=$#num;$j++)
{
if($num[$j] lt $num[$i])
{
my $tmp=$num[$j];
$num[$j]=@num[$i];
$num[$i]=$tmp;
}
}
}
print "@num";
@num;
$input;
while(1)
{
print "请输入数字！