冒泡排序代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】冒泡排序

作者:不吃皮蛋 / 发布于2014/9/12/ 450


	#!/usr/bin/perl
	use strict;
	use warnings;
	use feature qw(say);
	
	my @e = qw/ 4 88 5 21 92 37 56 13 75 19 64 57 94 34 8 12 71 99 102 38/; #20个元素的列表
	say "before:";
	foreach (@e) { #调用子程序
	 print $_, " ";
	}
	say "\nafrer:";
	foreach (bubble_sort(@e)) { #调用子程序
	 print $_, " ";
	}
	
	sub bubble_sort { #冒泡排序子程序
	 my @a = @_;
	 for my $i(0..$#a) {
	 for my $j($i+1..$#a) {
	 if($a[$j] < $a[$i]) {
	 @a[$i,$j] = @a[$j,$i]; #数组片段，交换i和j的值
	 }
	 }
	 }
	 return @a;
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　冒泡排序　

同语言下

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

可能有用的

.SQL查询多列合并成一行用逗号隔开
.一行一行读取txt的内容
.C#动态修改文件夹名称(FSO实现，不移动文件)
.c# 移动文件或文件夹
.c#图片添加水印
.Java PDF转换成图片并输出给前台展示
.网站后台修改图片尺寸代码
.处理大图片在缩略图时的展示
.实现对图片上传的接收
.判断用户输入的是否为IP地址

不吃皮蛋贡献的其它代码(18)

.冒泡排序
.插入排序
.调用memcache范例
.计算倒数算法
.冒泡法排序
.二分查找算法
.绘制指数统计图表
.检测文件大小
.添加字符串到文件代码
.检测输出设备是屏幕还是管道