[好老师淘宝店大班语言公开课月亮船]流水潺潺,溪石发亮;微风轻吹,柳絮已飞;时光匆匆,心已成熟;谆谆教导,言犹在耳…… 不是所有的老师,都能像父母般关怀学生,然而你们却做到了;不是所有的老师,都能当上学生的知心朋友,然而...+阅读
sub qsort {
my arr = _;
if ($#arr <= 1) {
if ($#arr == 1 & $arr[1] < $arr[0]) {
arr[1,0] = arr[0,1];
}
return arr;
}
my $p = $arr[int(rand($#arr + 1))];
my (s, e, b);
foreach my $e(arr) {
if ($e < $p) {push s, $e;}
elsif ($e > $p) {push b, $e;}
else {push e, $e;}
}
my res;
if ($#s >= 0) {push res, qsort(s);}
if ($#e >= 0) {push res, e;}
if ($#b >= 0) {push res, qsort(b);}
return res;
}
sub merge_sort {
my arr = _;
if ($#arr <= 1) {
if ($#arr == 1 & $arr[1] < $arr[0]) {
arr[1,0] = arr[0,1];
}
return arr;
}
my $m = $#arr >> 1;
my l = merge_sort(arr[0..$m]);
return l if ($m == $#arr);
my r = merge_sort(arr[$m+1 .. $#arr]);
my m;
my ($l, $r) = (0, 0);
while ($l <= $#l & $r <= $#r) {
if ($l[$l] < $r[$r]) {push m, $l[$l++];}
else {push m, $r[$r++];}
}
push m, l[$l .. $#l] if ($l <= $#l);
push m, r[$r .. $#r] if ($r <= $#r);
return m;
}
my arr = map{int rand(100)}0..20;
my res = qsort(arr);
print "res\n";
arr = map{int rand(100)}0..20;
res = merge_sort(arr);
print "res\n";
以下为关联文档:
小班语言月儿弯弯教案反思关于月亮这个话题,自古至今,流传着许多故事和传说,如嫦娥奔月、吴刚伐桂等,这些故事和传说明了历代人们对月亮充满好奇,同时也表达了人们对美好生活的追求与向往。虽然现代科技很...
学汉语言文学怎么样呀就业前景怎么样将来可以从事那些职业呀汉语言文学专业 学制:四年 授予学位:文学学士 培养目标:本专业培养具有系统的汉语言文学专业知识,开阔的现代文化视野,能在文化、宣传、教育等部门及党政机关、企事业单位从事文...
用C语言编写一个随机点名程序例: #include/*standardinput&output*/ #include/*standardlibary*/ #include/*string*/ #include/*ConsoleInput/Output*/ #include structstudentinfo/*学生信息的结构体*/...
幼儿园小班语言牙齿的重难点及反思现在的孩子吃糖太多,牙齿早早的就坏掉了,通过这节活动,让幼儿知道刷牙的好处,会正确掌握刷牙的方法,养成保护牙齿的良好习惯,并能坚持早晚刷牙。所以,在设计活动时我始终抱着趣味性...
小班语言教案身体不舒服了怎么办小班语言活动 小猪变干净了 执教:陈容真 一、活动目标 1. 理解故事内容,学习故事对话,锻炼口语表达能力。 2. 养成爱清洁、讲卫生的好习惯。 二、活动准备 课件PPT ,FLASH 三....
perl的排序#!/usr/bin/perl use strict; exit(-1) if (!defined $ARGV[0]); if (!open FILE,"<$ARGV[0]") { print "Cannot open file:$ARGV[0]\n"; exit(-1); } my %content; foreach my...
如何用PERL实现如下排序:三列第一列为主排序依据第二列次my line; while(<>) { chomp; push line, [ split ]; } foreach ( sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] } line) { print $_, "\n"; }...
在perl语言下怎么对散列的数组按其中的三个散列值排序然后再按顺#!/usr/bin/perl my a = ( { name =>'banan', class =>1, score =>45 }, { name =>'tommy', class =>2, score =>35 }, { name =>'tommy', class =>2, score =>22 }, { name...
perl排序一个数组其中每组数含有8个数字按照其中某个数字大小import java.io.*;import java.util.*;public class ArraySortDemo { public static void main(String[] args) throws IOException{ BufferedReader br = new BufferedRead...