冒泡，选择，插入排序
$arr= #定义全局数组，用于冒泡排序$arr1=#定义全局数组，用于选择排序$arr2= #定义全局数组，用于插入排序$temp=0 #全局变量，用于交换数字#冒泡排序puts "冒泡排序\n"=begin upto循环控制冒泡次数 downto循环控制每次比较的次数=end1.upto(4){ |i| 4.downto(i){|j| ($temp=$arr;$arr=$arr;$arr=$temp)if $arr<$arr}}#用,将每个元素连接起来进行输出print $arr.join(","),"\n"#选择排序puts "\n选择排序\n"=begin外层upto循环选定每次待比较的元素内层upto循环控制比较的元素=end0.upto(3){|i| (i+1).upto(4){ |j|($temp=$arr1;$arr1=$arr1;$arr1=$temp;) if $arr1<$arr1}}print $arr1.join(","),"\n"#插入排序puts "\n插入排序\n"=begin 本人觉得冒泡排序其实是所有排序的一个根本出发点。。。 无言选择几次，插入几次，最终都是将最小的数组长度-1个元素给放到最 前面就搞定了。。。当然插入排序是最难的，花了点时间 第一个upto循环控制比较的次数。。。第二个upto循环开始比较，一旦发现比前面一个元素小，就停止此循环，同时记录这个元素用其下标，转向第三个upto循环依次向后挪位置就可以了，当然第一次挪位置后就要跳出来，不能再循环了。。。=end$num=0$index=0f=false0.upto($arr2.length-1){|i| (i+1).upto($arr2.length-1){|j| (f=true;$num=$arr2;$index=j;break) if $arr2<$arr2}if f then0.upto($index-1){|n| ( ($index-1).downto(n){|m| $arr2=$arr2 }; $arr2=$num;break;) if $arr2>$num}f=falseend}print $arr2.join(","),"\n"
页:
[1]